VBA insérer une plage dans une zone de texte

Bonjour Claude

ton code est bon, mais si tu veux copier le textbox dans la cellule active, tu dois entrer la feuille active et la cellule active dans une variable et les appeler avant de copier.

Sub Macro1()
    Dim MaCellule As Range
    Dim MaFeuille As Worksheet

    Set MaFeuille = ActiveSheet
    Set MaCellule = ActiveCell

    Sheets("aide").Select
    Sheets("aide").txtBackCoverSaisie.SpecialEffect = fmSpecialEffectFlat
    ActiveSheet.Shapes("txtBackCoverSaisie").Copy
    Sheets("aide").txtBackCoverSaisie.SpecialEffect = fmSpecialEffectSunken
    MaFeuille.Activate
    MaCellule.Select
    ActiveSheet.Paste

    Set MaFeuille = Nothing
    Set MaCellule = Nothing

End Sub

Pour le textbox, tu pourrais mettre le paramêtre SpecialEffect à fmSpecialEffectFlat, il n'aura plus d'effet de profondeur du cadre. Tu peux aussi mettre le fond à transparent pour voir une éventuelle image de fond. ( BackStyle = fmBackStyleTransparent )

Bonsoir Math et au forum,

C'est nickel comme çà, j'ai incorporé ta macro dans le menu-barre. OK !

Je verrais à l'usage, mais c'est ce que je voulais.

Au fait, tu ne m'a pas dit ce que çà donne à l'impression.

Est-ce-que le disque est à-peu-près rond ?

il est re-calibré à chaque zone d'impression.

Tu m'a bien aider sur ce coup là !

Encore merci

Amicalement........Claude.

Pour être franc Claude je ne l'ai pas testé avec le disque, uniquement avec les pochettes. Je ne sais pas comment ça va réagir pour le disque.