pour lancer une boite de dialogue afin d'ouvrir un fichier :
Code:
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.xls"
.Show
If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With
Non pas un fichier excel. Dans un répertoire de mon PCE, j'ai des dossiers clients. A l'intérieur de ce dossier client j'ai des pièces que j'ai besoin. Y a des fichiers word et pdf.
Le dossier du client est nommé sous cette forme NOM Prénom 25111111111111 (Ce numéro vari pour chaque client)
Ce que je souhaite, c'est que le dossier du client dont j'ai saisie le nom s'ouvre dans une fenêtre windows. Comme si tu faisait une recherche par l'explorateur windows.
Non pas un fichier excel. Dans un répertoire de mon PCE, j'ai des dossiers clients. A l'intérieur de ce dossier client j'ai des pièces que j'ai besoin. Y a des fichiers word et pdf.
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.pdf"
.Show
If .SelectedItems.Count > 0 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
End With
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "ma descrip", "*.pdf"
.Show
If .SelectedItems.Count > 0 Then ThisWorkbook.FollowHyperlink .SelectedItems(1)
End With