Re:macro \"Enregistrer sous\" très spéciale
Me revoilà
Je viens de regarder ton aide chris mais il y a un bloquage.
ChDir _
'C:\\Documents and Settings\\'
nom = 'XX' & Range('A1').Value & Range('A2').Value & '.xls'
ActiveWorkbook.SaveAs Filename nom & ,fileformat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=FalseApplication.WindowState = xlNormal
ActiveWorkbook.Close
Dans visual, La ligne en verte ne lui plait pas, il m'affiche erreur de compilation avec une précision erreur de syntaxe.
PS : 'ChDir' signifie bien l'emplacement où je souhaite enregistrer mon fichier ?
Je viens de revoir mon code :
Sub essai()
ChDir _
'C:\\Documents and Settings\\'
nom = 'XX' & Range('A1').Value & Range('A2').Value & '.xls'
ActiveWorkbook.SaveAs Filename:=nom & , fileformat:=
xlNormal , Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
Application.WindowState = xlNormal
ActiveWorkbook.Close
End Sub
le probleme c'est la virgule en rouge
J'ai trouvé mon pb : en fait il ne faut pas mettre '&'
ActiveWorkbook.SaveAs Filename:=nom , fileformat:=
Et ca fonctionne !!!
Mc chris, tu m'as bien aidé
Message édité par: nashou, à: 26/07/2005 09:13