SaveAs - Sauvegarde non désirée. [Résolu]

[Betadine]

Bonjour à tous.

Lorsque j'utilise SaveAs, j'ai la fenêtre d'enregistrement qui s'ouvre, me plaçant par défaut dans "mes documents" et me proposant le nom NomDuFichier par défaut.

Mon souci est que dès que cette boite apparait, mon fichier s'enregistre... alors que je n'ai pas encore cliqué sur Oui, ni Non.
Comment faire pour tester la réponse de la fenêtre ?
Il faut probablement incorporer un "If quelquechose"... mais lequel ?

Merci.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim DateDuJour As String
'Formatage de la date pour éviter les "/" car ça passe mal dans les fichiers...
DateDuJour = Format(Date, "yyyymmdd")
'Rajouter "Fichier_" devant.
NomDuFichier = "Fichier_" & DateDuJour
 
'Si le contenu existe (sous entendu différent de 0) alors l'ajouter à la fin de la chaine
If Len(ContenuTextBoxVille) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxVille
End If
If Len(ContenuTextBoxSite) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxSite
End If
NomDuFichier = NomDuFichier & ".doc"
 
On Error Resume Next
 
    ActiveDocument.SaveAs FileName:=NomDuFichier
    Application.Dialogs.Item(wdDialogFileSaveAs).Show

[Betadine]

Je pense être sur une piste...

Je crois que le Application.SaveAs doit se trouver après Application.Dialogs.Item(wdDialogFileSaveAs).Show, mais dans ce cas, la fenêtre de dialogue ne connait pas le nom par defaut que je veux attribuer...

Qu'en pensez vous ?

Merci.

[Betadine]

J'ai trouvé la solution... ça fonctionne comme je veux... mais je ne sais pas pourquoi car je ne vois pas de grosse différence a part la présence du with.



J'ai remplacé les deux dernières lignes

Code :

1
2
ActiveDocument.SaveAs FileName:=NomDuFichier
Application.Dialogs.Item(wdDialogFileSaveAs).Show

par :

Code :

1
2
3
4
With Dialogs(wdDialogFileSaveAs)
     .name = NomDuFichier
     .Show
End With

...toutefois, si quelqu'un souhaite m'expliquer, je suis preneur.

Merci à tous.

[carden752]

Bonjour,

Tu fais deux choses différentes :
D'abord, tu sauvegardes le fichier

Code :

ActiveDocument.SaveAs FileName:=NomDuFichier

et ensuite tu appelle la boite de dialogue enregistrer sous...

Code :

Application.Dialogs.Item(wdDialogFileSaveAs).Show

[Betadine]

Aaah. D'accord.

Alors qu'avec le with je me contente d'appeller la fenêtre en lui passant des arguments défini par moi et de faire le reste à la main ensuite.

ok. Merci beaucoup.

[bakaladiakouba]

Bonjour Betadine,

Si je comprends ton code à pour fonction : d'enregistrer un document dans un répertoire si il y existe déjà il ajoute un chiffre au nom du code.

Je serai intéressé par ton code peux-tu le publier en entier stp ?

Merci d'avance.

[Betadine]

Oulà... 1000 excuses pour le retard...

Il est peut etre trop tard Bakaladiakouba, si c'est le cas j'en suis désolée.

Pour le code, non, il n'ajoute pas un numéro, il reprend les données saisies par l'utilisateur.

Le voici. J'ai créé un User form contenant diverses textbox.
En premier je récupère le contenu de la textbox que je met dans une variable "ContenuTextBoxSite" par exemple...

Si la variable n'est pas vide, je l'utilise pour former le nom final du fichier.

Et je fais ensuite ouvrir une fenetre windows qui va permettre a l'utilisateur d'indiquer le chemin où va aller s'enregistrer le fichier. Si jamais je veux l'imposer, il me suffit d'utiliser la ligne que j'ai ajoutée en commentaire.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub BoutonSauvegarder_Click()
Dim DateDuJour As String
DateDuJour = Format(Date, "yyyymmdd")
 
NomDuFichier = DateDuJour
If Len(ContenuTextBoxSite) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxSite
End If
If Len(ContenuTextBoxVille) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxIntervenant
End If
NomDuFichier = NomDuFichier & "_Compta.doc"
 
On Error Resume Next
    'Impose l'enregistrement à l'endroit et au nom défini.
    'ChangeFileOpenDirectory "D:\azer\"
    'ActiveDocument.SaveAs FileName:=NomDuFichier
 
     With Dialogs(wdDialogFileSaveAs)
     .name = NomDuFichier
     .Show
     End With
 
BoutonExportPDF.Visible = True
 
End Sub