XL 2021 VBA bouton pour copier le contenu d'une cellule

[fuioplde]

Bonjour à tous,

Je travaille actuellement sur un classeur Excel dans lequel je souhaite ajouter un bouton permettant de copier automatiquement le contenu d'une cellule spécifique (par exemple, E3 dans une feuille nommée "Nommage") dans le presse-papiers sans modifier la sélection de cellules dans Excel.

Cependant, ce code pose des problèmes, surtout lors de la réouverture du fichier. J’ai vérifié les paramètres de sécurité des macros et essayé d’ajouter des références à la bibliothèque Microsoft Forms 2.0 Object Library, mais sans succès.

 

[piga25]

Bonjour,
Un essais avec ceci : valable pour la feuille Nommage et cellule E3

Sub CopierDansPressePapier()
Dim ws As Worksheet
Dim x$
    Set ws = ThisWorkbook.Sheets("Nommage") ' Remplacez "Nommage" par le nom exact de votre feuille si nécessaire
    ' Copier la valeur de la cellule dans le presse-papiers
    x = Trim(ws.[E3].Text)
        With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject en late binding
            .SetText x
            .PutInClipboard
        End With
    MsgBox "Le texte '" & x & "' a été placé dans le presse-papiers..."
End Sub

 

[fuioplde]

Ca fonctionne mais quand je ferme mon fichier et que le réouvre la macro à disparu...

 

[fuioplde]

Ca fonctionne mais quand je ferme mon fichier et que le réouvre la macro à disparu...

Fallait enregistrer en classeur comprenant les macros autant pour moi