Vb repertoire parent
Résolu
yohann9
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
yohann9 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
yohann9 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Vb repertoire parent
- Vb - Télécharger - Langages
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Vb cable - Télécharger - Audio & Musique
- Pourquoi certains contacts disparaissent de mon répertoire - Accueil - Guide Android
- Créer un répertoire alphabétique sur word - Forum Excel
2 réponses
Bonjour,
Non, je ne crois pas qu'il soit nécessaire d'utiliser les objets de scripting !
Bien entendu, tout dépend de l'empleur des recherches ?
exemple :
Lupin
Non, je ne crois pas qu'il soit nécessaire d'utiliser les objets de scripting !
Bien entendu, tout dépend de l'empleur des recherches ?
exemple :
Sub ChercheRepertoire()
Const Fichier_Maitre = "Donnee\MonFichier.xls"
Dim varChemin As String
Dim varDestination As String
Dim varNomFichier As String
Dim varMessage As String
varNomFichier = ActiveWorkbook.Name
varChemin = ActiveWorkbook.FullName
varChemin = Left(varChemin, InStrRev(varChemin, "\"))
varDestination = varChemin & Fichier_Maitre
varMessage = ""
varMessage = varMessage & ActiveWorkbook.Name & vbLf
varMessage = varMessage & ActiveWorkbook.FullName & vbLf
varMessage = varMessage & varChemin & vbLf
varMessage = varMessage & varDestination & vbLf
MsgBox varMessage
End Sub
'
Lupin