VBA-Copie données ficher 1 feuille A vers ficher 2 feuille V
Résolu
NaXiLeAn
Messages postés
112
Date d'inscription
Statut
Membre
Dernière intervention
-
NaXiLeAn Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
NaXiLeAn Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- VBA-Copie données ficher 1 feuille A vers ficher 2 feuille V
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Feuille a5 - Guide
- Comment supprimer une feuille sur word - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
2 réponses
Bonjour,
Voici ta macro modifiée et qui devrait fonctionner :
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
un grand merci gbinforme
ça fonctionne :D