'Sub Test2()
' Application.Dialogs(xlDialogOpen).Show
'End Sub
Sub ExecuterMacro()
MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If MonFichier <> False Then
Workbooks.Open Filename:=MonFichier
Else
Exit Sub
End If
'Executer la macro FormatTestCase sur le fichier sélectionné'
ExecuterMacro = FormatTestCase() <= ma macro a executer sur le fichier chargé
End Sub
Sub SupprimerOnglets() <= action du second bouton: supprimer des onglets pour reinitialiser le fichier chargé (onglets 'FDM...')
'Supprimer les onglets du fichier sélectionné sauf le premier'
End Sub