Discussion :

[Stef31]

Bonjour,
j'ai un problème avec l'ouverture d'un dossier:
Je veux faire choisir le fichier à ouvrir à l'utilisateur avec ce code:

Code :

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

1
2
3
chemin_origine = "C:\Documents and Settings\Starlab\My Documents\STARLAB\MESURES_PASSIVES\MESURES\*.txt" 'choix des fichiers.txt dans le sous-dossier "mesure".
ouverture = Application.Dialogs(xlDialogOpen).Show(chemin_origine)
If ouverture = False Then Exit Sub

Or la fenêtre de dialogue qui s'ouvre n'est qu'à "My Documents" et non dans le sous-dossier "MESURES".
Je suspecte que mon problème vient du fait qu'il y a 2 comptes utilisateurs sur l'ordi (Starlab et Laboan) car je n'ai pas ce genre de pb sur un autre PC..
Comment faire?
Merci pour votre aide.

[jfontaine]

Bonjour,

Une solution consiste a utiliser la variable environnement USERPROFILE

Code :

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

chemin_origine = Environ("USERPROFILE") & "\My Documents\STARLAB\MESURES_PASSIVES\MESURES\*.txt"

[Stef31]

Bonjour Jérôme, merci de vous être penché sur mon cas.
je tournais sur cette piste sans savoir comment l'exploiter. je viens donc de la tester à l'instant et malheureusement, elle donne le même résultat, id l'ouverture dans le dossier "My documents".
D'autres idées?

Stéphane

[jfontaine]

Pour ce placer dans le répertoire il ne faut pas mettre de *.txt en bout de ligne

Code :

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

hemin_origine = Environ("USERPROFILE") & "\My Documents\STARLAB\MESURES_PASSIVES\MESURES"

[Stef31]

Ce n'est pas encore la bonne solution.

[jfontaine]

Chez moi le code se place bien dans le bon répertoire si celui ci existe bien. sinon on se retrouve dans My Documents