Modification automatique Références

Version imprimable

Bonjour à tous,

Je me retrouve face à un problème à 2 étapes et même avec les sujets suivants je n'ai pas réussi à trouver une réponse fonctionnelle à mon soucis :

http://www.developpez.net/forums/d18...ue-references/

http://www.developpez.net/forums/d79...eference-code/

http://www.developpez.net/forums/d17...ent-reference/

http://www.developpez.net/forums/d13...reference-vba/

http://www.developpez.net/forums/d57...nce-manquante/

La 1ère étape que je souhaiterais réaliser est de supprimer automatiquement les références manquantes de mon classeur selon le pc utilisé.

j'ai aussi essayé ça mais sans succès :
Code:

1 2 3 4 5 6 7 8 Sub supp_ref() Dim r As Object With ThisWorkbook.VBProject For Each r In .References If r.Description Like "*MANQUANT*" Then .References.Remove .References(r.Name): Exit For Next r End With End Sub
Je tombe sur le message "Erreur de chargement de la DLL".

Etape 2 : Pour les références manquantes, il faudrait que je puisse ajouter les bonnes versions de références si elles existent et sinon bin... tant pis elles sont supprimées :D Typiquement, j'utilise dans mon programme les références pour piloter Visio 2007 à partir d'Excel (références Microsoft Visio 12.0 Type library et Microsoft Visio 12.0 Drawing control type library). J'ai essayé de lancer la macro sur un Visio 2002 et bien sur ces références n'existent pas elles sont nommées Microsoft Visio 2002 Type library un truc du genre... et bien sur certains PC ne seront pas forcément équipés de Visio et je devrais mettre un message bloquant à l'utilisateur dans ce cas.

Est ce que quelqu'un aurait une idée de comment procéder ?

Merci d'avance pour ceux qui prendront le temps de se pencher sur mon problème.

P.S : le but final est de pouvoir faire tourner les macros pour "toutes" les versions Excel et Visio (on va dire au moins de 2003 à aujourd'hui, et pourquoi pas plus si affinité :lol:)

18/10/2013, 16h05
Invité

Pourquoi ne pas coder en 'late binding' du coup si le parc est très diversifié ?
18/10/2013, 16h20
Aurel51

C'est ce que j'ai fais justement. au début mes programmes étaient éloborés en early binding mais une fois qu'ils étaient finalisés je les passait en late binding. mais par rapport aux références ca ne change rien si ?
18/10/2013, 16h34
Invité

Ba si il n'y a plus besoin des références.
18/10/2013, 16h39
Aurel51

je sais pourquoi actuellement j'ai toujours besoin des références, c'est que j'ai un programme principal créant et plaçant les formes, et des programmes secondaires pour dimensionner les feuilles, les formes etc... du coups dans la fonction j'appelle :

Code:

Function BackPage(app_visio As Visio.Application, vsoPage1 As Visio.Page)

par exemple... après il y a peut etre un moyen d'y remédier

Je ne connais pas Visio mais ça aurait plutôt cette forme:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub Test()
 
  Dim appVisio As Object, vsoPage1 As Object
 
  Set appVisio = CreateObject("Visio.Application")
  Set vsoPage1 = appVisio.ActiveDocument.Pages
 
  Call BackPage(appVisio, vsoPage1)
 
  appVisio.Quit
  Set appVisio = Nothing
 
End Sub
 
Function BackPage(appVisio As Object, vsoPage1 As Object)
 
End Function

21/10/2013, 10h22
Aurel51

Merci beaucoup, je vais essayer tout ça et je mettrais les résultats ici :ccool:
21/10/2013, 11h21
Aurel51

J'ai testé tout ça et effectivement ça fonctionne ! bon il m'a fallu remplacer 50 variables (définies dans les références visio) par leur valeur pour que ça fonctionne sans les références. Dans la semaine je vais tout de même tester plusieurs versions d'Excel et Visio pour confirmer que mon problème est complètement résolu.

Encore merci et bonne journée !
21/10/2013, 11h43
Invité

Ok. Il n'y a pas de raison que ça ne fonctionne pas sur d'autres postes si 'Visio' est bien installé.