Discussion :

[Fandeliza]

Bonjour a tous
J'ai un soucis qui va certainement vous semblez très simple mais qui me pose beaucoup de problème ....

J'utile cette macro dans un userform

Private Sub Ajouter_Pochette_Click()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers(*jpeg),(.jpeg")
Chemin = Fichier
Mon_Image.Picture = LoadPicture(Chemin)
Mon_Image.PictureSizeMode = 1
End Sub


ca fonctionne très bien, seulement je voudrai quand j'ouvre explorer, tomber directement sur un répertoire nommé "Pochette" suivant ce chemin "C:\Users\Pascal\Documents\Mes Disques\Pochettes "
Mais ca, je ne sais pas faire

Par avance je vous remercie de votre aide

[Jean-Philippe André]

Salut,

avec ChDir, tu peux faire ce genre de choses.

Code :

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

1
2
ChDir "C:\Users\Pascal\Documents\Mes Disques\Pochettes"
Application.GetOpenFilename("Tous les fichiers(*jpeg),(.jpeg)")

[Fandeliza]

Nikel
Merci Infiniment

[deedolith]

Hello,

Je ne conseille pas d'utiliser la fonction chDir (Change Directory), car elle modifie le contexte pour toute l'application.

On peut passer par l'objet FileDialog, qui est configurable et plus versatile:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Const path As String = "C:\Users\Pascal\Documents\Mes Disques\Pochettes\"    '// Ne pas oublier le \ à la fin
 
    Dim Dlg As Office.FileDialog
    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    Dlg.InitialFileName = path
    Dlg.Filters.Clear
    Dlg.Filters.Add "Fichiers jpeg", "*.jpg"
    Dlg.AllowMultiSelect = False
    If (Dlg.Show) Then
        Dim choosenFile As String
        choosenFile = Dlg.SelectedItems(1)
    End If