enregistrer un xls en VB

[Chico]

bonjour a tous,

voici l'arborescence de mon répertoire de mon projet:

c:......

...../projet/planning/
.........................../modèle/modeledepart.xls
.........................../départ/nompersonne.xls
.........................../2006/personnelsectionA.xls
.........................../2006/personnelsectionB.xls
..
..
.........................../2007/
..
..
ce que je veux fairec quand j'ouvre le fichier ../2006/personnelA.xls
et que je choisit une personne qui pars ( monsieur Titi).
j'appuie sur un bouto ' départ ', ce bouton ouvre le fichier ' ../modele/modeledepart.xls, insère les données de M.Titi et enregistre ce fichier dans '../depart/tit.xls

Ma question est:
comment peut t'on indiquer le repertoire d'ouverture et d'enregistrement sans tenir compte des repertoire qui se trouve avant '.../planning/... '

exemple:
c:/projet/planning/modele/.....
Workbooks.Open (FileName::='C:\\projet\\planning\\modede\\modeledepart.xls')
le probleme c que le repertoire peut etre dans le 'D:\\personnel' par exemple.
avez vous une idée comment pointer sur un fichier, independament du chemin avant ' .../planning/...' ?
merci de votre aide

Amicalement
- Chico-

 

[MichelXld]

bonjour


pour récupérer le repertoire parent du classeur contenant cette macro ,tu peux tester


Sub afficherRepertoireParent()
ChDir (ThisWorkbook.Path)
ChDir '..'
MsgBox CurDir
End Sub


et pour remonter 2 repertoires parents par rapport au classeur contenant la macro


Dim Chemin As String
ChDir (ThisWorkbook.Path)
ChDir '..'
Chemin = Left(CurDir, InStrRev(CurDir, '\\\\\\\\') - 1)
MsgBox Chemin



bon apres midi
MichelXld

Message édité par: michelxld, à: 11/12/2005 15:18

 

[Chico]

merci pour tes conseil Michel
je vais tester ton bout de code
merci encore
A+