Probleme erreur execution 9 sur une macro faite chez moi

[christ-94]

Bonjour

J'ai un probleme sur ce code

   Classeur = Sheets("protege").Range("A4") 'nom du classeur ouvert
    FICHIER1 = Sheets("protege").Range("C2") & "/" & Sheets("protege").Range("E2") ' nom du fichier a ouvrir
    Workbooks.Open Filename:=FICHIER1
    [COLOR="DarkRed"]Sheets("Sheet1").Move After:=Workbooks(Classeur).Sheets("Import")[/COLOR]

il doit copie une feuille dans un classeur ,cette macro a ete realise chez moi, et lorsque je la test au travail je me retrouve avec une erreur du type

erreur d'execution 9
l'indice n'appartient pas a la selection

Merci d'avance

 

[christ-94]

Re : Probleme erreur execution 9 sur une macro faite chez moi

Re-bonjour

j'ai modifier le code

    Workbooks.Open Filename:=Sheets("protege").Range("C2") & "/" & Sheets("protege").Range("E2")
    Sheets("Sheet1").Move After:=Workbooks(ThisWorkbook.Name).Sheets("Import")

Par contre je ne comprend pas pourquoi
Le code sous cette forme ne fonctionne pas

Sheets("Sheet1").Move After:=Workbooks(Classeur).Sheets("Import")

Par contre chez moi sous cette il fonctionne correctement , y a t'il une option ?

 

[matthieu33]

Re : Probleme erreur execution 9 sur une macro faite chez moi

Bonjour Christ-94,

Quel est le nom du classeur dans la cellule A4 de la feuille "protege" ?
Il faut également vérifier que ce classeur existe bien sur ton disque.
Et enfin, peux-tu vérifier qu'il existe bien une feuille nommée "Import" dans ce classeur ?

Si ce n'est pas ça, peux-tu nous joindre un extrait de tes fichiers ?

Merci

 

[christ-94]

Re : Probleme erreur execution 9 sur une macro faite chez moi

Bonjour

Donc

Quel est le nom du classeur dans la cellule A4 de la feuille "protege" ?
Il faut également vérifier que ce classeur existe bien sur ton disque

Le fichier existe c'est du fichier ouvert est en court d'utilisation

Et enfin, peux-tu vérifier qu'il existe bien une feuille nommée "Import" dans ce classeur ?

la fiche import est crée juste avant

Si ce n'est pas ça, peux-tu nous joindre un extrait de tes fichiers ?

    Sheets.Add.Name = "Import"
    Sheets.Add.Name = "Resa"
    Sheets.Add.Name = "Mise-en-forme"
    
    Classeur = Sheets("protege").Range("A4")'nom du classeur en cour 
    FICHIER1 = Sheets("protege").Range("C2") & "/" & Sheets("protege").Range("E2") ' nom du classeur a ouvrir 
    Workbooks.Open Filename:=FICHIER1
    Sheets("Sheet1").Move After:=Workbooks(Classeur).Sheets("Import")
    Cells.Copy

Je pense que le probleme est une declaration de variable ?


Le probleme est sur cette partie du code

Workbooks(Classeur).Sheets("Import")

dans Workbooks(Classeur)

car si remplace par le nom du classeur plus de probleme .

 

[christ-94]

Re : Probleme erreur execution 9 sur une macro faite chez moi

Voila le fichier

Il faut mettre un ficheir sur c:\tmp et modifier sur la feuille protege

ou modifier le nom du fichier a ouvrir sur la feuille protege

 

[matthieu33]

Re : Probleme erreur execution 9 sur une macro faite chez moi

re,

Voici ce que j'ai détecté :

1/ Remplacer :

Classeur = Sheets("protege").Range("A4")

par

Classeur = Sheets("protege").Range("[COLOR="red"]A3[/COLOR]")

2/ Dans la cellule C2, enlever le "\" et mettre :

FICHIER1 = Sheets("protege").Range("C2") & "[COLOR="Red"]\[/COLOR]" & Sheets("protege").Range

3/ Vérifier que dans le fichier "tmp.xls", il existe bien une feuille nommée "Sheet1"

4/ J'ai essayé ce code et celui-ci fonctionne sans erreur :

    Sheets.Add.Name = "Import"
    Sheets.Add.Name = "Resa"
    Sheets.Add.Name = "Mise-en-forme"
    
    Classeur = Sheets("protege").Range("A3")
    FICHIER1 = Sheets("protege").Range("C2") & "\" & Sheets("protege").Range("E2")
    Workbooks.Open Filename:=FICHIER1
    Sheets("Sheet1").Move After:=Workbooks(Classeur).Sheets("Import")
    Cells.Copy
    Sheets("import").Select
    Range("A1").PasteSpecial Paste:=xlValues

 

[christ-94]

Re : Probleme erreur execution 9 sur une macro faite chez moi

Re-bonjour

Merci pour les infos cela fonction nickel

effectivement il y a une erreur sur

Classeur = Sheets("protege").Range("A3")

je ne vois pourquoi cela marche chez moi

Je teste ce soir , Merci encore