Nom de la sauvegarde

[WDAndCo]

Bonsoir le Forum

Toutes les semaines je sauve un fichier a l'aide de cette Macro, et toutes les semaine je dois le renommer en "Secteur SM S22" par exemple et en Info!E20 j'ai 22 comment faire pour remplacer les 00 par le numéro de la semaine ?
j'ai fais "F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S"&Info!E20&".xls" cela ne marche pas !

ActiveWorkbook.SaveAs FileName:= _
"F:\WDAndCo\Personnel\Semaines CRU 2007\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

D'avance merci et bonne soirée a vous !

 

[ChTi160]

Re : Nom de la sauvegarde

Salut Dominique
Arffffff je viens de revoir ce fil

ton problème vient surement d'un nom ou de plage ou de feuille qui ne correspond pas

moi j'ai mis cela en simplifiant

Sub test()
Dim x As String
x = "Secteur SM" & Format(Sheets("Feuil1").Range("A1").Value, "00") & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\" & x _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

ensuite pour cette définition de plage je pense qu'il faut essayer de respecter un certain ordre (Alphabétique) Lol
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W 3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4, Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3: AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3 :I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:A S4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
3:35 et 3:34 et AS3:A S4 (espace) voir à modifier ces erreurs dans la macro
Bonne fin de Journée