Copier une feuille d'un classeur à l'autreRésolu/Fermé

Question

Bonjour, 

J'essaye de faire une macro qui me permet d'importer dans la feuille EXPORT de mon classeur MaJ.xlsm, la feuille A de mon classeur EXPORT.xls.
J'ai tenté ça mais cela ne fonctionne pas :

Sub Macro1()    Sheets("Feuil1").Select    Sheets("Feuil1").Name = "CIBLE"    Sheets.Add After:=ActiveSheet    Sheets("Feuil1").Select    Sheets("Feuil1").Name = "EXPORT"    Workbooks.Open Filename:="C:\Users\Gérard\Desktop\Export.xls"    Workbooks(Export.xls).Worksheets("A").Cells.Select    Selection.Copy    Workbooks(MaJ.xlsm).Worksheets("EXPORT").Range("A1").Activate    ActiveSheet.Paste    Workbooks(Export.xls).Close FalseEnd Sub

Pourquoi ??
Configuration: Windows / Firefox 53.0

Leghe · Answer

Merci pour votre réponse.
Quelle est la solution en ce cas ?
Comment limiter la copie aux 65 536 premières lignes ?

Leghe · Answer

De plus, ce code ne fonctionne pas non plus :
Sub Macro1()    Sheets("Feuil1").Select    Sheets("Feuil1").Name = "CIBLE"    Sheets.Add After:=ActiveSheet    Sheets("Feuil1").Select    Sheets("Feuil1").Name = "EXPORT"    Workbooks.Open Filename:="C:\Users\Gérard\Desktop\Export.xls"   ' Workbooks(Export.xls).Worksheets("A").Cells.Select   ' Selection.Copy   ' Workbooks(MaJ.xlsm).Worksheets("EXPORT").Range("A1").Activate   ' ActiveSheet.Paste   ' Workbooks(Export.xls).Close FalseEnd Sub

Leghe · Answer

Je sais...
Aucun message d'erreur, rien ne se passe... Tout "simplement"...

Patrice33740 · Answer

Re,

C'est pas normal, ta macro ne s'exécute pas !
Les macros sont-elles activées ?

Tu devrais avoir ce message d'erreur :
 
Et si tu fais débogage :

fran&ccedil;ois · Answer

Voici les 5 premières lignes de ta macro "Macro1" :

Sheets("Feuil1").Select
  Sheets("Feuil1").Name = "CIBLE"
  Sheets.Add After:=ActiveSheet
  Sheets("Feuil1").Select
  Sheets("Feuil1").Name = "EXPORT"

Je te propose de les remplacer par ces 2 lignes :

Worksheets(1).Name = "CIBLE": Worksheets.Add , Worksheets(1)
  ActiveSheet.Name = "EXPORT"

Ça marchera même si ton classeur a plusieurs feuilles, et quelle que
soit la feuille active ; rappel : une feuille qui vient d'être ajoutée
devient la nouvelle feuille active => ligne #2 : ok.

-------------------------------------

Autre rappel : un classeur a toujours au minimum une feuille.

Si au départ ton classeur n'a qu'une seule feuille, alors cette feuille
est forcément la feuille active ; dans ce cas, mon code de 2 lignes
ci-dessus peut devenir :

ActiveSheet.Name = "CIBLE": Worksheets.Add , ActiveSheet
  ActiveSheet.Name = "EXPORT"

=====================

La ligne suivante de ta macro peut s'écrire plus court :

Workbooks.Open "C:\Users\Gérard\Desktop\Export.xls"

Si jamais elle plante, ça pourra être à cause de :

a) "Gérard" : c'est peut-être "Gerard", ou un autre nom de User
b) "Desktop" : ton classeur est bien sur le Bureau ? ne serait-il
    pas plutôt dans le dossier Documents ?
c) L'extension du fichier est bien .xls ? pas .xlsx ? ou .xlsm ?

-------------------------------------

La correction pourrait être :

Workbooks.Open "C:\Users\Gerard\Documents\Export.xlsm"

J'ai supposé que le nom de ton classeur est quand même
"Export", mais à vérifier au cas où...  ;)

=====================

Contrôle déjà tout ça avant de faire la suite de ta macro.

Leghe · Answer

Merci à tous pour vos réponses.
Les macros sont bien activées, les noms et chemins sont les bons.
J'ai modifié un peu la macro, qui ne s’exécute pas automatiquement (je ne comprends pas pourquoi ???...).
Cela dit, en la sélectionnant "manuellement" via l'onglet développeur, elle fonctionne :

Sub Macro1()Dim DerniereColonne As IntegerDim DerniereLigne As IntegerDim MaJ As WorkbookDim Export As WorkbookSet MaJ = ThisWorkbook    Workbooks.Open "C:\Users\Gérard\Desktop\Export.xls"    DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column    DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row    Sheets("A").Range(Cells(1, 1), Cells(DerniereLigne, DerniereColonne)).Copy    Windows("MaJ.xlsm").Activate    Sheets("Export").Select    Range("A1").Select    ActiveSheet.PasteEnd Sub

Me reste donc 2 questions : 
- Comment l'exécuter automatiquement à l'ouverture du fichier MaJ.xlsm ?
- Comment fermer automatiquement Export.xls à la fin ?

Merci !

Leghe · Answer

Super, cela fonctionne à merveille.
Merci, problème résolu ! :)

Copier une feuille d'un classeur à l'autre

7 réponses

Discussions similaires

Newsletters