dossier par défaut lors de sauvegarde ou d'ouverture

dossier par défaut lors de sauvegarde ou d'ouverture - VB/VBA/VBS - Programmation

Marsh Posté le 27-10-2004 à 14:18:34    

slt à tous j'aimerais savoir si il été possible lors de l'ouverture d'une boite de dialogue d'ouverture de fichier en utilisant GetOpenFileName si il été possible de choisir sur kel dossir ca pointer cette boite de dialogue.exemple la faire s'ouvrir sur c:\mes fichiers au lieu du c:\mes documents traditionnel mais sans changer les options dans Excel car il fo ke je repète cette action pour différents dossiers par défauts. :cry:  
Merci d'avance  :jap:

Reply

Marsh Posté le 27-10-2004 à 14:18:34   

Reply

Marsh Posté le 31-08-2005 à 14:51:23    

Citation :


DefaultFilePath, propriété
Cette propriété renvoie ou définit le chemin par défaut utilisé par Microsoft Excel à l'ouverture des fichiers. Type de données String en lecture-écriture.
 
Exemple
Cet exemple montre comment afficher le chemin par défaut en cours.

Code :
  1. MsgBox "The current default file path is " & _
  2.     Application.DefaultFilePath




 
Je sais que la question date un peu.. mais vu que je suis tombe dessus avant d'avoir ma reponse.. j'en profite pour y repondre des fois que quelqu'un d'autre est le meme cheminement que moi.


---------------
Guendalf
Reply

Marsh Posté le 31-08-2005 à 17:39:40    

Heu... enfait ca n'a pas l'air de marcher...
Je chercher a definir le repertoire exacte ou doit se trouver la fenetre de dialogue pour le choix d'ouverture d'un fichier.

Code :
  1. Public Sub test()
  2. Dim sOriginal As String
  3. Dim sFile As String
  5. sOriginal = Application.DefaultFilePath
  6. Application.DefaultFilePath = "C:\"
  7. sFile = Application.GetOpenFilename
  8. Application.DefaultFilePath = sOriginal
  9. End Sub


 
A priori DefaultFilePath n'est pas la bonne propriete a modifier.. Pourtant ca sonnait bien..


Message édité par guendalf le 31-08-2005 à 17:40:36

---------------
Guendalf
Reply

Marsh Posté le 02-10-2008 à 18:31:08    

La solution est disponible sur Excelabo : http://www.excelabo.net/excel/repertoireschemin.php
 
Il faut simplement changer le dossier et l'unité courante avec les fonctions :
 o Chdir NomDuDossier
 o ChDrive LettreDeLUnite
 
 
Ex:
 ChDrive "c"
 ChDrir "Mes documents"
 sFile = Application.GetOpenFilename
 
 
Voili  ;)

Reply

Sujets relatifs:

Leave a Replay

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