archiver une feuille

[Jean-Paul]

Re bonjour a tous,pouriez vous svp regarder mon racourcis clavier

je voudrais faire une copie d'une feuille qui est dans un classeur
j'usque l'à tout va bien , le problemme c'est que je voudrais donner un nom automatique , et ce nom est un no de facture qui se trouve dans la cellule
p6.

Touche de raccourci du clavier: Ctrl+z
'
ActiveWindow.SmallScroll Down:=0
Range("H3:T44").Select
ActiveWindow.SmallScroll Down:=-22
Selection.Copy
Application.CutCopyMode = False
ChDir "D:\Mes Documents\NETTOYEUR\Archive"
ActiveWorkbook.SaveAs Filename:="D:\Mes Documents\NETTOYEUR\Archive\range p6.xls"
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("P9:S10").Select
End Sub

l'erreur se trouve je crois dans
Document\nettoyeur\archive\range p6 (c'est l'à que tout bloque) je crois que range p6 n'est pas bon
svp pourriez-vous me dire quoi changer
merci

 

[Cyril]

Essaye ca !
ActiveWindow.SmallScroll Down:=0
Range("H3:T44").Select
ActiveWindow.SmallScroll Down:=-22
Selection.Copy
Application.CutCopyMode = False
ChDir "D:\Mes Documents\NETTOYEUR\Archive"
ActiveWorkbook.SaveAs Filename:="D:\Mes Documents\NETTOYEUR\Archive\" & cStr([P6]) &".xls"
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[Jean-Paul]

Bonjour Cyril et merci de répondre si rapidement

j'ai essayer mais j'ai une erreur de syntaxe

pourait tu vérifier svp
merci encore

 

[Cyril]

oui dsl juste un pti trait comme koi tout é important


ActiveWindow.SmallScroll Down:=0
Range("H3:T44").Select
ActiveWindow.SmallScroll Down:=-22
Selection.Copy
Application.CutCopyMode = False
ChDir "D:\Mes Documents\NETTOYEUR\Archive"
ActiveWorkbook.SaveAs Filename:="D:\Mes Documents\NETTOYEUR\Archive\" & cStr([P6]) &".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Voila Jp aplus

 

[Jean-Paul]

Merci Cyril ca fonctionne bien