Excel Macro coper Coller ne fonctionne pas

Fermé

traderpierre Messages postés 291 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 6 janvier 2024 - 10 sept. 2016 à 16:17
tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 - 12 nov. 2016 à 15:05

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 !!!

A voir également:

Excel Macro coper Coller ne fonctionne pas
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
12 nov. 2016 à 15:05

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.

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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Excel, Formule =SOMME ne fonctionne pas

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters