Pb sur la creation d'un nouveau workbook (VBA)

[nougitch]

Bonjour,

Je cree un nouveau classeur a partir d'une feuille existante. Le fichier est bien cree mais le probleme c'est que lorsqu'il s'enregistre, il me ferme l'original et m'ouvre le nouveau.

Auriez-vous une idee ?
Merci par avance.
Cdt,

Voici le code :

Sub MyTest()
    
    Set NewWorkbook = ActiveWorkbook
    NewWorkbook.SaveAs Filename:="C:\temp" & "\MyNewFile.xls"
    Set NewWorkbook = Nothing

End Sub

 

[PascalXLD]

Re : Pb sur la creation d'un nouveau workbook (VBA)

Bonjour

A mon avis là tu ne nous a pas mis tout le code

Tu peux tout mettre STP

 

[nougitch]

Re : Pb sur la creation d'un nouveau workbook (VBA)

Pardon Pascal.
C'est plus explicit avec un exemple concret.
De plus, j'aimerais qu'il ne me copie que la premiere feuille dans le nouveau classuer.
Merci pour ton aide !

 

[PascalXLD]

Re : Pb sur la creation d'un nouveau workbook (VBA)

Re

essaies en modifiant ton code ainsi

Sub MyTest()
    
   
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\temp" & "\MyNewFile.xls"
    ActiveWorkbook.Close

End Sub

 

[nougitch]

Re : Pb sur la creation d'un nouveau workbook (VBA)

Parfait, genial !!!
Merci bcp Pasca.