erreure d'execution 9Résolu

Question

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

NHenry · Accepted Answer

Bonjour,

Avec le message d'erreur ça aurait été plus clair.

en clair, tu te trompe dans le nom du WorkBook.

à la place de :
chemin = Application.GetOpenFilename
Essayes :
chemin = ActiveWorkbook.Name

cs_Alban83 · Answer

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?

Alban

NHenry · Answer

Bonjour,

Bonjour,

Avec le message d'erreur ça aurait été plus clair.

en clair, tu te trompe dans le nom du WorkBook.

à la place de :
chemin = Application.GetOpenFilename
Essayes :
chemin = ActiveWorkbook.Name 

Tu as essayer ma suggestion de correction ?

cs_Alban83 · Answer

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

NHenry · Answer

Bonjour,

Application.GetOpenFilename 
Te retourne tous le chemin vers le fichier : 
c:\Mes documents\Monfichier.xls

ActiveWorkbook.Name 
MonFichier.xls

Ce qui n'est pas pareil, donc, après avoir ouvert le fichier, mémorise son nom de workbook.

cs_Alban83 · Answer

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

Erreure d'execution 9

6 réponses

Votre réponse

Discussions similaires