1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| 'On définit les variables
Dim ville As String, metier As String, date_enquete As String
Dim emplacement_fichier As String, NomDossier As String
'Emplacement ou l'on veut enregistrer le fichiers, Si le dossier n'éxiste pas on le créer, _
Sinon on ne fait que définir l'emplacement ou sera sauvegarder les fichiers Excel
If Dir(ActiveWorkbook.Path & "\Sauvegarde", vbDirectory) = "" _
Then MkDir ThisWorkbook.Path & "\Sauvegarde"
emplacement_fichier = ActiveWorkbook.Path & "\Sauvegarde\"
'On va chercher dans la feuille1 le nom de la ville, _
du metier et la date du document ; on met le tout en majuscule
ville = UCase(Sheets("Feuil1").Range("C36").Value)
metier = UCase(Sheets("Feuil1").Range("C37").Value)
date_enquete = UCase(Sheets("Feuil1").Range("C38").Value)
'On remplace les / de la date par des -, sinon on ne peux pas sauvegarder _
/ = caractère interdit pour un fichier sous windows
date_enquete = Replace(date_enquete, "/", "-")
'On sauvegarde le fichier à l'emplacement définit ci dessus puis on renseigne son nom
ActiveWorkbook.SaveCopyAs emplacement_fichier _
& ville _
& "_" & metier _
& "_" & date_enquete _
& ".xls" |
