Discussion :

[Yamiral]

Bonjour,

Je souhaite vous solliciter sur un problème que j'ai rencontré.

Sur une macro Simple de type :

Code :

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

1
2
Workbooks.Open Filename:= _
""V:\DOC\Test_appel_mail_124.xls"

Je souhaite savoir si il est possible, par ce type de macro d'ouvrir un fichier en indiquant uniquement le début du nom de fichier à ouvrir

Exemple :

Code :

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

1
2
Workbooks.Open Filename:= _
""V:\DOC\Test_appel_mail_(C'est ici que je sais plus quoi mettre)"

Pourquois ? : Tout simplement car le début du nom de fichier " Test_appel_mail_" restera toujours le même, néanmoins le chiffre qui suit est une variable qui ne peut être définie en avance.

ma requête est elle possible ?

Cordialement.

[Theze]

Bonjour,

Teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Chemin As String
Dim NomFichier As String
 
Chemin = "V:\DOC\"
 
'l'astérisque permet de retourner le 1er fichier qui correspond
'sans tenir compte des lettres situées entre le tiret bas et le point
NomFichier = "Test_appel_mail_*.xls"
 
'à virer, pour voir le nom du fichier retourné
MsgBox Chemin & Dir(Chemin & NomFichier)
 
Workbooks.Open Filename:=Chemin & Dir(Chemin & NomFichier)

Hervé.

[Yamiral]

Bonjour et merci pour le temps que vous m'accordez !

j'ai testé la proposition effectuée ci dessus,
mais concernant la ligne

NomFichier = "Test_appel_mail_*.xls"
La macro considère l' "*" comme un caractère compris dans le nom du fichier.

Du coup erreur d'ouverture

Je pense néanmoins qu'on est sur la bonne voie !!!

la solution proposée va exactement dans la même direction que ma requête, on va réussir !

Cordialerment.

[Theze]

Re,

La macro considère l' "*" comme un caractère compris dans le nom du fichier.

Code :

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

1
2
 
NomFichier = "Test_appel_mail_*.xls"

Tel quel oui !!!
mais dans mon exemple :

Code :

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

1
2
3
4
 
Chemin = "V:\DOC\"
NomFichier = "Test_appel_mail_*.xls"
MsgBox Dir(Chemin & NomFichier) '<-- retourne bien le nom du fichier si il existe !!!

si un fichier dans le dossier commence bien par "Test_appel_mail_" la fonction Dir retourne le nom complet du 1er fichier trouvé car l'astérisque (*) est un caractère interdit dans les noms de fichiers donc elle le reconnaît comme étant un caractère générique et il n'y a pas de raison que ça ne fonctionne pas !

Hervé.

[Yamiral]

j'ai testé plusieurs choses sans succès,

Si je laisse la macro en l'état, il me met un erreur d'exécution '52' Nom ou numéro de fichier incorrecte.

le fichier est bel et bien présent et il n'y a pas d'erreur dans le nom du ficher.

c'est la ligne :

Code :

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

MsgBox Chemin & Dir(Chemin & NomFichier)

Qui devient jaune.

Ai-je louper quelque chose ?

Cordialement.

[Theze]

Re,

Alors, c'est ton chemin vers le dossier qui n'est pas bon !
Dans l'explorateur de Windows tu sélectionne ton dossier, dans le champ en haut qui indique le chemin, clic droit puis "copier l'adresse" tu colle dans le code avec la "\" à la fin :

Code :

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

1
2
 
Chemin = "ici, le chemin de ton dossier puis \"

Hervé.