Ouverture noms de fichier variable

[barry white]

Bonjour à tous,

J'arrive pas a rendre variable un nom de fichier, je m'explique :

J'ai un fichier qui à pour norme le nom suivant :

XXX_YYYYY_ZZZZZ_V?_AAA.xls

XXX = Toujours le meme nom, donc mis en dure dans la macro

YYYYY et ZZZZZZ = Variable qui est connu dans la macro

AAA = Variable connu fixe dans la macro

V = Fixe dans la macro

? = c'est le numero de version qui change a chaque fois et c'est ce numéro que j'arrive pas a avoir

Alors j'ai essayé de mettre dans la macro la syntaxe suivante dans ma macro

    ChDir "D:\"
    Workbooks.Open Filename:= _
        "d:\" & nomTDF & "\" & nomcF & "\" & "Tbl PDC" & "\" & "PDC_" & nomcF & "_V*" & "_XXX.xls"

J'arrive pas à rendre le carcatere qui est le chiffre varriable. Je pensais que le caracteres "*" remplacer n'importe quel caraceteres. Merci a vous pour votre aide.

 

[RENAUDER]

Re : Ouverture noms de fichier variable

Bonjour,

Quand tu lances ton programme, tu sais quelle version tu dois ouvrir ?
Si oui tu mets le N° de version dans une variable

 

[Catrice]

Re : Ouverture noms de fichier variable

Bonjour,

Il faut le N° que represente le "?".
On ne peut pas ouvrir toto*.xls mais toto1.xls.

Si tu ne connais pas le N° ("?") tu peux comparer le fichier souhaité (avec une *) avec la liste des fichiers présents dans le dossier.

 

[barry white]

Re : Ouverture noms de fichier variable

Bonjour,

Quand tu lances ton programme, tu sais quelle version tu dois ouvrir ?
Si oui tu mets le N° de version dans une variable

Non c'est sa le pb je ne sais pas lequel je vais ouvrir

 

[barry white]

Re : Ouverture noms de fichier variable

Bonjour,

Il faut le N° que represente le "?".
On ne peut pas ouvrir toto*.xls mais toto1.xls.

Si tu ne connais pas le N° ("?") tu peux comparer le fichier souhaité (avec une *) avec la liste des fichiers présents dans le dossier.

oki je veux bien mais comment on fait? 😉

 

[job75]

Re : Ouverture noms de fichier variable

Bonjour barry white, Eric, Catrice,

Vous pouvez par exemple ouvrir tous les dossiers concernés par la définition :

chemin = "D:\" & nomTDF & "\" & nomcF & "\Tbl PDC\"
nomfich = Dir(chemin & "PDC_" & nomcF & "_V*_XXX.xls") '1er fichier
On Error Resume Next
While nomfich <> ""
If IsError(Workbooks(nomfich).Name) Then _
Workbooks.Open chemin & nomfich 'si le fichier n'est pas déjà ouvert
nomfich = Dir 'fichier suivant du dossier
Wend

A+

 

[job75]

Re : Ouverture noms de fichier variable

Re,

En complément, si l'on sait que dans le dossier il n'y a qu'un seul fichier qui répond à la définition, on peut bien sûr écrire :

chemin = "D:\" & nomTDF & "\" & nomcF & "\Tbl PDC\"
nomfich = Dir(chemin & "PDC_" & nomcF & "_V*_XXX.xls") 'nom du fichier trouvé
On Error Resume Next
If IsError(Workbooks(nomfich).Name) Then _
Workbooks.Open chemin & nomfich 'si le fichier n'est pas déjà ouvert

A+

 

[barry white]

Re : Ouverture noms de fichier variable

merci ton aide!!

ca ne marche pas. quand je fais un test le resultat de la variable nomfich est vide

 

[job75]

Re : Ouverture noms de fichier variable

Re,

Si nomfich = "" c'est que le fichier tel qu'il est défini n'existe pas.

Vérifier, en prenant en compte les variables, le chemin d'accès et le nom du fichier.

A+

 

[barry white]

Re : Ouverture noms de fichier variable

Bonjour,

Enfin de compte ca fonctioner petite erreur de ma part concernant le nom de la variable, ca marche nikel merci encore!