cs_Alban8324
Messages postés vendredi 3 juillet 2009Date d'inscription
21 septembre 2010
Dernière intervention
-
28 avril 2010 à 11:19 - Dernière réponse : cs_Alban8324
Messages postés vendredi 3 juillet 2009Date d'inscription
21 septembre 2010
Dernière intervention
- 29 avril 2010 à 09:28
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_Alban8324
Messages postés vendredi 3 juillet 2009Date d'inscription
21 septembre 2010
Dernière intervention -28 avril 2010 à 15:27
0
Merci
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_Alban8324
Messages postés vendredi 3 juillet 2009Date d'inscription
21 septembre 2010
Dernière intervention -28 avril 2010 à 20:12
0
Merci
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.
cs_Alban8324
Messages postés vendredi 3 juillet 2009Date d'inscription
21 septembre 2010
Dernière intervention -29 avril 2010 à 09:28
0
Merci
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
a aidé 97 internautes ce mois-ci