Macro copier/coller 2 fichiers excel
Fermé
Slash66
-
13 juil. 2008 à 21:57
Slash66 Messages postés 3 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 17 juillet 2008 - 17 juil. 2008 à 02:52
Slash66 Messages postés 3 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 17 juillet 2008 - 17 juil. 2008 à 02:52
A voir également:
- Macro copier/coller 2 fichiers excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Dessin sms copier coller zizi ✓ - Forum Internet / Réseaux sociaux
- Copier video youtube - Guide
4 réponses
yg_be
Messages postés
21330
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 mars 2023
1 328
14 juil. 2008 à 10:18
14 juil. 2008 à 10:18
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
21330
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 mars 2023
1 328
14 juil. 2008 à 14:46
14 juil. 2008 à 14:46
Cela se plante à quelle ligne ?
Slash66
Messages postés
3
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
17 juillet 2008
14 juil. 2008 à 19:57
14 juil. 2008 à 19:57
Au second PasteSpecial (j'ai mis une petite flèche)
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
16 juil. 2008 à 10:36
16 juil. 2008 à 10:36
bonjour
Essayes comme ceci tu devrais fonctionner
Essayes comme ceci tu devrais fonctionner
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Slash66
Messages postés
3
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
17 juillet 2008
17 juil. 2008 à 02:52
17 juil. 2008 à 02:52
Ça ne fonctionne toujours pas, même code d'erreur. J'abandonne cette macro, je vais tenter autrement.
Merci quand même pour votre aide. J'apprécie vraiment
Merci quand même pour votre aide. J'apprécie vraiment
14 juil. 2008 à 11:53
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