Discussion :

[gandalflegris]

Bonjour

tout d'abord un grand merci a ceux de se forum et d'autre qui mon bien aider pour démarrer sous vba.

Je suis un novice.

Mon problème j'ai une macro qui va dans un dossier spécifique qui contient des fichiers texte et qui n'affiche que le fichier voulu cela marche très bien sous microsoft xp par contre sous seven ca m'affiche tous les fichiers texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function RechercheFichier() As String
    ChDrive "i:\"
ChDir "i:\xxx\xxx\xxx\Xx\"
 
 
    Dim fd As FileDialog
    Dim NomFichier As String
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "Fichiers texte", "*.txt"
        .Title = "Recherche de fichier"
        .InitialFileName = "Z305t01.txt"
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
 
    RechercheFichier = NomFichier
    Set fd = Nothing
End Function

si quelqu'un a une idée merci

@ + gandalflegris

[EJO64]

Bonjour,

Ajoute simplement une * après le nom du fichier

Code :

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

 .InitialFileName = "Z305t01.txt*"

[gandalflegris]

Bonsoir

merci EJO64 pour ta réponse mais cela ne fonctionne pas.


@+ gandalflegris

[AlainTech]

Bonjour,

Je comprends mal pourquoi utiliser un FileDialog pour sélectionner un fichier si on force le fichier à choisir.
C'est quoi le but?

[gandalflegris]

Bonjour alaintech

Chaque dossier correspond a une date et dans chaque dossier j'ai plusieurs
fichier texte que j'importe et qui on un format différend c'est pour que j'ai besoin d'un fichier précis a chaque import.

merci
@+ gandalflegris

[AlainTech]

Donc, si tu sais quel(s) fichier(s), pourquoi passer par un FileDialog qui demande à l'utilisateur de choisir?