sauvegarde de fichier par Workbook_beforesave

Version imprimable

Bonjour,

mon soucis est qu'à partir de mon code le fichier que je souhaite enregistrer se fait 2 fois

je pense que l'événement Workbook_beforsave enregistre dans le chemin désiré
puis il m'ouvre la boîte de dialogue avec le chemin souhaité et me dis que le fichier existe déjà

Qu'est ce qui n'est pas correct dans mon code, merci pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Workbook_beforesave(ByVal SaveasUI As Boolean, cancel As Boolean) Dim Repertoire As String Dim Fichier As String Dim Chemin As String cancel = False If SaveasUI = False Then Exit Sub End If Fichier = Range("D29").Value & "_" & Range("D105").Value & "_" & Range("D72").Value & "_" & "sec" 'récupérer le nom du fichier Repertoire = "c:\Expertise\archivage auto (test)\sec" Chemin = Repertoire & "\" & Fichier 'Application.FileDialog(msoFileDialogSaveAs).InitialFileName = Chemin 'Application.FileDialog(msoFileDialogSaveAs).Show ActiveWorkbook.SaveAs (Chemin) End Sub

13/09/2018, 15h31
pijaku

Bonjour,

Cette question va bien faire rire unparia.
A moins qu'elle ne le désole...

Que fait, entre autre, la ligne :

Code:

ActiveWorkbook.SaveAs (Chemin)

Elle lance la procédure événementielle

Code:

Private Sub Workbook_BeforeSave(ByVal SaveasUI As Boolean, cancel As Boolean)

D’où l'enregistrement par deux fois.

Change d'événement.
Beforesave n'est pas faite pour enregistrer, mais plutôt pour empêcher un enregistrement intempestif nuisible au classeur.
13/09/2018, 15h59
esse2016

Ok merci

c'est ce que j'avais compris. Il faut que je détecte quand le filedialog "enregistrer sous" est sollicité alors je change le nom du fichier par celui dans une cellule. Mais je ne vois pas (pour le moment) où et quoi il faut utiliser pour cela...

je cherche...

dit autrement. Lorsque je vais dans le menu fichier puis enregistrer puis une feneêtre s'ouvre (je pense que c'est windows qui génère cela) à ce moment comment changer le nom du fichier à enregistre par défaut. Je sais qu'il faudra utiliser le initialFilename = chemin mais c'est savoir que la fneêtre de filedialog est active ou sollicité c'est ce truc qui m'emmerde en fait :)
13/09/2018, 16h13
pijaku

Regarde dans le module ThisWorkbook les événements mis à ta disposition.
Tu trouveras, entres autres : Workbook_BeforeClose(), Workbook_SheetActivate() etc...
13/09/2018, 16h19
esse2016

Pijaku,

en fait j'ai regardé dans le listing des méthodes (si je ne me trompe pas) du workbook

mon point dur est ici c'est à dire
je suis sur ma feuille
toutes les cellules sont remplies.
Menu fichier
enregistrer sous
renseigne le nom du fichier grace à certaines cellules
clique sur ok
ET LA JE ME DIS "tiens je me suis trompé" je reviens sur ma feuille
je change un élément de ma cellule
et je recommence (menu fichier ...)
et la j'ai envie de rester sur le feuille toute la journée et puis le soir je décide de fermer le excel

c'est quel événement le plus approprié... et le MSDN de microsoft est compliqué pour s'y perdre :)
13/09/2018, 16h20
pijaku

Code:

Workbook_BeforeClose()

Avant la fermeture du classeur.
Le soir, tu fermes ton classeur et il s'enregistre bien comme tu veux...
13/09/2018, 16h26
esse2016

j'ai du mal m'exprimer.

Il est naturel (un réflexe) d'aller dans le menu fichier puis faire enregistrer sous. Ce fichier sera utilisé par d'autres collègues. Donc c'est intuitive de procéder ainsi, il me semble.

Workbook activate j'ai essayé cela ouvre des fenetres intempestives... donc j'oublie cette méthode

Dis moi si je me trompe mais lorsqu'on la fenetre enregistrer sous s'ouvre cet un objet de windows non ? et c'est sur cet objet que je soushaite modifier le nom, c'est la que j'ai du mal.
13/09/2018, 16h33
pijaku
Tu ne peux pas intercepter l'ouverture de cette boite de dialogue.

Ta solution est de :
1. créer un bouton Enregistrer sous,
2. y placer ton code de sauvegarde,
3. former tes collègues à utiliser ce bouton, à coups de trique s'il le faut!
13/09/2018, 16h36
esse2016

ok

mais allant sur l'aide en ligne de developpez.net:
https://silkyroad.developpez.com/VBA...lasseur/#LII-7
il indique bien que
Le paramètre SaveAsUI renvoie VRAI si la boîte de dialogue "Enregistrer Sous" va être affichée.

on ne pas s'en dépatouiller avec ça ?

Tu peux :
> savoir qu'elle va s'ouvrir,
> changer le répertoire par défaut
mais pas nommer le fichier.
Du moins, pas à ma connaissance.

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Fichier As String, Repertoire As String
   If SaveAsUI Then
      Fichier = Range("D29").Value & "_" & Range("D105").Value & "_" & Range("D72").Value & "_" & "sec" 'récupérer le nom du fichier
      Repertoire = "C:\Expertise\archivage auto (test)\sec"
      ChDir Repertoire
   End If
End Sub

14/09/2018, 08h36
esse2016

désolé mais ça ne marche pas
14/09/2018, 10h07
pijaku

Pas bonjour non plus!

Ben non ça ne marche pas.
je te l'ai dit :

Citation:

Tu peux :
> savoir qu'elle va s'ouvrir,
> changer le répertoire par défaut
mais pas nommer le fichier.
Du moins, pas à ma connaissance.
14/09/2018, 17h32
esse2016

Desole pour le bonjour sincerement

Du coup je cloture car le problème ne peut etre resolu.

Merci tout de meme pour le temps passe.