Si le nom du classeur est ....

[christian.bedere]

Bonjour à vous ..

Je souhaiterais mettre une macro à l'ouverture d'un usf qui dirait :
"si le nom du classeur est "trame"" , alors, il vaut vérouiller la frame4."

je ne sais pas comment traduire le nom du classeur en vba .
Pourriez - vous m'aider svp ?
Je vous remercie

Christian

 

[ERIC S]

Re : Si le nom du classeur est ....

Bonjour

if activewindow.name="toto.xls" then frame4.locked=true

non testé (si name ne marche pas essaie caption)

 

[christian.bedere]

Re : Si le nom du classeur est ....

Salut Eric

Désolé mais cela ne fonctionne pas , même avec caption.
Bon après-midi

 

[ERIC S]

Re : Si le nom du classeur est ....

de retour de ma haie de thuyas...

c'est bien caption mais si tu essaies msgbox(activewindow.caption) tu verras que le nom ne comporte pas le suffixe .xls si le fichier n'a pas été enregistré

doit aussi fonctionner avec thisworkbook.name

par contre quand on regarde les propriétés des frames,

frame1.enabled=false

 

[christian.bedere]

Re : Si le nom du classeur est ....

Salut Eric

Désolé pour ce retard, je vais essayer de trouver une autre solution..
merci pour ton aide
à bientôt
christian

 

[ERIC S]

Re : Si le nom du classeur est ....

Re

sinon joins un bout de fichier avec ta frame

 

[Pierrot93]

Re : Si le nom du classeur est ....

Bonjour Christian, Eric

Sij'ai bien compris et si tu veux récupérer le nom du classeur actif tu peux essayer le code ci dessous :

Sub test()
Dim NomClasseur As String
NomClasseur = ActiveWorkbook.Name
MsgBox NomClasseur
End Sub

Bonne journée
@+