Discussion :

[EmmanuelleC]

Bonjour,

Je cherche a utiliser le bout de code suivant (le but est de mettre dans le press papier sans aucun formatage)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.SetText ActiveCell, Format:=1
    MyData.PutInClipboard

Il fonctionne tres bien mais il réclame que la référence "Microsoft Forms 2.0 Object Library" soit cochée
Je cherche donc une facon de la cocher si elle n'est pas déja cochée pour le wordbook

Apres avoir un peu cherché, je pensais m'en tirer avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\system32\FM20.DLL")

L'adresse vient de ce qui apparait quand je vais manuellement dans référence et que je le coche moi meme


Mais je me prend une erreur 1004 dans les dents (y compris quand la case n'est pas encore cochée, j'ai bien compris qu'essayer de la cocher si elle est déja cochée fera un message d'erreur)

Qu'est-ce que je fais de mal?
Je le met dans un module et il faudrait le mettre ailleurs?
C'est pas l'adresse qui apparait quand on sélectionne la référence qu'il faut utiliser?

Merci d'avance si quelqu'un sait me dépanner