Sauvegarde

[Billysteph]

Bonjour le forum,

J'ai un fichier excel ouvert et je voudrai en faire une copie dans un repertoire bien precis.
J'utilise en VBA SaveCopyAs, jusque la, ca marche tres bien.
Ce que je voudrai faire, c'est que si il y a deja ce fichier qui est existant dans mon fameux repertoire, il ne me copie pas le fichier une seconde fois, je veux qu'il laisse ma copie intact, et en me mettant un message d'erreur.
Si quelqu'un a une idee ...
Merci

 

[Yeahou]

Bonjour Billysteph, le forum

utilise une commande du genre

if dir(nomfichieravecchemin, vbnormal)="" then
'SaveCopyAs
else
msgbox nomfichieravecchemin & " existe déja"
end if

Cordialement, A+

 

[Billysteph]

Rebonjour le forum, Yeahou,

Merci pour ta reponse, j'ai trouver en fait la solution.
Je vous joins ce que j'ai fait, peut etre que cela peut servir a quelqu'un par la suite....
Merci encore

Dim nomfichier As String
Dim fichier As String
Dim dircourant As String
Dim compteur As Integer
nomfichier = Range("NumCde") & "_" & Range("service")
dircourant = "C:\Documents and Settings\..........\"
If Mid(dircourant, Len(dircourant), 1) <> "\" Then dircourant = dircourant & "\"
If Trim(nomfichier) <> "" Then
fichier = Dir(dircourant & nomfichier & "*.xls")
If fichier = "" Then
ActiveWorkbook.SaveCopyAs Filename:=dircourant & nomfichier & ".xls"
Else
MsgBox "Ce fichier existe deja"
Exit Sub
End If
End Sub