Discussion :

[elodc]

Bonjour,

petite question : j'utilise GetOpenFileName pour faire choisir un fichier à mon utilisateur.
Mon problème, je voudrais que la boite de dialogue s'ouvre sur le dossier du fichier qui contient la macro.

J'arrive à récupérer mon fichier qui contient la macro avec la commande ThisWorkbook.Path, mais je n'arrive pas à faire en sorte que ma commande GetOpenFileName s'ouvre sur ce dossier.

J'ai essayé avec un chdir ThisWorkbook.Path avant le GetoOpenFileName, mais ça n'a pas fonctionné

Quelqu'un aurait une idée ?

merci !

Elodie

[Invité]

Bonjour,

Un exemple de ce que j'utilise. Le répertoire du fichier à ouvrir est stocké dans une zone nommée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    If ExistenceRepertoire(Sheets("AAAA").Range("Repertoire")) = True Then
       RepertoireDuRapport = Sheets("AAAA").Range("Repertoire")
    Else
       RepertoireDuRapport = WbXXXX.Path  ' Le répertoire du fichier actif
    End If
    ChDir RepertoireDuRapport
 
    With UsfRapport
         .TextBoxRepertoire = RepertoireDuRapport
          .Show
    End With

[Menhir]

petite question : j'utilise GetOpenFileName pour faire choisir un fichier à mon utilisateur.
Mon probleme, je voudrais que la boite de dialogue s'ouvre sur le dossier du fichier qui contient la macro.

Essaye de changer le chemin par défaut avec la propriété DefaultFilePath.
https://docs.microsoft.com/fr-fr/off...efaultfilepath

Si je ne me trompe pas, ChDir concerne plutôt les commandes du FileSystem.

[unparia]

Bonjour

Je procèderais personnellement autrement.
Regarde ce que fait ceci, par exemple :

Code :

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

1
2
3
4
5
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
  .InitialFileName = "D:\monoutil"  '----------------->> mets ici le chemin du répertoire de ton choix
  .Show
End With

[elodc]

Bonjour

Je procèderais personnellement autrement.
Regarde ce que fait ceci, par exemple :

Code :

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

1
2
3
4
5
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 With fd
  .InitialFileName = "D:\monoutil"  '----------------->> mets ici le chemin du répertoire de ton choix
  .Show
End With

merci !!

ca a marché de cette manière !

[elodc]

Essaye de changer le chemin par défaut avec la propriété DefaultFilePath.
https://docs.microsoft.com/fr-fr/off...efaultfilepath

Si je ne me trompe pas, ChDir concerne plutôt les commandes du FileSystem.

j'avais essayé de changer cette propriété, mais ca n'avait pas marché