Discussion :

[sat478]

Bonjour, je souhaite dans un fichier Excel ouvrir un fichier avec getOpenFileName;
Voici mon code :

Code :

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

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

[SilkyRoad]

bonjour

comment as tu déclaré la variable NomFichier ?

tu peux faire un essai avec

Code :

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

Dim NomFichier As Variant

bon week end
michel