Changer la destination

[Nono91]

Private Sub CommandButton11_Click()
MsgBox "Le Logiciel va faire une copie du devis N° " & TextBox1.Value & " pour la Société " & TextBox2.Value & " dans " & Range("Calculs!J1").Value, vbInformation, T & "GARDER UNE COPIE"
Sheets("Devis").Copy
Sheets("Devis").SaveAs ("C:\ Devis Société\DUPPLICATA du Devis N° " & TextBox1.Value & " pour la Société " & TextBox2.Value)
Application.DisplayAlerts = False
MsgBox "Copie enregistrée dans " & Range("Calculs!J1").Value & " !", , T
Application.Quit
End Sub


Bonjour à toutes et à tous
Voici quelques lignes qui permettent d'envoyer une copie de feuill dans un dossier. Serait'l possible de remplacer -Saveas ("C:\ Devis Société- par la valeur d'un textbox, sans toucher à la suite de la ligne, soit : \DUPPLICATA du Devis N°" & .....

Pour info, c'est la suite des mes questions d'hier sur la création de Dossier à partir d'une feuille Excel (enfin, d'un USF plutôt).

Merci à Tous


Bruno