Changer repertoire par défaut openfilename

Changer repertoire par défaut openfilename - VB/VBA/VBS - Programmation

Marsh Posté le 28-06-2006 à 11:40:24    

Bonjour,
 
Je voudrais changer le répertoire par défaut de ma boite de dialogue, mais sur les forums je ne trouve que des méthodes avec des fonctions et type. Je voudrais juste 1 ligne pour indiquer le chemin par défaut de la boite de dialogue. J'ai ce code :
 
    dialogresult = excel.Application.GetOpenFileName("Fichiers excel, *.xls" )
    If dialogresult = "Faux" Then
        MsgBox "Vous n'avez pas selectionné de fichier." & vbCrLf & vbCrLf & "La macro ne peut continuer.", , "Erreur"
        End
    End If
 

Reply

Marsh Posté le 28-06-2006 à 11:40:24   

Reply

Marsh Posté le 28-06-2006 à 11:41:54    

Reply

Marsh Posté le 28-06-2006 à 11:50:20    

Je me suis peu être mal exprimé, mais ma requête est :
 
lorsque la boite de dialogue s'ouvre, je voudrais qu'elle se place dans un répertoire d'un lecteur réseau.
 
Merci quand même :)

Reply

Marsh Posté le 28-06-2006 à 11:58:22    

y a qu'à faire son quéqué, avec son propre explorateur windows en VB  
http://www.developpez.com/vbasic/t [...] oriel9.php

Reply

Marsh Posté le 28-06-2006 à 12:03:06    

Le truc c'est que je n'ai pas Visual Basic, j'utilise uniquement le VBA de word/excel. De plus, je ne pense pas que cette solution facilite ma macro. Mais il y avait de l'idée :d

Reply

Marsh Posté le 28-06-2006 à 12:09:59    

en passant par ChDir ca pourrait marcher cf http://www.excel-downloads.com/for [...] rtoire.htm

Reply

Marsh Posté le 28-06-2006 à 14:32:19    

La solution proposée a l'air bonne mais ne fonctionne pas chez moi. Peu être parce que je suis sur VBA word et non excel. C'est vraiment dommage.
 
Merci beaucoup jpcheck pour ton aide.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed