Erreur d'exécution 1004

Bonjour

J'ai un problème, j'ai créer une macro pour importer une feuille excel à partir d'un autre classeur ^^

Voici mon code :

Sub Importation()
Set WB2 = ActiveWorkbook
thefile = Application.GetOpenFilename
Set WB = Workbooks.Open(thefile)
WB.Sheets("sheet").Copy After:=WB2.Sheets(Sheets.Count)
WB.Close

Voici le message d'erreur "erreur d'exécution 1004 Désolé nous ne trouvons pas Faux.xls Peut-être l'avez-vous déplacé, renommé ou supprimé? Ce message d'erreur s'affiche lorsque ma fenêtre de dialogue Windows d'ouverture de fichier apparaît et que je clique sur "Annuler"

La ligne surligné lors du débogage est

Set WB = Workbooks.Open(thefile)

Que puis-je faire ?

Merci d'avance pour votre aide

Bonjour,

La méthode GetOpenFilename renvoie la valeur False si l'utilisateur annule la boîte de dialogue.

Sub Importation()
Dim Wb1 As Workbook, Wb2 As Workbook
Dim TheFile
    Set Wb1 = ActiveWorkbook
    TheFile = Application.GetOpenFilename
    If TheFile <> False Then
        Set Wb2 = Workbooks.Open(TheFile)
        Wb2.Sheets("Feuil1").Copy After:=Wb1.Sheets(Sheets.Count)
        Wb2.Close
    End If
End Sub

A+

Merci je me doutais bien qu'il fallait utiliser un If mais je ne voyais pas comment ^^

Merci beaucoup pour ton aide