Excel Macro coper Coller ne fonctionne pas
traderpierre
Messages postés
291
Date d'inscription
Statut
Membre
Dernière intervention
-
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai 2 fichiers excel ouverts sur mon bureau.
J'ai enregistrer une macro en faisant les opérations :
copié les datas de VentesEbay.csv
à coller VentesEbay dans la feuille VentesEbay du fichier VentesEbay.xlsx
Tout fonctionne parfaitement lorsque j'effectue ces opérations.
Ensuite j'arrête l'enregistrement de ma Macro.
Je teste après avoir suprimé les datas de la feuille VentesEbay du fichier VentesEbay.xlsx
Et la macro s'arrête au copié de des datats de VentesEbay.csv.
Elle ne va pas plus loin.
Ci dessous cade VBA de ma Macro
Sub CopieColle()
'
' CopieColle Macro
'
'
Windows("VentesEbay.csv").Activate
Cells.Select
Selection.Copy
Windows("VentesEbay.xlsx").Activate
Sheets("VentesEbay").Select
Cells.Select
ActiveSheet.Paste
End Sub
Merci de m'aider, je m'arrache les cheveux !!!
J'ai 2 fichiers excel ouverts sur mon bureau.
J'ai enregistrer une macro en faisant les opérations :
copié les datas de VentesEbay.csv
à coller VentesEbay dans la feuille VentesEbay du fichier VentesEbay.xlsx
Tout fonctionne parfaitement lorsque j'effectue ces opérations.
Ensuite j'arrête l'enregistrement de ma Macro.
Je teste après avoir suprimé les datas de la feuille VentesEbay du fichier VentesEbay.xlsx
Et la macro s'arrête au copié de des datats de VentesEbay.csv.
Elle ne va pas plus loin.
Ci dessous cade VBA de ma Macro
Sub CopieColle()
'
' CopieColle Macro
'
'
Windows("VentesEbay.csv").Activate
Cells.Select
Selection.Copy
Windows("VentesEbay.xlsx").Activate
Sheets("VentesEbay").Select
Cells.Select
ActiveSheet.Paste
End Sub
Merci de m'aider, je m'arrache les cheveux !!!
A voir également:
- Excel Macro coper Coller ne fonctionne pas
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Bonjour, l'enregistreur de macro n'effectue pas d'opération sur des classeurs différents! Il faut retravailler le code après pour obtenir ce que tu veux et aussi l'optimiser, entre autre enlever le "select" qui ne servent à rien!
Pour commencer, créer des variables avec tes noms de classeur.
Ensuite, passons au code
Sauf erreur de ma part, la plage A1:B1 du fichier VentesEbay.csv sera copié en cellule A1 du classeur VentesEbay
Pour commencer, créer des variables avec tes noms de classeur.
wb1 = workbooks("VentesEbay.xlsx")
sh1 = sheets("VentesEbay")
wb2 = wokbooks("VentesEbay.csv")
Ensuite, passons au code
wb2.range("A1:B1").copy Destination=: wb1.sh1.range("A1")
Sauf erreur de ma part, la plage A1:B1 du fichier VentesEbay.csv sera copié en cellule A1 du classeur VentesEbay