faudra t il a chaque fois entree le nom du client pour la sauvegarde ou est ce que ca prendra auto celui de l'entete de mon devis ?
Non, Bbil a visiblement ouvert ton fichier, moi pas.
Utilise sa syntaxe :
ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
en adaptant la ligne et la colonne correspondant à l'emplacement du nom saisi.
Pour y voir plus clair, si tu as le nom + le prénom en G4 séparé d'un espace (exemple pris par bbil) tu peux faire :
1 2 3
| NomFich = Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy") 'Qui remplace l'espace par un tiret
'puis
ActiveWorkbook.SaveAs stRep & NomFich & ".xls" |
pour voir ce que tu fais, insère la ligne
msgbox stRep & NomFich & ".xls"
entre les deux précédentes.
Ensuite, tu nous indique tes besoins
A+
NB - je ne peux pas ouvrir les .rar (et pas le temps de chercher l'exe
Bon, ok, j'arrive toujours avec une guerre de retard mais il faut vraiment que je m'en aille avant de me retrouver coincé dans le bâtiment...
Partager