Discussion :

[sebdub00]

Bonjour à tous !

Je voudrais afficher la boite de dialogue ouvrir, mais pas dans le repertoire par défaut d'excel.

J'ai cherché mais pas trouvé ...

Si une bonne âme à une ébauche de solution ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub ouvrirdevis()

Dim chemin As String


chemin = ActiveWorkbook.Path & "\Devis"

Application.GetOpenFilename

'ici je voudrais que la boite ouvrir s'affiche dans chemin

End Sub

Il faut que le chemin reste relatif car utilisation sur différents lecteurs réseaux pouvant ne porter toujours la même lettre.

[Godzestla]

Bonjour,
tu ne sais pas faire cela avet la méthode .getopenfilename.

Tout au plus la fenêtre de dialogue peut te remontrer par défaut le dernier emplacement sélection lors du précédent appel.

Cela est c..... mais c'est ainsi.

Désolé.

[sebdub00]

J'ai eu une idée...

à l'ouverture du fichier, peut-on changer le répertoire par défaut d'excel ?

Merci pour la rapidité !

[Godzestla]

C'est quoi pour toi le répertoire par défaut et quel est l'impact sur ton code.

Cela n'influencera pas le getopenfilename.

Tu peux par exemple faire un ChDir pour changer le répertoire courant, mais cela n'a aucun impact.

Jai déjà tout essayé. Marche pas.
Si tu cherches, tu trouveras peut-être mon post sur le sujet (déjà quelques mois).

C'est Ouskelnor qu'i m'a aidé.

Il n'y avait pas de solution.

[sebdub00]

Merci quand même...

Je vais essayer de contourner le problème différemment.

[Godzestla]

Essaie aussi avec un truc du genre

Code :

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

1
2
3
4
5
6
 
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le Fichier"
        .InitialFileName = fichier
        .Show

Mais je crois que le problème est le même.

[sebdub00]

J'ai en partie résolu mon problème :

- à l'ouverture du fichier, je change le répertoire par défaut d'excell (le répertoire que l'on indique dans outils>options>Général> dossier par défaut) avec le code suivant dans ThisWorkbook:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12

Private Sub Workbook_Open()

Dim chemin As String

chemin = ActiveWorkbook.Path


Application.DefaultFilePath = chemin & "\Devis"

End Sub

Puis j'appelle la boite ouvrir qui s'ouvre dans le nouveau repertoire par défaut.

Il ne manque plus qu'à rechanger le repertoire par défaut à la fermeture du classeur.

[sebdub00]

J'ai posté mon dernier message avant d'avoir vu tes posts.

Je ne les ai donc pas testé.

La solution que je viens de poster me satisfait pour l'instant.

Le but était simplement d'éviter à l'utilisateur de rechercher le repertoire contenant les fichiers qui l'intéressent pour cette application.

Si il veut rééditer un devis, clique sur un bouton, la boite ouvrir s'affiche dans le repertoire contenant ses devis.



Merci quand même !!