NE PAS lancer une macro si un fichier existe deja

[debutant]

ALLo tout le monde

je lance une macro qui trier des données A LA FIN DE CETTE MACRO je fais un SAVE AS en nommant le fichier avec une date

ActiveWorkbook.SaveAs FileName:='G:\\CFG\\CFG FILERIE\\Desautels\\Planning Desautels - ' & Int(Now()) & '.xls'

ma macro est assez lourd et longue a exécuté donc comment faire que cette macro ne soit pas lancé 2 fois le meme jour

qu est ce que je doit écrire au début de ma macro pour qu'excel puisse vérifier s'il y a deja un fichier avec la date d'aujourdhui dans le répertoire



merci bcp d avance

 

[julos08]

Bonsoir debutant et a tout le forum

Voila un petit code tout bete

If Application.DisplayAlerts = False Then

ActiveWorkbook.SaveAs Filename:= _
'H:\\Documents and Settings\\julos\\Mes documents\\Classeur1.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

Else

MsgBox ('le fichier existe deja')
End If
End Sub


Jai pris lexemple pour le fichier classeur1

tu inscrit ta condition avant lenregistrement de ton fichier


@++

julos08