Ouvrir Boite de dialogue pour pdf [Résolu]

[timtof2011]

bonsoir,

je cherche à partir d'un usf avec un commandbutton ouvrir une boite de dialog dans un répertoire bien précis et ceci pour les fichier pdf.

j'ai un exemple que je comprends mais pour enregistrer en pdf...j'essaye de faire la même chose mais pour ouvrir cette boite de dialogue et qu'il m'affiche la liste des fichiers dans ce répertoire...

Code :

1
2
3
4
5
6
7
8
9
Sub ouvrirDevisPdf()
 
Dim fichierDevisPdf As String
    On Error Resume Next
    ChDir "X:\Devis\"
    fichierDevisPdf = Application.GetSaveAsFilename( _
              fileFilter:="PDF Files (*.pdf), *.pdf")
    If fichierDevisPdf <> False Then ThisWorkbook.SaveAs fichierDevisPdf, FileFormat:=52
End Sub

merci de votre aide.

Tim b:b:

[jfontaine]

Bonjour,

Ci dessous une fonction qui ouvre une fenetre d'ouverture de fichier à l'aide de FileDialog.
Le filtre permet l'affichage uniquement des fichiers ayant l'extension choisi

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
Function Ouvrir() As String
 
Dim file As FileDialog
Dim strfichier As String
Dim str() As String
 
Set file = Application.FileDialog(msoFileDialogFilePicker)
 
'Creation des filtres
file.Filters.Clear
file.Filters.Add "Fichier Acrobat (pdf)l", "*.pdf"
 
'Si pas de sélection sortir de la procedure
If file.Show = False Then
    Exit Function
End If
 
'file.SelectedItems(1) => Retourne le chemin complet du fichier (ou du premier fichier de la selection)
str = Split(file.SelectedItems(1), "\")
strfichier = str(UBound(str))
 
'StrFichier => Nom du fichier
Ouvrir = file.SelectedItems(1)
 
End Function

Appeler cette fonction comme cela

Code :

1
2
Dim strfichier As String
strfichier = Ouvrir()

[timtof2011]

Merci beacoup Jérôme c'est exactement ce que je recherchais...et ça fonctionne en plus.
Bonne nuit à toi....Tim