Discussion :

[Exosporium]

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Exosporium]

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

[kiki29]

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.

[Exosporium]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Re, qqch dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par qqch du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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