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.