Discussion :

[LimsWolf]

Bonjour, comme prévu je reviens pour la suite de mon programme, car mon chef m'a mis un gros coup de pression, j'ai un travail de fou pour la fin du mois.
et je bloque déja sur un chemin relatif.

Je voudrai remonter dans l'arborescence d'un chemin relatif à partir du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Path

comme cela est possible dans d'autre langage (C++)

Je voudrai obtenir quelque chose comme ça :

gabarit(0) = ThisWorkBook.path & "..\0-Pieces graphiques\a-Travail\$$ AVM.dwg"

mais ça me renvoi ça :
G:\LP_CAO_DAO\PROJET_ENTREPRISE\00-REEL\4-Estimation avant métrés\$$ AVM.dwg

et le fichier excel se trouve dans le répertoire "4-Estimation avant métrés"

au lieu de ça :
G:\LP_CAO_DAO\PROJET_ENTREPRISE\00-REEL\0-Pieces graphiques\a-Travail\$$ AVM.dwg

[pijaku]

Bonjour,

Pour être complet dans la réponse :
"remonter" dans l'arborescence signifie pour moi aller dans le dossier "parent" du répertoire ou est stocké ton classeur (ThisWorkBook.Path)
Donc pour "remonter" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim RepParent As String, RepInitial As String
 
ChDir (ThisWorkbook.Path)
RepInitial = CurDir(ThisWorkbook.Path)
ChDir ".."
RepParent = CurDir(ThisWorkbook.Path)

Avec ce code, si ThisWorkbook.Path = C:\Mes Documents\0-Pieces graphiques\a-Travail\$$ AVM.dwg, RepParent retourne :
C:\Mes Documents\0-Pieces graphiques\a-Travail

Par contre, si tu veux accéder aux sous répertoires du dossier ou est stocké ton classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim RepEnfant As String
RepEnfant = ThisWorkbook.Path & "\0-Pieces graphiques\a-Travail\$$ AVM.dwg"

Avec ce code, si ThisWorkbook.Path = C:\Mes Documents, RepEnfant te retourne :
C:\Mes Documents\0-Pieces graphiques\a-Travail\$$ AVM.dwg

[Philippe Tulliez]

Bonjour,
Comme ceci par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Debug.Print Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)

[Philippe Tulliez]

Bonjour,
Mal lu la question.
Le répertoire parent c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Debug.Print Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)

[LimsWolf]

Merci de vos réponse rapide, mais j'ai du mal à l'intégrer dans mon code.

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
Sub CommandButton11_Click()
Dim RepInitial As String
 
UserForm2.TextBox11.Locked = False
    UserForm2.TextBox11.BackColor = &H80000005
 
    ChDir (ThisWorkbook.Path)
    RepInitial = ChDir(ThisWorkbook.Path)
    ChDir ".."
    gabarit(0) = ChDir(ThisWorkbook.Path) & "\0-Pieces graphiques\a-Travail\$$ AVM.dwg"
 
    UserForm2.TextBox11.Locked = True
    UserForm2.TextBox11.BackColor = &H80000013
    DoEvents
End Sub

j'ai une error "fonction ou variable attendue" sur ChDir, de RepInitial = ChDir(ThisWorkbook.Path)

[pijaku]

Je n'ai apparemment rien compris du tout.

Soyons simple, donne nous en version développée (C:\Machin\Truc\Bidule_Chouette\) :
- ThisWorkbook.Path
- le répertoire ou le chemin d'accès au fichier que tu souhaites placer dans ton gabarit(0)

EDIT : à tout hasard essayez :

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 CommandButton11_Click()
Dim RepParent As String, RepInitial As String
 
UserForm2.TextBox11.Locked = False
    UserForm2.TextBox11.BackColor = &H80000005
 
    ChDir (ThisWorkbook.Path)
    RepInitial = CurDir(ThisWorkbook.Path)
    ChDir ".."
    RepParent = CurDir
    gabarit(0) = RepParent & "\0-Pieces graphiques\a-Travail\$$ AVM.dwg"
 
    UserForm2.TextBox11.Locked = True
    UserForm2.TextBox11.BackColor = &H80000013
    DoEvents
End Sub

[LimsWolf]

dans mon gabarit(0) je veux mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"G:\LP_CAO_DAO\PROJET_ENTREPRISE\00-REEL\0-Pieces graphiques\a-Travail\$$ AVM.dwg"

et mon fichier excel se trouve là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"G:\LP_CAO_DAO\PROJET_ENTREPRISE\00-REEL\4-Estimation avant métrés\Automatisation AVM(suite)_5.B.xls"

Nop, ça me retoune le bon fichier mais dans le mauvais répetoire :

G:\LP_CAO_DAO\PROJET_ENTREPRISE\00-REEL\4-Estimation avant métrés\$$ AVM.dwg

Corona, comment puis-je testé ton code je ne sais pas du tout comment l'intégrer, c'est d'un autre niveau que mon code :p

[Philippe Tulliez]

Bonjour,

Corona, comment puis-je testé ton code je ne sais pas du tout comment l'intégrer, c'est d'un autre niveau que mon code :p

Eh bien comme n'importe quelle fonction
Si tu exécutes dans une procédure quelconque ou dans la fenêtre d'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
debug.print Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
'ou bien
msgbox Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)

Il va t'afficher le répertoire parent.
Dans ton code, tu peux aussi placer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
maVariable = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
ChDir maVariable
'ou directement
ChDir Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)