script + macro excel

Aller en bas

script + macro excel

Message par Admin le Mer 28 Mar - 22:09

FONCTION CONVERTIR

Function convertir(somme As Integer, devise As String)
Dim taux As Integer
If devise = "BEF" Then
taux = 40.3399
ElseIf devise = "DEM" Then
taux = 1.95
ElseIf devise = "ESP" Then
taux = 166.386
ElseIf devise = "FRF" Then
taux = 6.55
ElseIf devise = "GRD" Then
taux = 340.75
ElseIf devise = "IEP" Then
taux = 0.78
ElseIf devise = "ITL" Then
taux = 1936.27
End If
convertir = somme / taux
End Function






Macro convertisseur
Sub Macro()

Dim be, ch, jap, us, tht As Double
Dim somme As Double
Dim pays As String

Range("A4").Select
be = Selection.Cells.Value
Range("B4").Select
ch = Selection.Cells.Value
Range("C4").Select
jap = Selection.Cells.Value
Range("D4").Select
us = Selection.Cells.Value
Range("E4").Select
tht = Selection.Cells.Value
somme = InputBox("Entrez la somme a convertir")
pays = InputBox("Entrez les 3 lettres du pays en majuscule")
pays2 = InputBox("E ou FRF ? (en majuscule)")
If pays2 = "" Then
       tauxdest =
ElseIf pays2 = "E" Then
       tauxdest = 1
           End If
If pays = "BEF" Then
   MsgBox " " & somme / be & " Euro(s)"
   ElseIf pays = "CH" Then
   MsgBox " " & somme / all & " Euro(s)"
   ElseIf pays = "JAP" Then
   MsgBox " " & somme / esp & " Euro(s)"
   ElseIf pays = "US" Then
   MsgBox " " & somme / fr & " Euro(s)"
   ElseIf pays = "THT" Then
   MsgBox " " & somme / gr & " Euro(s)"
   End If
   End Sub

Calculette
Sub Calculette()

Dim rep1, rep2, rep3, rep4, Nb1, Nb2 As Integer
Dim reponse As String

Nb1 = InputBox("Entrez le premier nombre")
Nb2 = InputBox("Entrez le deuxième nombre")

rep1 = Addition(Nb1, Nb2)
rep2 = Soustraction(Nb1, Nb2)
rep3 = Multiplication(Nb1, Nb2)
rep4 = Divsion(Nb1, Nb2)

Shell "cmd.exe /K C:\Users\5TQI-A\Desktop\Calculete.bat" & " " & rep1 & " " & rep2 & " " & rep3 & " " & rep4

End Sub

Function Addition(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Addition = Nombre1 + Nombre2
End Function

Function Soustraction(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Soustraction = Nombre1 - Nombre2
End Function

Function Multiplication(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Multiplication = Nombre1 * Nombre2
End Function

Function Division(ByVal Nombre1 As Integer, ByVal Nombre2 As Integer)
Division = Nombre1 / Nombre2
End Function
Script création utilisateur
srtComputer = "os01"  (Nom de l’ordinateur)
Set util = GetObject("WinNT:\\ " & strComputer & "")    
Set objUser = util.Create(“user”,”TOTO”)   (défini le groupe et le nom)
objUser.setPassword “test”
objUser.SetInfo

MTN en administrateur :
net user TOTO password /add /passwordchag:no
wmic path win32_UserAccount where Name='TOTO' set PasswordExpires=false
net localgroup Administrateurs TOTO /add
net localgroup Utilisateurs TOTO /delete

Script netuser :
@echo off
net user %1 %2 /add
Script créé un partage :
md C:\Users\Administrateur\Documents\Partage
net share Partage="C:\Users\Administrateur\Documents\Partage"
net use U: \\os01\Partage

Admin
Admin

Messages : 5
Date d'inscription : 27/03/2018

http://informatiquehelp.kanak.fr

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum