Re Enregistrement VBA

Bonjour à tous et à toutes,

J'ai une demande ... Sous un bouton, j'ai un SaveAs du fichier excel avec une destination et un nom variable (en fonction de la date et d'une cellule). Quelque fois il arrive que les personnes utilisant le fichier enregistrent une fois le fichier, apportent des modifications et reclick sur le bouton SaveAs. Bien entendu Excel renvoi un message d'erreur signifiant que le fichier existe déja.

J'arrive au principal ... Est-il possible, via une macro, de dire a la fonction SaveAs : si le fichier existe, rajoute Version 2 ?

J'éspère avoir été assez clair dans ma demande.

En vous remerciant de votre aide.

Simon

Salut, la réponse est oui, via une fonction du type

Code:

---

1 2 3

Private Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir$(sFichier) <> "" End Function

---

qui te renverra True/False pour le fichier sFichier concerné, à adapter à ton contexte.

Merci de ta réponse rapide... mais cette fonction je l'intègre au this workbook ou a mon bouton ???

désolé je débute et je suis en auto apprentissage ..

Merci

Re, tu l'intègres dans le module ou se trouve ton SaveAs.
Dans ta procédure de SaveAs après avoir récupérer ton nom de fichier
tu appelle cette fonction en lui passant le nom de fichier et suivant le retour True/False tu agis en conséquence pour renommer ton fichier avant de poursuivre la sauvegarde.

Heu ... vraiment navré de ma stupidité ...
En fait j'intègre le saveas sous un bouton xml et je n'ai jamais utilisé private function.
J'avoue avoir du mal à comprendre l'endroit ou le mettre
Voici mon code :

Code:

---

1 2 3 4 5 6

'Callback for bt4 onAction Sub Save(control As IRibbonControl) ThisWorkbook.SaveCopyAs Filename:="C:\Documents and Settings\Exo.B\Mes documents\XXXX - LOT " & Range("C6").Value & " du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xlsm" rep = MsgBox("Le fichier est sauvegardé sous rapport Excel CCC") Application.Quit End Function

---

Vraiment merci de ton aide

Re, qqch dans le genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Sub Save(control As IRibbonControl) Dim sNomFichier As tring sNomFichier = "C:\Documents and Settings\Exo.B\Mes documents\XXXX - LOT " & Range("C6").Value & " du " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xlsm" If ExistenceFichier(sNomFichier ) = True Then ' ...... End If ThisWorkbook.SaveCopyAs Filename:=sFichier rep = MsgBox("Le fichier est sauvegardé sous rapport Excel CCC") Application.Quit End Function   Private Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir$(sFichier) <> "" End Function

---

Sinon tu changes le nom de ton fichier avec un format yyyymmdd hh:mm:ss ce qui supprimera le probleme du suivi de n° de version qui s'avérera lourd : que se passe t-il s'il advient que la dernière version est par exemple la 11 mais que les versions 5 à 8 ont été effacées ?

Remplace

Code:

---

& Day(Date) & "-" & Month(Date) & "-" & Year(Date) &

---

par qqch du genre

Code:

---

& Format(Now, "yyyymmdd hh:mm:ss") &

---

C'est pas con...

J'arrive pas à adapté le premier code je vais essayer le changement de format c'est vrai que ça doit être plus simple ...

Un grand merci à toi .

Bonjour,

Le fait de passer en format date + heure à résolu mon problème.

Merci