sauvegarde de feuilles

A

Arnaud

Guest

• 4 Mai 2004

• #2

salut,

si tes 2 classeurs sont ouvert cela te donnera un truc du stye :

Sheets(x).Select
Sheets(x).Copy Before:=Workbooks(classeur).Sheets(1)

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 4 Mai 2004

• #3

et si le classeur ou je veux sauvegarder n'est pas encore créé donc pas ouvert?

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 4 Mai 2004

• #4

et bien tu le créer et tu le referme

dim fName as String
fName = "toto.xls"
Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:=fName

Workbooks(fName).Close SaveChanges:=False

 

Vote positif 0 Vote négatif