Macro pour copier les données d'un fichier excel vers un autre
Alix3105
-
redaiwa Messages postés 370 Statut Membre -
redaiwa Messages postés 370 Statut Membre -
Bonjour,
Je souhaite copier les lignes d'un tableau dans un second fichier excel (nommé Commandes Gaël).
Je n'arrive pas à rédiger la commande pour ouvrir le second fichier.
Voici ma macro pour l'instant, ce que j'avais tenté mais ça ne marche pas :(
Sheets("Gael").Range("Table3").Copy
Workbooks.Open Filename:="Dropbox\Commandes\Commandes Gaël"
Sheets("Commandes").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, _
SkipBlanks:=False_, Transpose:=False
Si vous avez la solution ce serait génial. J'ai consulté plein de forums mais je suis un peu perdue...
Merci pour votre aide!
Alix
Je souhaite copier les lignes d'un tableau dans un second fichier excel (nommé Commandes Gaël).
Je n'arrive pas à rédiger la commande pour ouvrir le second fichier.
Voici ma macro pour l'instant, ce que j'avais tenté mais ça ne marche pas :(
Sheets("Gael").Range("Table3").Copy
Workbooks.Open Filename:="Dropbox\Commandes\Commandes Gaël"
Sheets("Commandes").Select
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, _
SkipBlanks:=False_, Transpose:=False
Si vous avez la solution ce serait génial. J'ai consulté plein de forums mais je suis un peu perdue...
Merci pour votre aide!
Alix
1 réponse
-
Salam Alix3105.
Essaye ce code :
ActiveWorkbook.Names("Table3").RefersToRange.Copy
Workbooks.Open Filename:="Dropbox\Commandes\Commandes Gaël.xlsx"
Sheets("Commandes").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
En supposant que tu veuille coller les données de Table3 en commençant à la cellule A1 de la feuille "Commandes".
ça marche ? Fais-moi signe. :)
