[XL-2007] Activer une référence

[EmmanuelleC]

Bonjour,

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

Code :

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 :

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
exemple.gif

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

[Theze]

Bonjour,

Essai de cette façon :

Code :

1
2
3
4
5
6
7
 
Sub AjouterReference()
 
    On Error Resume Next
    Application.VBE.ActiveVBProject.References.AddFromFile "C:\WINDOWS\system32\FM20.DLL"
 
End Sub

Hervé.

[EmmanuelleC]

Ca me fait le meme message d'erreur

[Theze]

Re,

Ton classeur n'est pas protégé ? Est ce que ceci te retourne bien FM20.DLL ?

Code :

1
2
 
MsgBox Dir("C:\WINDOWS\system32\FM20.DLL")

Hervé.

[EmmanuelleC]

Je fais mes tests dans un nouveau classeur (le but est de pouvoir utiliser le bout de code dans n'importe quel classeur, si le probleme était pour un classeur unique, je ne m'embeterais pas à automatiser, je le cocherais manuellement une fois pour toute), donc il n'est pas protégé

Par contre, il est par défaut en mode compatible 2003, est-ce que ca peut etre ca le probleme?

Le code que tu donnes retourne bien FM20.DLL

[Theze]

Re,

Je suis sous Excel 2007 et j'enregistre au format 2003. Je suis sous Windows 7 Pro 64 bits mais le code est bien exécuté et la référence est bien cochée, bizarre ?
Le chemin chez moi est "C:\WINDOWS\SysWOW64\FM20.DLL" mais le fait d'indiquer "C:\WINDOWS\system32\FM20.DLL" ne pose aucun problème, je pense que le compilateur doit aiguiller la commande vers le bon fichier ? Là, je ne peux pas faire plus pour toi, désolé

Hervé.

[EmmanuelleC]

Je suis en windows xp pro et sans doute en 32 bit, mais je présume que ca ne devrait pas etre bloqué en soi

J'ai essayé en sauvant d'abbord le fichier en autre chose qu'en 2003 et ca ne résoud pas le probleme

Comme je peux cocher la case manuellement, je pensais avoir les acces requis sinon je serais bloquée en manuel aussi non?

En tout cas merci d'avoir cherché