References - VBAPROJECT

Bonjour,

J'utilise un code qui m'oblige à utiliser la référence "Microsoft Scripting Runtime".
Étant donnée que le classeur Excel sera utilisé par des clients.

J'aimerais pouvoir ajouter automatiquement par code VBA cette référence, car j'ai remarqué pour X raisons que parfois la référence n'est plus cochée.

Il y a qu'il une solution?

Merci de votre aide et je précise que j'ai fait des recherches avant de poser ma question.

salut,

de mon côté, aussi en cherchant dans la :faq:, j'ai trouvé ceci :
http://excel.developpez.com/faq/inde...tiverReference

le code d'ajout doit se faire à l'ouverture de ton fichier (excel, access ou word)

on reste dispo si tu as encore des points bloquants :king:

Merci de ton aide mais l'ajout n'est pas automatique sur ce lien:

Citation:

---

Pour activer une bibliothèque (référence), déplacez vous dans l'éditeur de macros (ALT+F11):
Menu Outils
Références
Cochez la ligne qui correspond à l'application que vous souhaitez piloter.
Cliquez sur le bouton OK pour Valider.
Vous avez désormais accès aux méthodes et propriétés VBA de l'application spécifiée.

---

Cette aide explique comment utiliser une référence pour utiliser WORD par exemple.

il y a en bas de l'article en question un bout de code VBA :mouarf:

Citation:

---

Code:

---

1 2 3 4

'Ajoute la référence Outlook pour OfficeXP Dim xRef As String xRef = "C:\Program Files\Microsoft Office\Office10\MSOUTL.OLB" ThisWorkbook.VBProject.References.AddFromFile xRef

---

---

il te suffit de l'adapter en conséquence (boucle for sur la version Office) et c'est dans la poche ;)

Voici le code que j'ai mise (voir deuxième case), j'ai aussi testé le code SilkyRoad (première case):

Code:

---

1 2 3 4

Dim xRef As String xRef = "C:\Program Files\Microsoft Office\Office11\MSOUTL.OLB" ThisWorkbook.VBProject.References.AddFromFile xRef

---

Code:

---

1 2 3 4 5 6 7 8

'Ajoute la référence Microsoft Scripting Runtime   Dim xRef As String   xRef = "C:\WINDOWS\system32\scrrun.dll"   ThisWorkbook.VBProject.References.AddFromFile xRef

---

Mais cela m'affiche la même erreur dans les deux cas:

Citation:

---

Error 1004:
Method 'VBproject' of object '_workbook ' failed

---

Je continue à chercher la raison de cette erreur mais si entre temps quelqu'un à une réponse...

J'ai trouvé la raison de l'erreur 1004.
Ci joint une remarque récupérer dans un forum:

Citation:

---

L'erreur 1004 provient de la case "Faire confiance au Projet Visual Basic" non cochée.
Dans Excel, faites menu Outils/Options/Sécurité… et dans l'onglet ''Editeurs approuvés'' cochez la case susdite.

---

j'ai effectué la manœuvre est ça marche nickel.

Merci de votre aide.

Si cela interesse quelqu'un voici comment on fait pour savoir si la case "Faire confiance au "Projet Visual Basic est cocher"
http://excel.developpez.com/faq/?pag...fianceProjetVB

D'ailleurs j'ai une autre question par rapport à ce post il n'y a t-il pas moyen de cocher automatiquement la case "Faire confiance au "Projet Visual Basic est cocher"?
genre:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim vbpName As String   On Error Resume Next   vbpName = ThisWorkbook.VBProject.Name If vbpName = vbNullString Then ThisWorkbook.VBProject.Name = "VBAProject" 'MsgBox "Veuillez cocher ..." End If

---

bonjour

Citation:

---

D'ailleurs j'ai une autre question par rapport à ce post il n'y a t-il pas moyen de cocher automatiquement la case "Faire confiance au "Projet Visual Basic est cocher"?

---

Je ne pense pas car cela nuirait à la sécurité de l'application et à la protection contre les virus malveillants.


bonne journée
michl