Macro copier/coller 2 fichiers excel
Slash66
-
Slash66 Messages postés 3 Statut Membre -
Slash66 Messages postés 3 Statut Membre -
Bonjour,
J'aimerais copier deux plages de données d'un fichier excel vers une autre fichier déjà créé
(afin de ne retenir que les données) avec une macro.
La macro que j'ai fait (je suis débutant) s'exécute jusqu'à un certain point mais me retourne
le message d'erreur suivant après avoir collé la première plage:
Erreur d'exécution '-2147417848 (80010108)':
Erreur Automation
Le code VB est le suivant:
Workbooks("Projection OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
Selection.Copy
Workbooks("Données Clients OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Qu'est-ce qui ne fonctionne pas là-dedans ?
Merci beaucoup de me donner un coup de main.
J'aimerais copier deux plages de données d'un fichier excel vers une autre fichier déjà créé
(afin de ne retenir que les données) avec une macro.
La macro que j'ai fait (je suis débutant) s'exécute jusqu'à un certain point mais me retourne
le message d'erreur suivant après avoir collé la première plage:
Erreur d'exécution '-2147417848 (80010108)':
Erreur Automation
Le code VB est le suivant:
Workbooks("Projection OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
Selection.Copy
Workbooks("Données Clients OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Qu'est-ce qui ne fonctionne pas là-dedans ?
Merci beaucoup de me donner un coup de main.
A voir également:
- Macro copier/coller 2 fichiers excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Historique copier coller - Guide
- Liste déroulante excel - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Copier coller pdf - Guide
4 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 586
Tout me semble correct. Peux-tu donner plus de détails ?
Comment executes-tu la macro ?
Nous as-tu montré le code complet de la macro ?
Comment executes-tu la macro ?
Nous as-tu montré le code complet de la macro ?
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 586
Cela se plante à quelle ligne ?
La macro complète ci-dessous:
Dim Fichier As Range
Dim Chemin As Range
Sheets("Données").Select
Range("B1").Select
Selection.Copy
Range("B12").Select
Selection.PasteSpecial Paste:=xlPasteValues
Set Fichier = Range("B12")
Set Chemin = Range("A1")
Workbooks.Open Filename:=Chemin & "Données Clients OR.xls"
Workbooks("Projection OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
Selection.Copy
Workbooks("Données Clients OR.xls").Activate
Sheets("Données").Select
Range("A1:E76").Select
-> Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks("Projection OR.xls").Activate
Sheets("Ajustements").Select
Range("D6:S95").Select
Selection.Copy
Workbooks("Données Clients OR.xls").Activate
Sheets("Ajustements").Select
Range("D6:S95").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier
ActiveWorkbook.Close
La macro est actionnée par un bouton.
Je suis allé voir un lien de support Microsoft mais je ne comprends pas bien ce que tout cela veut dire:
https://support.microsoft.com/fr-fr/help/270589#top
Merci de votre aide précieuse