trouver un fichier avec les 3 eres lettres

PHILIP

XLDnaute Occasionnel
Bonjour à tous,

comment puis-je trouver un fichier.txt ( nous en importons plusieurs fois par jour pour analyses et chaque fichier texte commence par mon00 le reste des nombres et different il y en a 14) en ne selectionnant que les trois eres lettres sachant que je dois changer son nom. j'utilise ce code
Code:
Name "T:\STATUS\Statuts 2010\mon00*.txt" As "T:\STATUS\Statuts 2010\benelux.txt"
Mais ma macro ne le trouve pas
Pourriez vous m'aider?
 

MJ13

XLDnaute Barbatruc
Re : trouver un fichier avec les 3 eres lettres

Bonjour Philip

Pourrais-tu joindre ton code STP?
 

tototiti2008

XLDnaute Barbatruc
Re : trouver un fichier avec les 3 eres lettres

Bonjour Philip, bonjour Michel

peut-être

Code:
Dim Fic as String
Fic = Dir("T:\STATUS\Statuts 2010\mon00*.txt")
If Fic<>"" then Name Fic As "T:\STATUS\Statuts 2010\benelux.txt"
 

pat01200

XLDnaute Occasionnel
Re : trouver un fichier avec les 3 eres lettres

Bonjour,

Essaie ça :
Fic = Dir("T:\STATUS\Statuts 2010\mon00" & "*.txt")
 

PHILIP

XLDnaute Occasionnel
Re : trouver un fichier avec les 3 eres lettres

Bonjour tototiti, mj13 et pat01200

voici le code tel que retranscrit (pour le moment independant)
voici le nom du fichier qui changera à chaque appel hormis les 5 premiers caracteres
mon002.10101814_17_00.txt

Code:
Sub change()
Dim Fic As String
Fic = Dir("T:\STATUS\Statuts 2010\mon00" & ".txt")
If Fic <> "" Then Name Fic As "T:\STATUS\Statuts 2010\benelux.txt"
End If
End Sub
Quand je lance la macro , il ne m'indique pas d'erreur sauf que rien ne se passe, le fichier devant s'appeler benelux .text et s'il ne change pas de nom la macro devant traiter le fichier ne peut travailler
ai-je fais une erreur?
 

tototiti2008

XLDnaute Barbatruc
Re : trouver un fichier avec les 3 eres lettres

Re,
Bonjour pat,

Ou est passée l'étoile ? "*"
Une étoile filante, peut-être ;)
 

PHILIP

XLDnaute Occasionnel
Re : trouver un fichier avec les 3 eres lettres

j'avais oublié l'etoile mais j'ai toujours un probleme quand je lance la macro elle me dit qu'elle ne trouve pas le fichier en surlignant la ligne
Code:
If Fic <> "" Then [COLOR="Orange"]Name Fic As "T:\STATUS\Statuts 2010\benelux.txt"
[/COLOR]
Pourtant quand je place le curseur sur fic il m'indique bien le bon titre du fichier à changer donc elle le trouve mais ne change pas son titre en benelux.....
 

pat01200

XLDnaute Occasionnel
Re : trouver un fichier avec les 3 eres lettres

Peut-être ça:

If Fic <> "" Then Fic.SaveAs Filename:= "T:\STATUS\Statuts 2010\benelux.txt"
 

PHILIP

XLDnaute Occasionnel
Re : trouver un fichier avec les 3 eres lettres

j'ai utilisér la methode save as maintenant il me designe fic comme qualificateur incorrect et pour info le fichier mon n'est pas ouvert
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas