[VBA-E] & problème avec GetOpenFileName
Bonjour, je souhaite dans un fichier Excel ouvrir un fichier avec getOpenFileName;
Voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
' Enregistrement du fichier à ouvrir dans la variable NomFichier
NomFichier = Application.GetOpenFilename("... paramètres...")
' Si un fichier est sélectionné, ouverture de ce fichier
If NomFichier <> False Then
Workbooks.Open Filename:=NomFichier
Set NomFichier = ActiveWorkbook
End If
Application.ScreenUpdating = False
' Copie de l'onglet dans le fichier Alpha après l'onglet Toto
NomFichier.Sheets(1).Select
ActiveSheet.Copy after:=Toto
// Suite des traitements |
Mon problème est le suivant : lorsque je clique sur le bouton Annuler de la boite de dialogue Ouvrir Fichier, mon code VBA plante et stoppe le programme.
Qui peut me dire quelle est la bonne solution pour laisser à l'utilisateur le choix de sélectionner un fichier ?
Merci d'avance
++
Sat478