crée un mini assistant

[sonia.33]

bonjour,
j' ai fait une application sur vba dans excel et je souhaiterais crée un assistant annimé si possible comme celui qui existe deja sur excel.
Ce mini assistant permettra a l' utilisateur de bien comprendre mon appli
Merci beaucoup.

 

[Kotov]

Bonjour,
Je suppose que tu fais référence au Compagnon Excel ?
Tu peux le personnaliser en VBA avec le Compagnon de ton choix
Voir : "Balloon" "BalloonCheckbox" "BalloonLabel", tu peux insérer des contrôles (checkbox, label ...).

J'ai réalisé des aides conviviales sur ce principe avec à la clé un avantage que je n'avais pas percu au départ : les utilisateurs les plus allergiques à l'informatique sont amusés => ils adhèrent mieux au projet.

Kotov

 

[sonia.33]

Voila,
Ces sa que je veut faire
mais je vai voir ou ca "Balloon" "BalloonCheckbox" "BalloonLabel", tu peux insérer des contrôles (checkbox, label ...).
Merci déja d' avoir lu mon message
merci
sonia

 

[michel]

bonjour Sonia et Kotov

j'espere que les liens ci dessous pourront t'aider

Lien supprimé

Lien supprimé

je place aussi en piece jointe une Demo de @+Thierry ( je n'ai pas retrouvé le lien sur le forum )


bonne soiree
MichelXld

 

[sonia]

Salut
Je te remercie beaucoup.
sonia

 

[Kotov]

Avec un peu de retard un exemple d'assistant :


Macro utilisant un Compagnon Office sosie d'Albert Einstein

Sub Hassistant()
Dim Einstein As Object
Dim EinsteinState As Boolean
Set Einstein = Assistant.NewBalloon

With Einstein
.Button = msoButtonSetOK
.Heading = "Bonjour, belle journée n'est ce pas ?"
.Text = "Faites votre choix !"
.CheckBoxes(1).Text = "Journal de Bord"
.CheckBoxes(2).Text = "Stats"
.Show
End With

If Einstein.CheckBoxes(1).Checked = True Then




Bonne soirée,
Kotov

ChDir"C:\Travail\"
Workbooks.Open FileName =:"Journal_de_Bord.xls"
End If

If Einstein.CheckBoxes(2).Checked = True Then
ChDir"C:\Travail\"
Workbooks.Open FileName =:"Stats.xls"
End If
End Sub

 

[Kotov]

!! si tu souhaite faire une copie, je me suis planté : ne pas tenir compte de "Salut bonne soirée...", erreur de copier coller !!

La véritable macro:


Macro utilisant un Compagnon Office sosie d'Albert Einstein

Sub Hassistant()
Dim Einstein As Object
Dim EinsteinState As Boolean
Set Einstein = Assistant.NewBalloon

With Einstein
.Button = msoButtonSetOK
.Heading = "Bonjour, belle journée n'est ce pas ?"
.Text = "Faites votre choix !"
.CheckBoxes(1).Text = "Journal de Bord"
.CheckBoxes(2).Text = "Stats"
.Show
End With

If Einstein.CheckBoxes(1).Checked = True Then
ChDir"C:\Travail\"
Workbooks.Open FileName =:"Journal_de_Bord.xls"
End If

If Einstein.CheckBoxes(2).Checked = True Then
ChDir"C:\Travail\"
Workbooks.Open FileName =:"Stats.xls"
End If
End Sub



et c'est içi que je salue le Forum !!
Kotov