aide et thisworbook

[PY]

Bonjour a tous

j'ai deux petiti pb à vous soumettre:

1 - j'ai créé un menu avec excel ce menu comporte une rubrique aide pour appler un fichier d'aide, le code étant:

Application.Help "c:\chemin\chemin\fichier daide.hlp"

lors de l'éxécution excel me revoi un message me disnt qu'il n'a pas trouver le fichier d'aide et me demande si je veux le chercher moi meme.
le code est-il bon?

2 - dans thiswoorbook j'ai crré le code si dessous

if sheets("feuil1").range("A1").value ="" then
call parametre
end if

a l'éxécution j'obtiens:
erreur de compilation dans le module caché: thisworkbook
quelqu'un sait-il pourquoi?

PY

 

[Thierry]

Salut PY,

Pour ta question 1, il me semble manque le Context ID... C'est un numéro... qui est utilisé pour faire la liason entre ton appli et le "Topic" de l'endroit où l'aide se trouve...
Fait des recherches dans l'aide à HelpContextID

...et aussi à MsgBox... dans l'exemple il y a l'utilisation d'un fichier d'aide....
comme çà :

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If

==> Ici le fichier Help = "Demo.hlp" son numéro de context = "1000"

Si tu veux faire tes propres fichiers d'aides tu peux aller sur le site de Microsoft :
<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/vsconwhatis.asp?frame=true>

Si tu veux plus d'info tu a cette page chez J.Walk
<http://j-walk.com/ss/excel/tips/tip89.htm>

Voilà tu devrais trouver ton bonheur pour l'aide...........

=====================================================

Pour ta Question 2
quel évènement utilises-tu ?... Enfin pour te montrer ici l'évènement "Change"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then MsgBox "La cellule A1 est Vide"
End Sub

C'est çà que tu veux ? en tous cas ce devrait marcher mieux...

En fait ton code mis sous évènement "Change" lançait ta routine "parametre" à chaque clic ou déplacement ... Les gars !! Prenez l'habitude de faire des test avec un MsgBox "Toto" ... Comme çà, si çà boucle sérieux etc, ce n'est qu'un boite, par une macro lancée à vita éternam...

Bon voilà bon après midi Py.. Ah au fait, j'écrivais ailleurs juste aujourd'hui une bonne devise à suivre dans le forum :

1 sujet par Post...
1 ficelle par Sujet...

Aller, bon travail !
@+Thierry