Discussion :

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

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

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 :

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

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

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