VBA - Nom de fichier avec date

[altefqhatre]

Salut tout le monde!

J'ai un petit souci avec une procédure Aut😵pen...

J'ai un fichier quotidient qui a le nom suivant: "Fichier_yymmdd".

J'ai créer une macro qui contrôle le nom du fichier en question et qui s'éxécute en fonction de ce dernier.

C'est-à-dire que si le fichier porte effectivement un nom du style "Fichier_100125", une msgbox s'ouvre avec un vbYesNo, sinon rien ne se passe.

Le problème est que je n'arriver pas à dire à la macro de contrôler le nom.

Enfin pour être plus clair je vous met le code

Sub Auto_Open()

'Dim today As Date

'today = Format(Date, "yymmdd")

If ActiveWorkbook.Name = "Fichier_[B]*[/B]" Then

'instructions

Le problème est que je n'arrive pas à "déclarer" le fait que le nom du fichier change après le "_".

En résumé, comment dire à la macro de contrôler si le nom de fichier commence par "Fichier_"?

L'étoile n'est utilisée comme sur excel (une recherche par exemple dans laquelle on ne connâit que le début de la valeur)

D'avance merci beaucoup!

 

[jp14]

Re : VBA - Nom de fichier avec date

Bonjour


Si j'ai bien compris
La fonction INSTR permet de connaître la position d'un texte dans un autre.

position = instr(ActiveWorkbook.Name,"Fichier")

Si position = 1 alors le nom du fichier commence par "Fichier"
Si position = 0 ou supérieur à 1 alors il y aun problème.

JP

 

[Pierrot93]

Re : VBA - Nom de fichier avec date

Bonjour,

une autre solution avec l'opérateur "like" :

If ActiveWorkbook.Name Like "Fichier_*" Then

bon après midi
@+

 

[altefqhatre]

Re : VBA - Nom de fichier avec date

Malheureusment ça ne fonctionne pas... Je n'arrive pas à lui faire comprendre que si le nom du fichier commence par "Fichier_" il faut exécuter les instructions...

Voilà ce que j'ai tenté:

If ActiveWorkbook.Name Like "Fichier_*" Then

J'ai l'erreur: variable objet ou varible de bloc with non définie...

 

[Pierrot93]

Re : VBA - Nom de fichier avec date

Re,

comprends pas trop, chez moi le code ci-dessous fonctionne et ce dans les 2 cas de figure....

If ActiveWorkbook.Name Like "Fichier_*" Then
    MsgBox "ok"
Else
    MsgBox "non ok"
End If

@+

 

[altefqhatre]

Re : VBA - Nom de fichier avec date

Re Pierrot,

Je viens de retester en fermant excel et en ouvrant un fichier ayant comme nom "Fichier_100122.xls" et j'ai l'erreur:

variable objet ou varible de bloc with non définie.

Par contre, si le fichier est ouvert et que j'éxécute manuellement la macro et ben ça fonctionne :-S

Apparemment c'est "ActiveWorkbook.Name" qui a un souci... je vois pas quoi :-(

Bizarre bizarre :-(

 

[Pierrot93]

Re : VBA - Nom de fichier avec date

Re,

le classeur "Fichier_100122.xls" est bien ouvert et actif ? Quelle ligne de code est en "debogage ? Il faudrait voir peut être la totalité du code utilisé...

@+

 

[altefqhatre]

Re : VBA - Nom de fichier avec date

C'est à dire que le but est que l'auto_open se lance à chaque fois qu'un fichier commençant par "Fichier_" est ouvert 🙂

En fait je viens de tester ça:

Sub auto_open()

If ActiveWorkbook.Name Like "Positions_*" Then

MsgBox "OK nom fichier"

Else

MsgBox "Nom invalide"
End If

End Sub

Si j'exécute la macro avec le fichier ouvert cela fonctionne.

En revanche, si je ferme excel et j'ouvre le fichier en question j'ai l'erreur citée plus haut...

Le débogage me dit que c'est "ActiveWorkbook.Name" qui me génère "variable objet ou varible de bloc with non définie".

Je vois pas ce que j'ai loupé... il n'y a pourtant même pas de faute de de frappe lol ^^

 

[Pierrot93]

Re : VBA - Nom de fichier avec date

Bonjour,

oui, avec le code donné, il faut bien sur que le classeur soit ouvert.... A noté que dans ton code (sub auto open), le classeur actif est celui dans lequel se trouve la macro "auto open", enfin à priori ...

bonne journée
@+

 

[altefqhatre]

Re : VBA - Nom de fichier avec date

Ah voilà le problème alors 😛

Lorsque l'on ouvre excel, la macro se lance tout desuite avant même que le fichier s'ouvre donc à ce moment là il n'y a pas encore de classeur actif donc problème ^^

Faut que je trouve une feinte 😛

Merci beaucoup pour ton aide en tout cas 🙂

bonne journée!

a+

 

[jp14]

Re : VBA - Nom de fichier avec date

Bonjour


Une piste

Mettre la procédure dans un module.
Dans la macro auto open lancer cette macro.

JP