XL 2010 Chemin d'accès dans module macro

Carine145

XLDnaute Nouveau
Bonsoir,

J'ai besoin de votre aide pour écrire les chemins d'accès dans une macro

Exemple

Sub consolide()

test = Feuil2.[E2]
chemfich = ThisWorkbook.Path & "\" & test
workbooks.open chemfich
if err<> 0 Then MsgBox test & " non trouvé": Exit sub

donc là j'ouvre le fichier test qui se trouve dans le même dossier que le fichier déjà ouvert et à partir duquel
je lance la macro.

ça ok, ça fonctionne

question 1: si le fichier test se trouve dans un sous dossier de thisWorkbook.Path, comment je l'écris dans le module??

exemple nom sous dossier = Base client

question 2: si le fichier test se trouve dans un autre emplacement (sur le meme disque local mais dans un autre dossier), comment dois-je écrire le code pour que:
depuis mon fichier (contenant les macros), je puisse executer la macro pour consolider les données du fichier test sur mon fichier.


Quand j'essaye de modifier le chemin d'accès, devinez ce qui se passe? gagné NON TROUVE :)

en vous remerciant d'avance pour votre aide

Carine
 

cp4

XLDnaute Barbatruc
Bonsoir:),

Réponse à ta question1
VB:
chemfich = ThisWorkbook.Path & "\Base client\" &  test

Réponse à ta question2: Oui tu dois indiquer où se trouve le fichier. Sinon tu passes par la fenêtre "ouvrir" fichier.

Bonne soirée.
 

Carine145

XLDnaute Nouveau
Bonsoir CP4 :)

Merci pour la réponse à la question 1, effectivement cela fonctionne, j'ai un pb avec les "", je ne sais pas où les mettre

si tu as deux secondes, pour la question 2, je veux bien ton aide :)
imaginons que le fichier test se trouve dans C:\Formation Excel\les macros\

donc dans la macro, je vais mettre:

Sub consolide()

test = Feuil2.[E2]
chemfich = "C:\Formation Excel\les macros\"
workbooks.open chemfich
if err<> 0 Then MsgBox test & " non trouvé": Exit sub

J'ai de nouveau test non trouvé :(

Que dois-je faire?

Bonne soirée à toi aussi

Carine
 

Discussions similaires

Réponses
11
Affichages
206

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG