Discussion :

[Vincent32]

Bonjour,

Je ne vois pas d'où vient l'erreur indiquée dans le titre

Code :

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

1
2
3
4
 Dim W As Workbook
 'Sauvegarde
        ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & E & ".xls"
        Set W = Workbooks(E) 'attribution de la feuille de classeur

la ligne ci dessous est surligné en jaune

Code :

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

Set W = Workbooks(E) 'attribution de la feuille de classeur

Merci de votre aide

[Invité]

Bonjour

Il y a quoi dans E ? A mon avis pas le nom du classeur avec son chemin complet, ce que tu as au-dessus.

Philippe

[nchal]

Bonjour

Je viens d'essayer chez moi et sa marche, je pense que c'est ton "E" qui n'est pas bon. Déclare ton "E" en String aussi, au cas où.

[Theze]

Bonjour,

Essai ceci :

Code :

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

1
2
 
Set W = Workbooks(E & ".xls")

Hervé.

[ZebreLoup]

Pourquoi repasser par le nom ?

Code :

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

Set W = ThisWorkbook

[Vincent32]

Bonjour,

Merci beaucoup pour toutes ces réponses !

J'ai utilisé la solution suivante qui fonctionne parfaitement.

Pourquoi repasser par le nom ?

Code :

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

Set W = ThisWorkbook

Encore merci