VBA faisant appel à autres fichiers Fermé

Question

Bonjour, 
J'ai un fichier dans lequel je rentre des données via un formulaire VBA (nom de l'ingrédient et quantité utilisée).
Grâce au nom de l'ingrédient, le formulaire va chercher des données complémentaires dans une base de données située sur un autre fichier excel.
La validation du formulaire va aussi chercher 2 images qui s'insèrent dans la mise en page du fichier.
Sur mon ordinateur, tout fonctionne.
Comment faire pour que cela fonctionne de la même manière lorsque je transfère l'ensemble des fichiers liés sur un autre ordinateur, ou dans un autre dossier de mon ordinateur ?
Je suppose qu'il faudrait dimensionner les fichiers liés dans VBA, afin de n'avoir à changer le lien qu'à un endroit, mais je ne sais pas comment faire...
Je peux envoyer les fichiers concernés en MP si quelqu'un peut me dépanner.
Merci d'avance,
Camille

Patrice33740 · Answer

Bonjour,

Le plus simple est de placer les fichiers dans un sous-répertoire de celui qui contient la macro. 
Avec Thisworkbook.Path tu obtiens le répertoire du fichier macro et donc l'emplacement relatif du sous-répertoire.

Kalissi · Answer

Bonjour,

Exemple :

Dans un module :
Public Type Contexte        RepImages As String        RepFichiers As StringEnd Type        Global XContexte As Contexte

Dans le code du formulaire :

Private Sub UserForm_Initialize()    Dim CheminClasseur As String ' Chemin du classeur ayant le VBA    Dim CheminFichiers As String ' Chemin du fichier ayant les ingrédiants    Dim CheminImages As String   ' Chemin des images        CheminClasseur = ThisWorkbook.Path    CheminFichier = CheminClasseur & "\Fichiers\"    CheminImages = CheminClasseur & "\Images\"    XContexte.RepFichiers = CheminFichiers    XContexte.RepImages = CheminImagesEnd Sub

soit un répertoire :

C:\Document\Projet

créer 2 sous répertoires

C:\Document\Projet\Fichiers
C:\Document\Projet\Images

dans tout le code peu importe ou tu seras :

Chemin1 = XContexte.RepFichiers & "MonFichierIngrédiant.xls"

Chemin2 = XContexte.RepImages & "MonImage.jpg"

K

CamilleDR · Answer

Je n'ai pas réussi à inclure les codes que vous proposez... Ca dépasse mon niveau de compréhension !
Si j'envoie le fichier quelqu'un pourrait m'aider ?
Camille

Patrice33740 · Answer

Bonjour,

Déposes ton fichier (sans infos confidentielles) sur  https://www.cjoint.com/ puis mets le lien obtenu dans ton prochain post.
Tutoriel Cjoint :https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers#q=cjoint&cur=2&url=%2F

VBA faisant appel à autres fichiers

4 réponses

Discussions similaires

Newsletters