1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
chemin = ActiveWorkbook.Path
[a5].Select 'se mettre automatiquement dans la cellule A5
Dim nom, prenom, site, service, intitule, madate, organisme, objectif1, objectif2, annee As String
annee = [g2]
nom = ActiveCell
prenom = ActiveCell.Offset(0, 1)
site = ActiveCell.Offset(0, 2)
service = ActiveCell.Offset(0, 5)
intitule = ActiveCell.Offset(0, 7)
ActiveWorkbook.SaveAs Filename:= _
chemin & "\" & site & " " & service & "\" & nom & "_" & prenom & "_" & intitule & "_" & annee & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False |
Partager