VBA + Loin en VBA

Les Fonctions


Il y a les fonctions internes de VBA (telles que Abs ou Instr ) mais il peut y avoir aussi les fonctions définies par l'utilisateur. Elles renvoient dans leur nom un résultat qui sera utilisé dans l'application.
On crée les fonctions dans le module de feuille ou de code. On peut les définir publique ou privée par Public ou Private.

Voici 3 fonctions qui pourront vous être utiles pour le développement en VBA.
Très différentes l'une de l'autre, toutes les trois concernent la recherche de fichiers ou de répertoire.
Chacune est suivie d'un exemple d'utilisation.

Au menu :

  • FindFile : L'équivalent de la commande AutoLISP de même nom.
  • FouilleTout : Recherche d'un fichier sur tous les disques accessibles à l'aide de fonctions API.
  • ChercheChemin : Recherche d'un répertoire sur tous les disques accessibles à l'aide de fonctions API.

FindFile

FindFile Cette fonction, analogue à la fonction FindFile d'AutoLISP, recherche le fichier spécifié dans tous les répertoires accessibles par AutoCAD (répertoire du dessin courant, répertoire d'Acad.exe, répertoires de fichiers de support, etc). Si le fichier est trouvé, la macro retournera le chemin complet suivi du fichier, sinon elle retournera une chaîne vide.
Si le chemin spécifié comprend au moins un antislash (\), il est présumé que c'est un un chemin complet et la macro vérifiera seulement que le fichier existe dans ce chemin.
Les caractères génériques (*, ?) ne fonctionnent pas correctement.
Rendons à César ... C'est une adaptation française du programme de Colin French.

La suite de cette leçon est maintenant réservée aux Adhérents @d+ .

La fonction FouilleTout

La macro comprend les éléments suivant :


La suite de cette leçon est maintenant réservée aux Adhérents @d+ .


ChercheChemin

ChercheChemin ChercheChemin

La fonction affiche la fenêtre Parcourir à la recherche d'un fichier qui montre l'arborescence du système tout comme la boîte de Common Dialog . Par contre ici , les fichiers ne sont pas affichés.
La macro retourne le chemin complet du répertoire sélectionné.
Tout comme la fonction précédente, ChercheChemin utilise des fonctions API.

La suite de cette leçon est maintenant réservée aux Adhérents @d+ .

Téléchargement
Téléchargement Les abonnés peuvent cliquer sur l'icône pour télécharger le projet complet en VBA comprenant toutes les routines ci-dessus (56 ko)..
Attention, fichier codé.

-----

AcadUnsupp & Acvbext : Des Extensions pour AutoCAD ActiveX Automation


--

© 1998-2000 FASOFT - Roger Rosec Tous droits réservés.