ActiveWorkbook

T

Tito

Guest
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

A_Binouze_Drinker_Among_Others

Guest
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
 

Discussions similaires


Haut Bas