Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm

[NONO14]

Bonjour à toutes et à tous,
Je viens requérir votre aide pour le problème suivant :
J'ai deux UserForm, un qui se nomme (UfMenuAide) et l'autre (FrmFichePourAide).
Dans le 1er il y a une liste (Menus, Enregistrements, etc...)
Lorsque je clique sur un choix alors FrmFichePourAide s'affiche avec les données d'aides concernant l'intitulé.
Dans FrmFichePourAide, il y a deux zones, une zone image "ImageFicheAide" et une autre zone ListBox "LstTexteAide".
Donc le texte s'affiche bien, mais pas l'image qui est liée et je n'arrive pas à trouver l'erreur qui s'affiche "Propriétés ou méthode non gérée par l'objet".
Les données sont des zones nommées dans la feuille "ModeEmploi". J'ai volontairement supprimé des données dans "ModeEmploi" car le fichier était trop volumineux, mais ce qui fonctionnera pour un exemple doit pouvoir fonctionner pour les autres.
Je vous joins un fichier exemple et je vous remercie par avance pour l'aide que vous pourrez m'apporter.

 

[job75]

Bonjour NONO14,

Plusieurs choses n'allaient pas, voici les plus importantes :

1) A partir d'un module standard on ne peut pas exécuter une macro située dans un UserForm, contentez-vous de :

Public Section As String 'mémorise la variable

Public Sub AfficheAide(x As String)
    Section = x
    FrmFichePourAide.Show
End Sub

2) La création du fichier bmp temporaire n'allait pas, il faut utiliser un graphique :

    'création du fichier temporaire en BMP
    TempPath = ThisWorkbook.Path & "\" & NomImage & ".bmp"
   Shp.CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height).Chart
        Do
            .Paste 'Coller
            DoEvents
        Loop While .Shapes.Count = 0 'en attente du collage
        .Export TempPath, "bmp" 'création du fichier
        .Parent.Delete
    End With
    Me.ImageFicheAide.Picture = LoadPicture(TempPath)
    Me.Repaint

3) Vous n'aviez pas nommé les plages nécessaires au remplissage de la ListBox.

A+

 

[NONO14]

Bonjour NONO14,

Plusieurs choses n'allaient pas, voici les plus importantes :

1) A partir d'un module standard on ne peut pas exécuter une macro située dans un UserForm, contentez-vous de :

Public Section As String 'mémorise la variable

Public Sub AfficheAide(x As String)
    Section = x
    FrmFichePourAide.Show
End Sub

2) La création du fichier bmp temporaire n'allait pas, il faut utiliser un graphique :

    'création du fichier temporaire en BMP
    TempPath = ThisWorkbook.Path & "\" & NomImage & ".bmp"
   Shp.CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height).Chart
        Do
            .Paste 'Coller
            DoEvents
        Loop While .Shapes.Count = 0 'en attente du collage
        .Export TempPath, "bmp" 'création du fichier
        .Parent.Delete
    End With
    Me.ImageFicheAide.Picture = LoadPicture(TempPath)
    Me.Repaint

3) Vous n'aviez pas nommé les plages nécessaires au remplissage de la ListBox.

A+

Bonjour Job75,
Merci beaucoup pour votre aide. Je ne m'en sortais pas et pour cause. Je vais pouvoir transposer votre solution dans mon projet.
Encore mille mercis.

 

[job75]

J'ai remplacé Activesheet par Ws cela évite de voir le graphique, j'ai corrigé le fichier du post #2.

 

[NONO14]

J'ai remplacé Activesheet par Ws cela évite de voir le graphique, j'ai corrigé le fichier du post #2.

Merci beaucoup de prendre de votre temps pour m'aider. Je vais pouvoir avancer dans mon projet qui est déjà bien parti.
Encore merci