Récupération d'un chemin

[Shnoopy6Dog]

Bonjour le Forum ,

Actuellement je travail sur un projet de gestion de stock.

Données du projet :

-Dans un dossier nommé Magasin j’ais un sous dossier nommé fiches produits.
-Une feuille nommé BDD , cette feuille n’étant pas dans le dossier fiches produits mais dans le dossier magasin.

Le dossier fiches produits comporte + 1000 fiches produits
Je récupère certaines informations sur toutes les fiches produits : ( Ex : Quantité , Emplacement , Fournisseur ) Code issus d’une démo de Michel XLD ( Lire fichier fermé ) que je remercie au passage.
J’écrit le chemin du dossier fiches produits dans le code pour pouvoir lire les fichiers .

Ma question :

Comment faire pour que le chemin ce mette à jour automatiquement lorsque l’on déplace le dossier magasin sans avoir à écrire le nouveau chemin dans le code .

Merci pour votre aide et bon Week End à vous .

Shnoop-Dog

 

[Tibo]

Salut,

je ne suis pas du tout spécialiste VBA.

Toutefois, pour récupérer le chemin d'un fichier, il y a cette solution formule :

=CELLULE('nomfichier';A1)

Il faut bien taper 'nomfichier' et non pas le nom du fichier.

Pour plus de précisions sur cette formule, voir l'aide assez complète d'excel sur la fonciton CELLULE.


Bon WE à tous sous un ciel incertain (à Maubeuge)

 

[michel_m]

Bonjour,


Pour résoudre ce genre de pb,
1/j'ai construit un classeur nommé 'memoire.xls' dans le m^me dossiers que les fichiers-source (ci-joint) classeur a mettre à jour à chaque 'délocalisation'. Le principe est d'écrire dans la base de registre (source: Eric Renaud)

2/Dans le prog de ta macro de recherche (avant open connection…)

Tu détermines la variable chemin par cette ligne (chemin est déclaré as string)

' Lit la valeur dans la base de registre
chemin = GetSetting(appname:='xld', section:='fiches', key:='memoire')
[file name=memoire.zip size=6685]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/memoire.zip[/file]

 

[michel_m]

Bonjour,


Pour résoudre ce genre de pb,
1/j'ai construit un classeur nommé 'memoire.xls' dans le m^me dossiers que les fichiers-source (ci-joint) classeur a mettre à jour à chaque 'délocalisation'. Le principe est d'écrire dans la base de registre (source: Eric Renaud)

2/Dans le prog de ta macro de recherche (avant open connection…)

Tu détermines la variable chemin par cette ligne (chemin est déclaré as string)

' Lit la valeur dans la base de registre
chemin = GetSetting(appname:='xld', section:='fiches', key:='memoire')
[file name=memoire_20050702164729.zip size=6685]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/memoire_20050702164729.zip[/file]

 

[Shnoopy-Dog]

Bonsoir le Forum ,michel-m ,Tibo

Une réponse un peut tardive de ma part , Merci pour votre aide et bonne soirée à vous .

 

[Bernard_XLD]

Bonjour à tous

J'utilise pour ma part le principe suivant, tous mes fichiers dépendants sont placés soit dans le même dossier que le classeur maitre soit dans un sous dossier. L'instruction ThisWorkbook.Path me permet de récupérer le chemin du classeur contenant la macro en cours d'exécution.

ThisWorkbook.Path & '\\nomfichier.xls'

permettra d'appeler un fichier dans le même dossier.

ThisWorkbook.Path & '\\sousdossier\\nomfichier.xls'

permettra d'appeler un fichier dans un sous dossier.
Avec ce principe, je n'ai jamais besoin de savoir ou sont stockés mes fichiers pour les appeler puisque c'est toujours le classeur contenant la macro qui fournit le chemin.

Cordialement, A+