Macro pour copier les données d'un fichier excel vers un autre
Alix3105
-
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro pour copier les données d'un fichier excel vers un autre
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fichier rar - Guide
1 réponse
Salam Alix3105.
Essaye ce code :
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. :)
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. :)