Supprimer une référence par VB

RENAUDER

Nous a quitté

Repose en paix

• 10 Octobre 2011

• #2

Re : Supprimer une référence par VB

Bonjour,

Je te propose d'essayer ce bout de code. Tu n'as pas de Référence à Word à déclarer.

Code:

Sub OuvreWord()
    Set WApp = CreateObject("Word.application")
    WApp.Visible = True   ' Affichage de Word
    ficWord = ActiveWorkbook.Path & "\DocWordAOuvrir.doc"
    Set ficWord = WApp.Documents.Open(Filename:=ficWord)      'Definition de FicWord comme étant le fichier Word à traiter
    ficWord.Close
    WApp.Quit    'On quitte Word
    Set WApp = Nothing
End Sub

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 10 Octobre 2011

• #3

Re : Supprimer une référence par VB

Bonsoir,

FJPT à dit:

Appelant un fichier Word à partir d'Excel 2003, j'essaie de supprimer par VB la référence à Word (problème avec office 2007) par la ligne suivante:
ThisWorkbook.VBProject.References.Remove "Microsoft Word 11.0 Object Library"
et cela ne fonctionne pas.

Cliquez pour agrandir...

2007 est la version ... 12.0

Code:

With ThisWorkbook.VBProject.References
    For i = 1 To .Count
        t = t & .Item(i).Name & " : " & .Item(i).Description & vbLf
    Next
MsgBox t
    For i = 1 To .Count
        If .Item(i).Description Like "Microsoft Word 12.0 Object Library" Then
            .Remove .Item(i)
        End If
    Next
End With

A+
kjin

 

Vote positif 0 Vote négatif

F

FJPT

XLDnaute Junior

• 11 Octobre 2011

• #4

Re : Supprimer une référence par VB

Merci, merci, merci à vous deux
Je commençais sérieusement à tourner en rond.
Je vais tester et je vous tiens au courant.
Bonne journée.
Cordialement.
JP

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 11 Octobre 2011

• #5

Re : Supprimer une référence par VB

Bonjour à tous

Sinon, j'aime bien ce lien pour ce type de problème 🙂.

Ce site n'existe plus

 

Vote positif 0 Vote négatif

F

FJPT

XLDnaute Junior

• 11 Octobre 2011

• #6

Re : Supprimer une référence par VB

Bonjour à tous
Merci à MJ13 pour ce lien dont je me suis déja inspiré.
Le code que j'essaie de faire fonctionner est celui de kjin qui me donne dés la première ligne le message que je n'arrive pas à contrer à savoir :
"Erreur d'exécution '1004' :
Erreur définie par l'application ou par l'objet"
Effectivement, en passant, kjin c'est bien la référence à Word 12 que je voudrais supprimer à le fermeture d'Excel 2007, afin qu'elle ne soit pas introuvable à l'ouverture d'Excel 2003.
Mon code est dans "ThisWorkbook" est je voulais le placer dans l'évènement Beforeclose.
Merci à tous pour votre contribution.
Je continue.
Cordialement.
JP

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Octobre 2011

• #7

Re : Supprimer une référence par VB

Bonjour à tous,

Moi je préconiserais la solution d'Eric Renauder, pour éviter les problèmes liés aux références, le mieux est de se passer des références...

 

Vote positif 0 Vote négatif

F

FJPT

XLDnaute Junior

• 11 Octobre 2011

• #8

Re : Supprimer une référence par VB

Bonjour à tous
J'ai essayé la solution de tototiti2008 qui fonctionne mais à l'édition sous Word je n'arrive pas à me débarasser de la grille.
Je progresse tout de même car en plaçant le code de kjin dans un module il me donne un problème de fiabilité du code et l'aide me propose d'aller dans Macro, Sécurité et de cocher "Faire confiance au projet Visual Basic".
Ainsi je réussi à faire fonctionner partiellement le code de kjin.
Est-ce dangereux ? Je ne sais pas.
Je ne saurais trop tous vous remercier de votre aide.
Je poursuis.
Cordialement.
JP

 

Vote positif 0 Vote négatif

F

FJPT

XLDnaute Junior

• 11 Octobre 2011

• #9

Re : Supprimer une référence par VB

Bonjour à tous
Non, je ne vous inonde pas de courriers mais je vous exprime ma gratitude.
J'ai réintégré la macro de kjin dans ThisWorkbook et elle fonctionne parfaitement.
Il me reste à la tester sur Excel 2007, car effectivement, c'est la référence à Word 12 que je veux supprimer.
La seule chose que j'ai faite en plus, c'est de cocher "faire confiance au projet Visual Basic".
Merci à tous pour votre aide.
Cordialement.
JP

 

Vote positif 0 Vote négatif