Discussion :

[esse2016]

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 :

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
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

[pijaku]

Bonjour,

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

Que fait, entre autre, la ligne :

Code :

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

ActiveWorkbook.SaveAs (Chemin)

Elle lance la procédure événementielle

Code :

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

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.

[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

[pijaku]

Regarde dans le module ThisWorkbook les événements mis à ta disposition.
Tu trouveras, entres autres : Workbook_BeforeClose(), Workbook_SheetActivate() etc...

[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

[pijaku]

Code :

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

Workbook_BeforeClose()

Avant la fermeture du classeur.
Le soir, tu fermes ton classeur et il s'enregistre bien comme tu veux...