Vb repertoire parent

Résolu/Fermé

yohann9 Messages postés 7 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 25 juillet 2007 - 18 juil. 2007 à 17:50
yohann9 Messages postés 7 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 25 juillet 2007 - 20 juil. 2007 à 10:01

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

A voir également:

Vb repertoire parent
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Répertoire téléphonique gratuit - Télécharger - Bureautique
Répertoire appdata - Guide
Impossible de verrouiller le répertoire /var/lib/apt/lists/ ✓ - Forum Ubuntu

2 réponses

Réponse 1 / 2

Utilisateur anonyme
18 juil. 2007 à 21:46

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

Réponse 2 / 2

yohann9 Messages postés 7 Date d'inscription mercredi 28 juillet 2004 Statut Membre Dernière intervention 25 juillet 2007
20 juil. 2007 à 10:01

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

Discussions similaires

Erreur de déplacement du répertoire "Mes documents"

copier tout un répertoire sous dos

Accès Documents La syntaxe du fichier, de répertoire ou de volume est incorrecte

comment creer un répertoire

Erreur 0x80070091 : Le répertoire n'est pas vide

Discussions similaires

Newsletters