Nom de la sauvegarde

WDAndCo · 9 Juin 2007

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 · 25 Juin 2007

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

Nom de la sauvegarde

WDAndCo

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Discussions similaires

Nom de la sauvegarde

WDAndCo

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency