[WD-2010] Recherche d'un répertoire [Résolu]

[Pasqualini]

Bonjour,

est-il possible de choisir, avec une boite de dialogue, un répertoire.
J'ai bien vu qu'avec Dialogs(wdDialogFileSaveAs) il était possible d'enregistrer un fichier sous un nom donné dans un répertoire choisi.

Ce que je voudrais, c'est ne pas enregistrer le fichier, mais récupérer le chemin.

Est-ce possible ?

Autre question :
avec Dialogs(wdDialogFileSaveAs) est-ce qu'il y a une variable indiquant que le fichier doit être enregistrer au format *.PDF ?

Merci

[Philippe JOCHMANS]

Bonjour

Pour les répertoires essaye :

Code :

Application.FileDialog(msoFileDialogFolderPicker).Show

Par contre pour le PDF, cela dépend de pleins de choses, entre autre ta version de Word (que tu aurais du nous indiquer).

Philippe

[Pasqualini]

Merci, je vais essayer.

J'utilise Word 2010.

[pgz]

Bonsoir.

Si tu objectif est d'enregistrer au format pdf, je te suggère

• d'ouvrir un sélecteur de dossier comme te l'a proposé Philippe Jochmans
• puis de récupérer le chemin du dossier choisi
• et là de passer une instruction SaveAs, avec FileFOrmat := wdFormatPDF

COrdialement,

PGZ

[Pasqualini]

Lorsque j'utilise

Code :

1
2
3
4
 Dim Dossier As String
    Application.FileDialog(msoFileDialogFolderPicker).Show
    Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
    MsgBox Dossier

Je n'obtiens pas le dossier choisi mais le dossier parent. Je m'explique :
Je voudrais choisir le dossier
E:\Temp\PDF

En cliquant sue PDF, j'obtiens E:\Temp

Pour obtenir E:\Temp\PDF, il faudrait que je clique sur un dossier à l'intérieur du dossier PDF

Est-ce que je fais une erreur, ,ou est-ce qu'il y a une option supplémentaire ?

Merci

[Pasqualini]

Finalement,j'ai trouvé une solution :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub A_PDF()
'
' A_PDF Macro
'
'
Dim NomFichier As String
NomFichier = ActiveDocument.Name
Dim intPos As Integer, Longueur As Integer, Droite As Integer
intPos = InStrRev(NomFichier, ".")
Dim NouveauNomFichier As String
NouveauNomFichier = Left(NomFichier, intPos - 1) + ".pdf"
'MsgBox (NouveauNomFichier)
Dim Repertoire As String
 
 With Application.FileDialog(msoFileDialogFolderPicker)
        'Définit un titre pour la boîte de dialogue
        .Title = "Le tite de la fenêtre:"
        'Affiche la boîte de dialogue
        .Show
 
        'Affiche le nom du dossier sélectionné
        If .SelectedItems.Count > 0 Then
        RepertoirePdf = .SelectedItems(1)
         End If
 
 End With
 
 
'ActiveDocument.SaveAs FileName:=RepertoirePdf & "\" & "n" & NouveauNomFichier, FileFormat:=wdFormatPDF
 
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
RepertoirePdf & "\" & NouveauNomFichier, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
 
End Sub