OVH Cloud OVH Cloud

Quel code pour désigner le repertoire au dessus

6 réponses
Avatar
gilles
bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien ,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles
--

6 réponses

Avatar
anonymousA
Bonjour,

fais une recherche par Google sur le forum avec le mot clé fso ou file
system Object. Je suis certain que tu trouveras surement beaucoup
d'éléments pour te permettre de naviguer dans les répertoires.

A+

gilles wrote:
bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au d essus de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECH NICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien ,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles
--


Avatar
gilles
Merci anonymous
je regarde ça
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...



Bonjour,

fais une recherche par Google sur le forum avec le mot clé fso ou file
system Object. Je suis certain que tu trouveras surement beaucoup
d'éléments pour te permettre de naviguer dans les répertoires.

A+

gilles wrote:
bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien ,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles
--






Avatar
Michel Pierron
Bonsoir Gilles;
Simplement:
Workbooks.Open ThisWorkbook.Path & "..Techniciens.xls"

MP

"gilles" a écrit dans le message de news:

bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus
de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien
,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles
--



Avatar
gilles
bonjour Michel et merci de ta réponse
j'ai tenté d'integrer ta réponse dans le code mais ça marche pas
en fait je ne veux pas ouvrir Techniciens.xls, mais seulement récupérer des
données
ça marche si Techniciens est dans le même rep que le fichier ou je veux
importer les données j'ai le code, mais si techniciens est le niveau au
dessus, ça marche pas
à+
--
gilles72



Bonsoir Gilles;
Simplement:
Workbooks.Open ThisWorkbook.Path & "..Techniciens.xls"

MP

"gilles" a écrit dans le message de news:

bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus
de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien
,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles
--








Avatar
Ange Ounis
Si tu utilises Excel 2000 ou + récent, une petite fonction VBA peut peut-être te
dépanner :

'''''''''''''''''''''
Function DossierPrécédent(Chemin As String)
Dim i As Long, S As String
For i = 0 To UBound(Split(Chemin, "")) - 1
S = S & Split(Chemin, "")(i) & ""
Next
DossierPrécédent = Left(S, Len(S) - 1)
End Function
'''''''''''''''''''''

Ensuite, dans ta procédure de récupération des données :

Sub test()
GetValuesFromAClosedWorkbook _
DossierPrécédent(ThisWorkbook.Path), _
"fiche info affaire.xls", _
"Fiche", _
"B8:H85"
End Sub

----------
Ange Ounis
----------

bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien ,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles


Avatar
gilles
bonjour
je te réitère mes remerciements passés sur le message précédent, ainsi qu'à
MIchel Denis, Michel PIERRON, et AnonymousA, qui m'ont aidé à travers mes 2
ou 3 messages
Excusez pour l'insistance
à+
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...



Si tu utilises Excel 2000 ou + récent, une petite fonction VBA peut peut-être te
dépanner :

'''''''''''''''''''''
Function DossierPrécédent(Chemin As String)
Dim i As Long, S As String
For i = 0 To UBound(Split(Chemin, "")) - 1
S = S & Split(Chemin, "")(i) & ""
Next
DossierPrécédent = Left(S, Len(S) - 1)
End Function
'''''''''''''''''''''

Ensuite, dans ta procédure de récupération des données :

Sub test()
GetValuesFromAClosedWorkbook _
DossierPrécédent(ThisWorkbook.Path), _
"fiche info affaire.xls", _
"Fiche", _
"B8:H85"
End Sub

----------
Ange Ounis
----------

bonjour,
j'aimerais trouver le code qui fait référence au dossier situé au dessus de
repertoire ou se situe le fichier actif ouvert, dans le quel est placée la
macro.
ex:
D:/
dossier QUANTITES/ fichier TECHNICIENS /onglet FOURNITURES
sous-repertoire JEAN / fichier TOTO/ onglet FOURNITURES

je souhaite récupérer les données de la plage B6:F10 du fichierTECHNICIENS
(fermé) pour les importer sur le fichier TOTO également en B6:F10

Tant que c'est dans le même repertoire, le code trouvé sur le site va bien ,
mais pour remonter d'un cran , ça ne va plus
J'ai lancé un précédent message, sans suite (sans doute pas clair!)

Si kekun peut m'éclairer, remerciements chaleureux
Gilles