[VI-2003] Fonction FIND sur Visio

[capounet]

Bonjour,
Je suis débutant et malheureusement, il est urgent que je trouve une solution.
Je vous expose mon problème : je gère une base de données d'information concernant des ordinateurs sur Excel. Pour améliorer le système, j'ai créé un fichier Visio sur lequel j'ai placé la localisation des ordinateurs. Je souhaiterai, à partir de mon interface VBA sur Excel, ouvrir Visio et faire une recherche à l'instar de la fonction find en VBA excel, du nom de l'ordinateur sur mon plan visio. Je ne trouve pas la fonction VBA sur internet alors que la commande existe dans les menus de Visio. Voici le début de ma procédure dans un module excel :

public vs as visio.document

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub positionGeo()
dim vsd as visio.application
dim chemin as string
 
if vs is nothing then
      set vs = new visio.application
end if
chemin="...."
 
with vsd
     if vs is nothing
            set vs = .documents.open(chemin)
     end if
 
end with
end sub

Je sais, il n'y a pas grand chose mais c'est aussi pour cette raison que je demande de l'aide.
Merci pour vos réponses