Discussion :

[sadhya]

Salut j'ai regardé un peu dans le forum mais les solutions que j'ai trouvé ne fonctionne pas . Voici ma problématique :

• -Je veux copier la Feuil1 du Classeur PMI.xlsm dans la Feuil2 du Classeur RETARDPMI.xlsm
  -Puis je veux copier la Feuil1 du Classeur INTERVENTIONREALISEE.xlsm dans la Feuil3 du Classeur RETARDPMI.xlsm

J'ai essayé ce code mais il recréé à chaque fois un nouveau classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets(Feuil1").cells.copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").copy
Chemin = C:\BILAN TRIMESTRIEL\
ClasseurCible = "RETARDPMI.xls" 'Là je ne peux pas mettre .xlsm je peux que créer un fichier ne prenant pas en charge les macros alors que j'ai besoin d'un fichier prenant en charge les macros 
ActiveWorkbook.SaveAs chemin & ClasseurCible

Puis ce code que j'ai trouvé sur le forum mais ça me dit que l'indice n'appartient pas à la sélection erreur 9

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("PMI.xlsm").Sheets(Feuil1).Cells.Copy Workbooks("RETARDPMI.xlsm").Sheets(Feuil2).Range("A1")

[SfJ5Rpw8]

Bonjour,

tu n'as pas précisé ou tu écrivais ton code ? dans quel classeur ?

et quel était l'état de tes classeurs au moment de l'exécution du codes , sont-t'ils tous ouvert dans la même application excel ?

[sadhya]

Bonjour bbil,

Pour copier la Feuil1 du Classeur PMI.xlsm dans la Feuil2 du Classeur RETARDPMI.xlsm :

J'écris le code dans le Classeur PMI.xlsm et le Classeur RETARDPMI.xlsm est fermé


Pour copier la Feuil1 du Classeur INTERVENTIONREALISEE.xlsm dans la Feuil3 du Classeur RETARDPMI.xlsm :

J'écris le code dans le Classeur INTERVENTIONREALISEE.xlsm et le Classeur RETARDPMI.xlsm est fermé

[SfJ5Rpw8]

et bien avant de copier des données dans un classeur commence par l'ouvrir...


Comment ouvrir un classeur ?



ou mieux :

Comment travailler sur deux classeurs ?

[sadhya]

J'ouvre le classeur qui est fermé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Workbooks.Open "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"

Et ensuite j'ai essayé ça bien sur ça ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("PMI.xlsm").Sheets(Feuil1).Cells.Copy Workbooks("RETARDPMI.xlsm").Sheets(Feuil2).Range("A1")

Après avoir effectué cette action j'aurais souhaité enregistrer et fermer le classeur que j'ai ouvert ceci va fonctionner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.Workbooks.Save "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"
Application.Workbooks.Close "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"

[SfJ5Rpw8]

il manque des guillemets dans ton code de copie...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim wkDest as workbook ' Classeur destinataire
 
set wkDest = Application.Workbooks.Open ("C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm") 
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkBook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil2").Range("A1")
 
wkDest.Close true 'Ferme en sauvant.