OVH Cloud OVH Cloud

Adresse des fichiers

4 réponses
Avatar
lolo
Bonjour a tous,

Je voudrais par macro, copier les données de l'onglet1 du classeur1 dans
l'onglet3 du classeur4. Je voudrais faire de même pour les onglets1
des classeurs 2 & 3 vers l'onglet3 du classeur4.

Mais lorsque je teste, je suis obligé de mettre dans ma macro le chemin
en dur : F:/repertoire1/fichier1.xls etc.
Hors, je veux pouvoir mettre ce repertoire avec les fichiers sur
d'autres ordinateurs mais qui n'ont pas forcement la même configuration
de disques.
ex : C:/repertoire1/fichier1.xls et sur une autre machine
D:/Toto/repertoire1/fichiers1.xls
Quelqu'un parmi vous aurait-il une soluce ?

Merci d'avance.

4 réponses

Avatar
JpPradier
Bonsoir lolo

tu peux donner un chemin relatif. Exemple :

C:Rep1Fichier1.xls
C:Rep1SousRep1Fichier2.xls
C:Rep2Fichier3.xls

En partant du fichier1 :

Workbooks.Open("SousRep1Fichier2.xls")
Workbooks.Open("..Rep2Fichier3.xls")

Les deux point servent à remonter d'un répertoire dans l'arborescence.

j-p
Avatar
lolo
Bonsoir,

En utilisant votre méthode, cela m'oblige à connaitre le repertoire
d'installation.
Hors ce que je cherche, si c'est possible, c'est de pouvoir installer
mon repertoire Rep1 sur C: sur la machine1 et peut etre sur D:Travail
sur une autre machine.
La seule chose de connue, c'est que dans Rep1, il y 5 fichiers Excel et
que le fichier5 récupére les données des fichiers 1 à 4.
Et l'inconnue c'est l'endroit ou les gens vont copier ce répertoire.

Bonsoir lolo

tu peux donner un chemin relatif. Exemple :

C:Rep1Fichier1.xls
C:Rep1SousRep1Fichier2.xls
C:Rep2Fichier3.xls

En partant du fichier1 :

Workbooks.Open("SousRep1Fichier2.xls")
Workbooks.Open("..Rep2Fichier3.xls")

Les deux point servent à remonter d'un répertoire dans l'arborescence.

j-p



Avatar
JpPradier
Tu peux alors utiliser à partir du 1er fichier :

ThisWorkbook.Path

qui retourne le chemin ou est enregistré le fichier.

j-p
Avatar
lolo
Merci pour le coup de main, cela fonctionne impec.
Encore merci.

Tu peux alors utiliser à partir du 1er fichier :

ThisWorkbook.Path

qui retourne le chemin ou est enregistré le fichier.

j-p