msoFileDialogOpen et initialfilename

Version imprimable

13/05/2009, 22h30
cati_78

msoFileDialogOpen et initialfilename
Bonjour,

Je souhaite utiliser la boîte de dialogue "ouvrir" en initialisant un chemin d'accès à l'ouverture de la boîte de dialogue.

Le ? du code peut varier : C ou D par exemple

J'avais essayé * et ? notamment mais la propriété initialfilename ne fonctionne pas et un chemin d'accès par défaut est activé.

Je ne sais pas comment faire pour que le chemin défini dans initialname soit pris en compte.
Code:

1 2 3 4 5 With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .Initialfilename= "?:\DOCUMENTS\DOSSIER\ESSAI" .Show End with
Merci d'avance pour votre aide.
14/05/2009, 07h16
casefayere

Bonjour cati, le forum,

essaies ce code

Code:

.Initialfilename= "?" & ":\DOCUMENTS\DOSSIER\ESSAI"

sans garantie

bonne journée

Bonjour,
Une solution parmi d'autre...

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim Chemin As String
    Chemin = "C:\DOCUMENTS\DOSSIER\ESSAI"
    If Dir(Chemin) = "" Then
        Chemin = "D:\DOCUMENTS\DOSSIER\ESSAI"
    End If
 
With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = Chemin
        .Show
End With

A+

14/05/2009, 21h14
cati_78

Bonjour,

Je souhaite savoir comment il faut modifier le code si le "?" représente par exemple 4 lettres possibles : c, d, e, f.

Merci d'avance pour votre aide.
16/05/2009, 09h17
cati_78

Bonjour,

Je souhaite savoir s'il y a possibilité d'effectuer cette opération avec les méthodes msoFileDialogFilePicker ou getopenfilename.

Car initialement je connais le nom du dossier et du fichier. Mais le nom du répertoire constituant le chemin d'accès complet (c, d, e ou f) peut changer.

Merci d'avance pour votre aide.
16/05/2009, 09h28
ucfoutu

Bonjour,

Fait une boucle for i = ....
tant que le fichier n'existe pas
et boucle de 65 (la lettre B) à 90 (la lettre z) en utilisant chr(i)
mets un

Code:

on error resume next

dans ta boucle (pour les lecteurs non existants)
un exit for lorsque trouvé ...
16/05/2009, 12h49
cati_78

Merci pour votre aide. Cela fonctionne

Bonjour,

J'ai un souci. Quand j'exécute le programme, un message d'erreur apparaît : "Nom ou numéro de fichier incorrect".

Je pense qu'il y a un problème avec la syntaxe :
var= Dir(CheminComplet, vbDirectory)
Mais je ne sais pas pourquoi.

Merci d'avance pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim CheminComplet As String
Dim var As String
 
Dim ind As Integer
ind = 65
 
 
 
Do While ind <= 90
 
    CheminComplet = Chr(ind) & ":\DOCUMENTS\DOSSIER\ESSAI"
 
    If (var= Dir(CheminComplet, vbDirectory)) = vbEmpty Then
        Exit Do
    Else
        ind = ind + 1 
    End If
 
Loop
 
         With Application.FileDialog(msoFileDialogOpen)
                .AllowMultiSelect = False
                .InitialFileName = CheminComplet
                .Show
         End with

Bonsoir,

J'ai un fichier avec des codes dans ce style essaies comme ça
Code:

1 2 CheminComplet = Chr(ind) & ":\DOCUMENTS\DOSSIER\ESSAI\" If (var= Dir(CheminComplet, vbDirectory)) = vbEmpty Then
ou
Code:

1 2 CheminComplet = Chr(ind) & ":\DOCUMENTS\DOSSIER\ESSAI" If (var= Dir(CheminComplet & "\", vbDirectory)) = vbEmpty Then
pas sur mais dans mon cas le problème était résolu

Bonne soirée

18/05/2009, 22h14
ucfoutu

Re...

Il me semble que je t'avais prévenue ... et que tu n'en as pas tenu compte ...;)

Citation:

Envoyé par ucfoutu

Bonjour,

Fait une boucle for i = ....
tant que le fichier n'existe pas
et boucle de 65 (la lettre B) à 90 (la lettre z) en utilisant chr(i)
mets un

Code:

on error resume next

dans ta boucle (pour les lecteurs non existants)
un exit for lorsque trouvé ...

Il existe un moyen simple d'éviter ce On Error Resume Next, mais là... je me demande s'il convient de t'en parler, car on passe déjà à un autre niveau , moins simple que celui vers lequel je te guidais ! (et comme tu ne sembles en plus pas lire ce qui t'est dit... on n'en sortirait jamais ...)

Tiens ..

Exemple en appliquant RIGOUREUSEMENT tout ce que je t'avais dit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Command1_Click() Dim lelecteur As String, i As Integer, lesouschemin As String lesouschemin = "DOCUMENTS\DOSSIER\ESSAI" For i = 66 To 90 On Error Resume Next If Dir(Chr(i) & ":\" & lesouschemin, vbHidden Or vbNormal) <> "" Then lelecteur = Chr(i) Exit For End If Next MsgBox "le fichier dont le sous-chemin est " & lesouschemin & " est sur le lecteur " & lelecteur End Sub
Et, bien évidemment, à condition que ESSAI soit bien un nom de fichier, hein ...

EDIT /

Le revoilà un peu perfectionné, pour faire face aux problèmes éventuels générés par un lecteur inaccessible (genre CD non inséré ou non lisible) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Command1_Click() Dim lelecteur As String, i As Integer, lesouschemin As String lelecteur = "inconnu" lesouschemin = "DOCUMENTS\DOSSIER\ESSAI" For i = 66 To 90 On Error Resume Next If Dir(Chr(i) & ":\" & lesouschemin, vbHidden Or vbNormal) <> "" Then If Err = 0 Then ' pourquoi ? ==>> afin qu'il ne s'enmêle pas les pinceaux avec un lecteur inaccessible lelecteur = Chr(i) Exit For End If End If Err.Clear Next MsgBox "le fichier dont le sous-chemin est " & lesouschemin & " est sur le lecteur " & lelecteur End Sub
Si tu ne t'en sors pas avec çà, je veux bien me pendre...
Ceci dit : je n'écrirais jamais ainsi pour moi-même (j'éviterais le On Error Resume Next et gèrerais avec une fonction de l'Api de Windows pour recenser les lecteurs présents et accessibles, avant de contionuer).

D'apres ce que j'ai compris.
votre probleme se divise en deux parties.
1- Recherche du fichier sur tous les disques
2- Une fois le fichier trouvé on ouvre la boite de dialogue fileopen sur le nom du fichier.

Pour la recherche du fichier sur tous les lecteurs, il faut s'armer de patience
ca revient a faire Démarrer -> rechercher ->des fichiers ou des dossiers...

Pour cette partie j'ai une ébauche de code mais ca reste a développer.
Dans un module inserez ces lignes de code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 option Explicit Dim Lecteurs() As String ' tableau des lecteurs Public Sub Rechercher_Fichier() Dim Fso, dossier Dim i As Integer Set Fso = CreateObject("Scripting.FileSystemObject") Recherche_Les_disques For i = 1 To UBound(Lecteurs) Set dossier = Fso.GetFolder(Lecteurs(i)) Scan_Les_Dossiers dossier Next i End Sub Private Sub Recherche_Les_disques() Dim Fso, Drv, T Dim i As Integer Set Fso = CreateObject("Scripting.FileSystemObject") For Each Drv In Fso.Drives If Drv.IsReady Then i = i + 1 ReDim Preserve Lecteurs(1 To i) Debug.Print "le support " & Drv.DriveLetter T = Drv.DriveLetter Debug.Print Fso.GetDrive(T).rootfolder Lecteurs(i) = Fso.GetDrive(T).rootfolder End If Next ' For i = 1 To UBound(Lecteurs) ' MsgBox Lecteurs(i) ' Next i End Sub Private Sub Scan_Les_Dossiers(ByVal dossier) Dim fichier Dim sousdossier For Each fichier In dossier.Files Debug.Print fichier Next For Each sousdossier In dossier.SubFolders 'Debug.Print sousdossier Scan_Les_Dossiers sousdossier Next End Sub
Comme la recherche est trés lente il vaut mieux connaitre d'avance le lecteur ou est situé le fichier.
Avant d'éxecuter Rechercher_Fichier() retirer la disquette les Cd et DVD de leurs lecteurs ainsique les cles USB.

19/05/2009, 08h28
ucfoutu

Citation:

Envoyé par BEMI

Pour la recherche du fichier sur tous les lecteurs, il faut s'armer de patience
ca revient a faire Démarrer -> rechercher ->des fichiers ou des dossiers...
...
...
Comme la recherche est trés lente il vaut mieux connaitre d'avance le lecteur ou est situé le fichier.
...
Avant d'éxecuter Rechercher_Fichier() retirer la disquette les Cd et DVD de leurs lecteurs ainsique les cles USB.

Bonjour, BEMI,

Mais non ... (tu as mal lu) !
Relis le message de cati_78 du 13/05/2009 22h30
La seule chose qu'elle ignore et cherche, c'est précisément le lecteur. Tout le reste du chemin est connu.
Et il n'est pas nécessaire d'alourdir par FSO pour cà !:
Et cette recherche-là est de la plus grande rapidité (même pas de temps de dire ouf !);)

Salut uctoufu

Pour la recherche des lecteurs j'ai la fonction

Recherche_Les_disques() , elle trouvera tous les lecteurs C, D, E, F, ect...

Par contre pour fso c'est le meilleur moyen d'acceder aux lecteurs, fichiers, dossiers si on ne connait pas le nombre d'avance et ca permet d'eviter les boucles for.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
option Explicit
 
Dim Lecteurs() As String  'Tableau dynamique des lecteurs parceque on ne connait pas leur nombre d'avance.
 
Public Sub Recherche_Les_disques()
Dim Fso, Drv, T
Dim i As Integer
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    For Each Drv In Fso.Drives
        If Drv.IsReady Then
        i = i + 1
        ReDim Preserve Lecteurs(1 To i)
            Debug.Print "le support " & Drv.DriveLetter
            T = Drv.DriveLetter
            Debug.Print Fso.GetDrive(T).rootfolder
        Lecteurs(i) = Fso.GetDrive(T).rootfolder
        End If
    Next
 
'    For i = 1 To UBound(Lecteurs)
'        MsgBox Lecteurs(i)
'    Next i
 
End Sub