Copier feuille d'un classeur à un autre Fermé

Question

Hello hello,
Donc depuis ce matin je cherche simplement à copier coller la première feuille, d'un classeur que je viens d'ouvrir, vers une feuille précise de mon classeur de départ. (Je précise, je débute en VBA)
Malgré pas mal de recherche sur internet, j'ai toujours la même erreur que je n'arrive pas à comprendre.
Donc voilà le vilain code qui veut pas coopérer :
Sub RecupDonnees()Dim FichierContact As VariantMsgBox "Sélectionner le fichier contact"FichierContact = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")If FichierContact = False Then Exit SubThisWorkbook.Worksheets("CONTACT").Cells.ClearContents   'Efface le contenu des feuilles qui vont recevoir les donnéesSet Contact = Application.Workbooks.Open(Filename = FichierContact)   'A partir de là ça veut plus :(   'A priori c'est la ligne là qui pose problèmeContact.Worksheets("Feuil1").Cells.CopyThisWorkbook.Worksheets("CONTACT").Range ("A1")FichierContact.Close FalseEnd Sub
Je suis donc à la recherche d'une âme charitable qui pourrait m'expliquer ce qui ne va pas.
Merci beaucoup d'avance pour votre aide :)

ThauTheme · Answer

Bonjour Plum, bonjour le forum,
Essaie comme ça :
Sub RecupDonnees()
Dim CC As Workbook 'déclare la variable CC (Classeur Cible)
Dim FichierContact As Variant
Dim CS As Workbook 'déclare la variable CS (Classeur Source)

Set CC = ThisWorkbook 'définit le classeur cible CC
MsgBox "Sélectionner le fichier contact"
FichierContact = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If FichierContact = False Then Exit Sub
Set CS = ActiveWorkbook 'définit le classeur source
CC.Worksheets("CONTACT").Cells.ClearContents
CS.Worksheets("Feuil1").Cells.Copy CC.Worksheets("CONTACT").Range("A1")
CS.Close False
End Sub

Copier feuille d'un classeur à un autre

1 réponse

Discussions similaires