Cherche à enregistrer des fichiers en changeant les noms des fichiersRésolu

Question

Bonjour, 

je suis d&#233;butant dans l'environnement VB, je cherche &#224; enregistrer des
fichiers excel avec des noms diff&#233;rents issues de r&#233;ponses saisies
pr&#233;c&#233;demment dans un userform.

voici mon prgm:



Private Sub CommandButton1_Click()

Dim num As String

Dim wkc As String



num = TextBox1.Value

wkc = ComboBox1.Value



ChDir "C:\Documents and Settings\p&#218;p&#218;\Bureau"

    ActiveWorkbook.SaveAs Filename:= _

        "C:\Documents and Settings\p&#218;p&#218;\Bureau\Auditnum-wkc.xls", FileFormat:=xlNormal,

        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

        CreateBackup:=False



End Sub



Avec ce prgm, bien entendu je n'enregistre que le fichier au nom de
auditnum-fichier, ce qui est normal puisque c'est une chaine de
caract&#232;re, 

si qqu'un a une astuce pour pouvoir effectuer cette commande.



Merci d'avance;

cs_Willi · Accepted Answer

'Lut,
Il suffit simplement d'&#233;crire le nom de tes variables.

num =  TextBox1. Text 
wkc  = ComboBox1.Value
.......
ActiveWorkbook.SaveAs Filename:=  _
        "C:\Documents and Settings\p&#218;p&#218;\Bureau\Audit"  & num & "-" & wkc &  ".xls", FileFormat: =xlNormal,
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
.......

payhpayh7 · Answer

merci beaucoup, c'est parfait!!!!

Cherche à enregistrer des fichiers en changeant les noms des fichiers

2 réponses

Discussions similaires