Eviter effacement fichier ...

yoyo · 30 Août 2004

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 · 30 Août 2004

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 · 31 Août 2004

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

Eviter effacement fichier ...

yoyo

Guest

myDearFriend

Guest

yoyo

Guest

Discussions similaires