thisworkbook . name

bonjour à tous
mon problème est le suivant:
j'ai developpé des macros dans un classeur.
j'ai met la condition

Code:

---

1 2 3 4

if thisworkbook.name="aaaaa.xls" then . . end if

---

pour chaque macro
ma question est:
est ce qu'il y a une methode plus pratique pour ecrire ma condition une seul fois.
merci

Bonjour,

peux-tu nous exposer ce que tu entends exactement (contexte et détails) par "une seule fois" ?

Tu précises par ailleurs avoir développé cette macro dans un classeur (que tu connais donc)....

Explique plus clairement ce que tu cherches à faire (c'est pour l'instant un mystère, bien que l'on puisse deviner mais nous ne sommes pas là pour deviner, tel qu'exposé !)

bjr ucfoutu
voici un exp:
le 1er macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_Open() Dim sh As Worksheet If ThisWorkbook.Name = "WP MOIS ANNEE1.xls" Then Worksheets(1).Name = "f1" 'Worksheets(2).Name = "f2" . . . . . End If End Sub

---

le 2eme macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim valeur Dim annee If ThisWorkbook.Name = "WP MOIS ANNEE1.xls" Then . . . . . End If End Sub

---

comment je peux mettre la condition une fois pour tout sans la repeté dans chaque macro
càd: executer les macro si ThisWorkbook.Name = "WP MOIS ANNEE1.xls"
merci.

Bonjour,

Comme le dit Ucfoutu, ce n'est toujours pas très clair.

A mon avis, pour pouvoir vous répondre, ce qu'il faut savoir c'est ce qui se passe si la réponse est "oui" mais aussi si la réponse est "non".

Bonjour,

Tu peux mettre dans l’open à true une variale boolean publique déclarée ou il faut, si le name est OK, mais ça ne change pas grand-chose vu que c’est elle qu’il faudra tester.

Ce qu’il faut c’est savoir le pourquoi !!!

Vu que t’invoques Thisworkbook qui s’adresse donc au classeur qui contient le code, je soupçonnerai que ton problème viendrait d’un classeur de base dont tu te servirais pour faire des traitements et que tu sauvegarderais sous un autre nom ensuite (genre « faux modèle »). Le problème en découlant est qu’il conserverait en l’état le code vba dont tu ne voudrais pas (pour tout ou partie) qu’il s’exécute pour ces classeurs.

Dans ce cas, le mieux serait de regarder dans le forum, FAQ, Tutos les nombreux exemples pour sauvegarder des classeurs sans tout ou partie du code….

cordialement,

Didier

merci Ormonth

Citation:

---

Vu que t’invoques Thisworkbook qui s’adresse donc au classeur qui contient le code, je soupçonnerai que ton problème viendrait d’un classeur de base dont tu te servirais pour faire des traitements et que tu sauvegarderais sous un autre nom ensuite (genre « faux modèle »). Le problème en découlant est qu’il conserverait en l’état le code vba dont tu ne voudrais pas (pour tout ou partie) qu’il s’exécute pour ces classeurs.

---

c'est bien mon problème.