cs_Alban83
Messages postés24Date d'inscriptionvendredi 3 juillet 2009StatutMembreDernière intervention21 septembre 2010
-
28 avril 2010 à 11:19
cs_Alban83
Messages postés24Date d'inscriptionvendredi 3 juillet 2009StatutMembreDernière intervention21 septembre 2010
-
29 avril 2010 à 09:28
Salut,
J'ai écrie un petit programe qui ouvre un doc excel, copie la feuille, là cole dans l'excel ou j'éffectue les macros.
Jusque là ça fonctionne.
Mais quand je rajoute:
Workbooks(chemin).Close Savechanges:=False
J'ai une erreure d'execution 9!
Pouvez vous m'aidé?
Alban
Voici mon programe:
Sub copier()
Dim chemin As String
chemin = Application.GetOpenFilename
Application.Workbooks.Open chemin
Cells.Select
Selection.Copy
Windows("CODBAT2.3.xlsm").Activate
Sheets("default").Select
Cells.Select
ActiveSheet.Paste
Workbooks(chemin).Close Savechanges:=False
End Sub
cs_Alban83
Messages postés24Date d'inscriptionvendredi 3 juillet 2009StatutMembreDernière intervention21 septembre 2010 28 avril 2010 à 15:27
Merci de ta reponse, mais ce n'est pas bon.
Le message d'erreure est:
Erreur d'execution 9: L'indice n'appartient pas à la sélection.
J'ai cette erreure que si j'ajoute la ligne:
Workbooks(chemin).Close Savechanges:=False
Le code fonctionne donc avec ça:
Sub copier()
Dim chemin As String
chemin = Application.GetOpenFilename
Application.Workbooks.Open chemin
Cells.Select
Selection.Copy
Windows("CODBAT2.3.xlsm").Activate
Sheets("default").Select
Cells.Select
ActiveSheet.Paste
End Sub
Mais ne ferme pas excel copier.
Est ce plus clair?
cs_Alban83
Messages postés24Date d'inscriptionvendredi 3 juillet 2009StatutMembreDernière intervention21 septembre 2010 28 avril 2010 à 20:12
Oui mais ça marche pas.
tu me dis de changé :
chemin = Application.GetOpenFilename
par
chemin = ActiveWorkbook.Name
Mais cette ligne marche très bien car quand je retire:
Workbooks(chemin).Close Savechanges:=False
Donc sans la dernière ligne du code tout fonctionne.
Mais le classeur excel "copier" ne se ferme pas.
Alban
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Alban83
Messages postés24Date d'inscriptionvendredi 3 juillet 2009StatutMembreDernière intervention21 septembre 2010 29 avril 2010 à 09:28
Salut Henry
J'avais pas compris ce que tu me proposais.
Enfet j'essayai de fermer le classeur Excel avec son chemin et pas avec le nom du classeur.
Merci de ton aide et du temps passé sur ce pb.
Alban
Voici mon code fini:
Sub copier()
Dim chemin As String
Dim name As String
chemin = Application.GetOpenFilename
Application.Workbooks.Open chemin
name = ActiveWorkbook.name
Cells.Select
Selection.Copy
Windows("CODBAT2.3.xlsm").Activate
Sheets("default").Select
Cells.Select
ActiveSheet.Paste
Workbooks(name).Close Savechanges:=False
End Sub