Cherche à enregistrer des fichiers en changeant les noms des fichiers

[Résolu]
Signaler
Messages postés
7
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
29 octobre 2008
-
Messages postés
7
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
29 octobre 2008
-
Bonjour,

je suis débutant dans l'environnement VB, je cherche à enregistrer des
fichiers excel avec des noms différents issues de réponses saisies
précé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ÚpÚ\Bureau"

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\pÚpÚ\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ère,

si qqu'un a une astuce pour pouvoir effectuer cette commande.



Merci d'avance;

2 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
'Lut,
Il suffit simplement d'écrire le nom de tes variables.

num = TextBox1. Text
wkc = ComboBox1.Value
.......
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\pÚpÚ\Bureau\Audit" & num & "-" & wkc & ".xls", FileFormat: =xlNormal,
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
.......
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
29 octobre 2008

merci beaucoup, c'est parfait!!!!