ActiveWorkbook

[Tito]

Bonjour à tous,

Je n'arrive désespérément pas à mettre mon ActiveWorkbook dans une variable.

Je fais Classeur = Application.ActiveWorkbook
ça marche mais je peut pô m'en servir.

With Classeur
.Sheets.Add after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = "Total"
End With

CA PLANTE !!!

Il me met : "L'objet associé à with doit être de type défini par l'utilisateur, Objet ou Variant"

Si vous savez pourquoi .
Merci
Tito

 

[A_Binouze_Drinker_Among_Others]

bonjour

set Classeur = ActiveWorkbook

With Classeur
.Sheets.Add after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = "Total"
End With


ou encore
Classeur=activeworkbook.name
With workbooks(Classeur)
.Sheets.Add after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = "Total"
End With

bye

 

[Tito]

Merci beaucoup

Tito