Discussion :

[Patrick07]

Bonjour,

J'aimerais récupérer le nom du fichier ouvert dans une variable.
Thisworkbook.name fonctionne, mais plus quand je l'introduis dans une variable.
Peut-etre que je déclare mal mes variable...
Voici mon code :

|

Code :

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

1
2
3
4
Dim grilledorigine As Variant
| Dim nomfichier, nomfichier3 [ne fonctionne ni avec Variant, ni avec String, ni sans rien...]
| nomfichier = ThisWorkbook.Name
| nomfichier3 = Left(nomfichier, 3)

Je me suis rendu compte que ca ne fonctionnait pas grace à la 'immediate window' qui donne le résultat suivant :
|

Code :

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

1
2
3
4
?nomfichier
|
|?thisworkbook.Name
|Grille.xls

Un grand merci d'avance à qui pourra m'aider !

[DJ_972]

Bonjour Patrick07,

Heu... je viens de tester le même code que toi et ça fonctionne chez moi...

Quel erreur que ça t'affiche, en fait?

[Arkham46]

bjr

Code :

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

nomfichier3 = Left(nomfichier, 3)

renvoie les 3 premiers caractères du fichier ... c'est voulu?

[Arkham46]

Oui, c'est pour un test conditionnel sur les 3 premières lettres du nom du fichier seulement (Prof A-M, Prof N-Z, Etudiants A-M, Etudiants N-Z). Merci.

ok je pensais que peut-être tu voulais retirer les 3 caractères de l'extension

sinon attention lors de l'exécution dans la 'Immediate Window' , ThisWorkBook correspond au projet sélectionné dans l'explorateur de projet
dans le code, c'est bien le projet dans lequel s'exécute le code

[Patrick07]

sinon attention lors de l'exécution dans la 'Immediate Window' , ThisWorkBook correspond au projet sélectionné dans l'explorateur de projet
dans le code, c'est bien le projet dans lequel s'exécute le code

Le problème vient de là en vérité ! Il ne s'agit donc pas d'un problème d'attribution de valeur à une variable comme je le pensais.

J'ai donc un fichier grille.xls à partir du quel je crée 3 copies profs.xls, etudiants.xls et locaux.xls.
Pas de problème lorsque je lance ma macro si un seul fichier est ouvert.
Mais là je viens d'ouvrir les 4 fichiers en meme temps.
Le premier ouvert est grille.xls.
Le dernier ouvert est locaux.xls et c'est sur celui-là que je teste ma macro.
Ma macro affichant une msgbox "nomfichier", c'est 'grille' qui est affiché.
Bref, Thisworkbook ne fonctionne pas comme je pensais qu'elle le ferait.
J'aimerais donc que la suite de ma macro réagisse selon le nom du fichier, et pour cela j'avais une condition sur ce nom en utilisant nomfichier=thisworkbook.name

Merci à qui pourra m'aider !

Vous voulez le code complet ?

[DJ_972]

Ok, je comprends maintenant.

Utilise dans ce cas "ActiveWorkbook.Name".

Si "Locaux.xls" est le fichier que tu veux tester et le dernier fichier ouvert, normalement, activeworkbook devrait le cibler.
Si "Locaux.xls" n'est pas le dernier fichier ouvert, fais en sorte de tester chaque fichier avec "ActiveWorkbook.Name" avant d'en ouvrir un autre.

Thisworkbook.Name relève le nom du fichier où tu exécutes la macro.
ActiveWorkbook.Name par contre rélève le nom du dernier fichier ouvert.

J'espère que ça résolvera ton problème...

[Patrick07]

Bonjour Patrick07,

Heu... je viens de tester le même code que toi et ça fonctionne chez moi...

Quel erreur que ça t'affiche, en fait?

Ha ben oui tiens !
L'erreur qui se produisait est que
- dans la 'Immediate Window' la variable nomfichier semblait vide
- dans le fichier, la suite du code (conditionné par la valeur de la variable) opérait comme si la variable nomfichier ne correspondait pas à mes attentes (ce qui était le cas si cette variable était effectivement vide).
J'ai pourtant perdu 3 heures là-dessus.

Je constate qu'il y a encore quelques soucis si j'ai 2 classeurs ouverts, ou ma fenetre de VBA ouverte, mais je devrais pouvoir m'en sortir.
Si je continue à avoir des soucis, je me permettrai de revenir ici.

Merci pour la remise sur les rails.
Merci pour l'édition de mon message initial.

bjr

Code :

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

nomfichier3 = Left(nomfichier, 3)

renvoie les 3 premiers caractères du fichier ... c'est voulu?

Oui, c'est pour un test conditionnel sur les 3 premières lettres du nom du fichier seulement (Prof A-M, Prof N-Z, Etudiants A-M, Etudiants N-Z). Merci.