Discussion :

[Nathan_8569]

Bonjour,

Pour simplifier mon programme, j'ai ajouté la ligne suivante :

Code :

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

1
2
 
Set monClasseur = Application.Workbooks.Item("Classeur_traitement.xlsm")

J'utilise cette ligne afin de pouvoir écrire le code suivante :

Code :

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

1
2
3
4
5
6
 
Dim a 
a=1
Set sheetTOcreate = monClasseur.Worksheets.Add(After:=monClasseur.Worksheets.Item(monClasseur.Worksheets.Count))
sheetTOcreate.Name = "Image_" & a 'changement de nom
Feuille_tableau.Rows(1).Copy Destination:=sheetTOcreate.Cells(1, 1) 'ligne qui copie la ligne du tableau dans la feuille créée.

Cependant le problème est que la macro où est contenu cette ligne ne fonctionne plus dès que je change le nom du classeur. (Ce que je comprend très bien)

Comment serait-il possible de faire pour éviter d'avoir ce problème et pour quand même pouvoir effectuer la 2ème ligne de code?

Merci d'avance de votre aide !

[halaster08]

Bonjour,

Essaye:

Code :

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

Set monClasseur = Application.Workbooks.Item( thisworkbook.name )

[Nathan_8569]

Et bien voila, tout simplement!
Merci beaucoup pour ton aide !

[Marc-L]

Bonjour, bonjour !

La variable monClasseur est franchement inutile, utiliser directement ThisWorkbook ‼   Juste en consultant l'aide VBA interne …

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …