Discussion :

[abouhossam]

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

Code :

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

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

[ucfoutu]

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é !)

[abouhossam]

bjr ucfoutu
voici un exp:
le 1er macro:

Code :

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

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 :

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

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.

[Invité]

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".

[Didier Gonard]

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

[abouhossam]

merci Ormonth

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.