Rebonjour
Voici une idée pour pointdeblé
sous le même bouton car autrement je ne sais faire)
Dim N As String
Dim bur As String
Dim nomdos As String
N = Sheets(1).Range('A1').Value & '_' & Sheets(1).Range('A2').Value & '_' & Format(Date, 'dd')
bur = ActiveWorkbook.Path
nomdos = Sheets(1).Range('A2').Value & '_' & Format(Date, 'dd')
MkDir bur & '/' & nomdos
ThisWorkbook.SaveCopyAs FileName:=bur & '/' & nomdos & '/' & N & '.xls'
Bon courage
Dieu nous a donné deux extrémités :
l'une pour s'asseoir, l'autre pour réfléchir.
La vie dépend de celle qu'on utilise :
face on gagne, pile on perd.
[Paul-Emile Victor]
A++
Temjeh
Ps: FIFI GREGRE je te reviens avec une idée