Comment définir le chemin d'enregistrement d'un new classeur

[thuan]

Bonjour le forum,
j'aimerais créer un nouveau classeur et spécifier le chemin d'enregistrement de celui ci. voila mon code mais il ne marche pas

Private Sub CommandButton1_Click()
Set newBook = Workbooks.Add
With newBook
.SaveAs "I:\Production\HBU\Sauvegarde\Thuan-hai\*"
.SaveAs Filename:=TextBox1.Value & xls
End With
End Sub

Merci pour votre aide

 

[Arnaud]

salut,

l'erreur viens surement du fait que quand tu fais ton saveAs, ton classeur actif est le nouveau classeur et quand tu écris 'TextBox1.Value' cela prend le classeur actif donc plus le bon.


essaye plutot un truc du style.

Dim chaine As String

chaine ="I:\Production\HBU\Sauvegarde\Thuan-hai\" & TextBox1.Value

Set newBook = Workbooks.Add
newBook.SaveAs chaine

 

[thuan]

Bonjour Arnaud, le forum
Un grand merci arnaud pour ton aide