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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Copier coller pdf - Guide
- Formule excel - Guide
- Fusionner 2 fichiers excel - Guide
4 réponses
yg_be
Messages postés
22708
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2024
1 474
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
22708
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2024
1 474
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
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
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