Discussion :

[hugoclo]

Bonsoir,
J'ai recuperer sur le code suivant sur le tuto de Christophe WARIN[

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation de l'objet File
If oFSO.FileExists(Me.chemin_Fichier)Then
    Set oFl = oFSO.GetFile(Me.chemin_Fichier)
End If
 
fin:
    Exit Function
 
err:
        Select Case err.Number
            Case 53: MsgBox "Le fichier est introuvable"
            Case Else: MsgBox "Erreur inconnue"
        End Select
 
    Resume fin

Je souhaiterai que cette fonction s'execute au chargement de mon formulaire a la suite de ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Parcours les disques
For Each oDrv In oFSO.Drives
If oDrv.DriveType = Removable Then
    If oDrv.SerialNumber = "272234117" Or "272198277" Then
  'Rend le bouton visible si bon serial'
Me.Commande13.Visible = True
    End If
   End If
 Next oDrv
End Sub

Et le souci c'est que je n'arrive pas à les integres ensemble.

[FreeAccess]

Bonjour....

...je n'arrive pas à les integres ensemble

....C'est à dire.....

Tu as un message d'erreur ....ou tu ne sais pas copier ton second code à la suite du premier........

Car sans regarder si ton code est valide....cela ne semble pas poser de problème..

[hugoclo]

J'ai honte
Je ne sais pas copier le second code a la suite du premier

[FreeAccess]

...et comme cela...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Load()
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive
Dim oFl As Scripting.File
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Parcours les disques
For Each oDrv In oFSO.Drives
If oDrv.DriveType = Removable Then
    If oDrv.SerialNumber = "272234117" Or "272198277" Then
  'Rend le bouton visible si bon serial'
Me.Commande13.Visible = True
    End If
   End If
 Next oDrv
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation de l'objet File
If oFSO.FileExists(Me.chemin_Fichier) Then
    Set oFl = oFSO.GetFile(Me.chemin_Fichier)
End If
 
End Sub

...ça donne quoi....

[hugoclo]

Merci pour ton aide mais cela ne fonctionne pas

[cafeine]

Hello,

a priori, ce qui me gêne c'est ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If oDrv.SerialNumber = "272234117" Or "272198277" Then

un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
?"721" = "722" or "721"
 721

donc je verrais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If oDrv.SerialNumber = "272234117" Or oDrv.SerialNumber =  "272198277" Then