Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionUserForm2.Show 'mettre le nom de l'userForm
'Ouvrir fichiers dans leur programme par défaut Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim fichier As String 'ouvrir tous les fichier sauf xls Sub ouvriravec() On Error Resume Next fichier = Application.GetOpenFilename("All Files (*.*), *.*") If fichier = "" Then Exit Sub Else Dim Ret As Variant Ret = ShellExecute(hwnd, "open", fichier, "", vbNullString, 1) 'Var= chemin du fichier End If End Sub 'Ouvrir fichiers xls Sub OuvrirFichier() On Error Resume Next fichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") If fichier = "" Then Exit Sub Else Workbooks.Open Filename:=fichier 'ouvre fichiers xls dans la feuille Excel End If End Sub Private Sub CommandButton1_Click() ouvriravec 'ouvrir tous les fichier sauf xls End Sub Private Sub CommandButton2_Click() OuvrirFichier 'Ouvrir fichiers xls End Sub