[VBA-W]Options de sauvegarde [Résolu]

[ippo_master]

Etant pleinement satisfait des réponses données que je me sens obligé de revenir vers vous pour un autre problème (ou du moins ça en est un pour moi )
Je me prépare à sauvegarder via vba (basé sur l'évènement de fermeture de Word) un document word selon un nom de fichier donné par l'utilisateur lors de l'ouverture.
Au moment de la sauvegarde, je voudrais vérifier que le document que je m'apprête à sauvegarder n'existe pas déjà. Si c'est le cas, il suffit de prévoir la msgbox qui va bien.

Auriez-vous des pistes pour moi ? Voilà où j'en suis :

Code :

1
2
3
4
5
6
7
8
Sub Autoclose()
Dim NomFichier, Chemin As String
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select
NomFichier = Selection.Tables(1).Cell(2, 2).Range.Text
NomFichier = Left(NomFichier, Len(NomFichier) - 2)
Chemin = ActiveDocument.Path
ActiveDocument.SaveAs FileName:=Chemin & "\" & NomFichier
End Sub

[Heureux-oli]

Tu peux t'inspirer de ce tuto
http://warin.developpez.com/access/fichiers/#LIII-B-1
J'ai fait pointer vers la section qui devrait te convenir.

[ippo_master]

Suite à ce lien et quelques recherches, voilà où j'en suis

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Autoclose()
Dim NomFichier, Chemin, Auteur, DateJ, HeureJ, RechercheF, Question As String
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select
NomFichier = Selection.Tables(1).Cell(2, 2).Range.Text
NomFichier = Left(NomFichier, Len(NomFichier) - 2)
Chemin = ActiveDocument.Path
'Vérifier si le document existe déjà
Dim Filter As String
RechercheF = Dir(Chemin & "\")
While RechercheF <> ""
    If RechercheF = NomFichier & ".doc" Then
        Question = MsgBox("Voulez-vous remplacer le document existant " & NomFichier & ".doc ?", vbExclamation + vbYesNo, "Avertissement:")
        If Question = vbYes Then
        'ActiveDocument.SaveAs FileName:=Chemin & "\" & NomFichier
        End If
        If Question = vbNo Then Exit Sub
        End If
RechercheF = Dir
Wend
End Sub