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
Je sais, il n'y a pas grand chose mais c'est aussi pour cette raison que je demande de l'aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci pour vos réponses
Partager