VBA-Copie données ficher 1 feuille A vers ficher 2 feuille VRésolu/Fermé

Question

Bonjour, 

Je souhaite copie l'intégralité des données d'une feuille "FeuilSource" d'un ficher "Source.xlsx" (ouvert et d'ou la macro est lancée) vers une "FeuilDestination" d'un ficher "Destination.xlsx" non actif.

Voilà ce que j'ai "pondu" et j'ai une erreur après l'ouverture du  ficher "Source.xlsx" :

  'Intègre les données du fichier source sans le modifier
ici  => Workbooks("Source.xlsx") = Workbooks.Open(Filename:="C:\source\"Source.xlsx"")
  Sheets("FeuilDestination").Cells.Value = Workbooks("Source.xlsx").Sheets("FeuilSource").Cells.Value
  Workbooks("Source.xlsx").Close False ' ferme sans sauve
  Set Workbooks("Source.xlsx") = Nothing
  Set Sheets("FeuilDestination") = Nothing

D'avance merci pour votre aide

gbinforme · Answer

Bonjour, 

Tu devrais chercher des exemples pour faire ton action car dans ton cas il faut aussi ouvrir ton classeur destination et ne pas faire '=' mais utiliser la fonction copie.

gbinforme · Answer

Bonjour, 

Voici ta macro modifiée et qui devrait fonctionner :
Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\source\Destination.xlsx"
    Workbooks.Open Filename:="C:\source\Source.xlsx"
    Workbooks("Source.xlsx").Sheets("FeuilSource").Cells.Copy _
        Destination:=Workbooks("Destination.xlsx").Sheets("FeuilDestination").Cells(1, 1)
    Workbooks("Source.xlsx").Close False ' ferme sans sauve
    Workbooks("Destination.xlsx").Close True ' ferme en sauvant
Application.ScreenUpdating = True

VBA-Copie données ficher 1 feuille A vers ficher 2 feuille V

2 réponses

Newsletters