vb repertoire parent Résolu/Fermé

Question

Sous vba, j'aimerais accèder à un répertoire parent ou il y a fichier texte que je voudrais lire par la suite.
J'ai déjà vu des solutions mais il faut toujours au préalable donner le chemin complet.

J'ai un projet qui sera installé sous des répertoires differents mais l'arboresence du projet ne change pas et je dois accèder à un fichier dans cette arborescence(dossier parent du fichier excel) qui contient le chemin d'une base. si par exemple je met : Open ("..\base.txt") cela ne marche pas mais en chemin absolu il n'y a pas de problème.

Merci d'avance de m'éclaircir un peu les idées....

ps: est-ce utile d'utiliser FileSystemObject ??

Utilisateur anonyme · Accepted Answer

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 :


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

yohann9 · Answer

merci de m'avoir donné quelques exemples, ça m'a très bien aidé, j'étais parti sur une mauvaise direction
bien plus compliqué.

encore merci

Vb repertoire parent

2 réponses

Discussions similaires