Ken Hutchinson
XLDnaute Occasionnel
Bonjour les amis d'Excel !!!
Voilà un petit code avec lequel j'ai un problème. C'est un bouton qui permet d'aller chercher un fichier à passer dans la macro. Le contenu de la feuil1 est copié et collé dans la macro. puis le fichier copié est fermé... et ça ne marche pas... pourtant j'avais bon espoir.
et ça plante sur
Merci de votre aide !!
Voilà un petit code avec lequel j'ai un problème. C'est un bouton qui permet d'aller chercher un fichier à passer dans la macro. Le contenu de la feuil1 est copié et collé dans la macro. puis le fichier copié est fermé... et ça ne marche pas... pourtant j'avais bon espoir.
Code:
Private Sub CommandButton1_Click()
Dim MonFichier As String
MonFichier = Application.GetOpenFilename
If MonFichier = "Faux" Then
MsgBox ("Vous n'avez pas choisi de fichier")
Exit Sub
Else
Workbooks.Open MonFichier
End If
Sheets("Feuil1").Select
Cells.Select
Selection.Copy
Windows("Macro v3.xls").Activate
Cells.Select
ActiveSheet.Paste
Workbooks.Close MonFichier
End Sub
et ça plante sur
Code:
Workbooks.Close MonFichier
Merci de votre aide !!