Eviter effacement fichier ...

[yoyo]

bonsoir le forum ...

J'ai une macro qui me permet d'enregistré un fichier selon
le contenu de plusieurs celulles :

Private Sub Sauvegarder_Click()
Dim mynam As String
mynam = [A10] & "-" & [E16] & "-" & Format([C17], "ddmmyyyy")
Application.DisplayAlerts = False
MsgBox mynam
ActiveWorkbook.SaveAs mynam
Application.DisplayAlerts = True
End Sub

Cela fonctionne super bien sauf ... Si l'on creé le meme jour
plusieurs documents...

Y'a til un moyen de faire en sorte qu'il y'ai une verification si le nom
de fichier existe renomé le nouveau avec un (2) par exemple.

Ou autrement y'a t'il un moyen d'avoir dans une celulle, un compteur
ce qui permettrait d'éviter des doublons ...

Merci par avance ...

 

[myDearFriend]

Bonsoir Yoyo, le Forum.


Yoyo, tu peux essayer quelque chose comme ça :

Public Sub Sauvegarder_Click()
Dim mynam As String
Dim N As Byte
Dim Num As String
Dim Chemin As String
Dim Fichier As String

Chemin = "C:\"
Fichier = Range("A10") & "-" & Range("E16") & "-" & Format(Range("C17"), "ddmmyyyy")

Do
Num = IIf(N > 0, " (" & CStr(N) & ")", "")
mynam = Fichier & Num & ".xls"
N = N + 1
Loop Until Dir(Chemin & mynam) = ""

Application.DisplayAlerts = False
MsgBox Chemin & mynam
ActiveWorkbook.SaveAs Chemin & mynam
Application.DisplayAlerts = True
End Sub



Espérant que cela puisse t'aider....

Cordialement,
Didier_mDF

 

[yoyo]

Merci beaucoup c'est pil poil ce que j'avais besoin...