insertion multiple de feuille

[Jahman]

Salut tout le monde,

Need help!

Je sais inserer une feuille Excel dans un autre classeur, maintenant j'aimerai savoir comment inserer une feuille Excel dans tous mes classeurs ouverts, car je ne veux pas tous me taper a la main...

Merci beaucoup de m'aider.

Jahman

 

[CBernardT]

Bonsoir Jahman

Essayes cette macro :

Sub AjouterFeuille()
Dim Ws As Workbook
For Each Ws In Workbooks
If Ws.Name <> ThisWorkbook.Name Then
Ws.Sheets.Add Before:=Worksheets(Worksheets.Count)
End If
Next Ws
End Sub

Cordialement

CBernardT

 

[Jef]

Salut jahman, le forum

essaye c'est lignes :
nb = Application.Workbooks.Count ' Combien de fichier xls ouvert...

For i = 1 To nb
NomWkb = Application.Workbooks.Item(i).Name ' recupere le nom du worbook
'met ton code ici

Next i

dans la boucle, place ton code d'insertion de feuille en fonction de chaque workbook.

Jef

 

[Jef]

Oops j'avais pas vue...

 

[CBernardT]

Bonjour Jef

Accident sur le forum :

Jef et CbernardT s'en sortent sans égratignures ! ouf

Salut

CBernardT