VBa pour selection d'un repertoire

Bonjour,
j'ai un fichier qui comporte des liaisons...
les fichiers sont sur un serveur,
je voudrais pouvoir recuperer le chemin du fichier dans une cellule, par une recherche d'un dossier en vba,
une fois le dossier choisi, ecrire le chemin dans une cellule,
de facon, a ce que si le fichier source est déplacé, par une simple recherche de dossier, toutes mes laison se mette a jour...
et mes liaison, prendrait en liaison, la valeur de la cellule ( ça je sais faire )
une idée...

Merci

salut,
plusieurs éléments qui te serviront à mon avis :
-fonction Dir()
-fonction GetOpenFileName() sous Excel

- sur la mise à jour, si c'est déjà dans la boîte, c'est nickel

Tu devrais pouvoir avancer avec les éléments que je t'ai fournis ;)

Citation:

---

Envoyé par djoumusic

de facon, a ce que si le fichier source est déplacé, par une simple recherche de dossier, toutes mes laison se mette a jour...

---

Le problème réel est là !
Et s'amuser à faire rechercher partout où se trouverait maintenant un dossier qu'un utilisateur aurait déplacé est :
- possible mais fastidieux pour ton appli (elle va sacrément ramer) et encore : à condition qu'il n'y ait pas eu de renommage.
- un excès ne pouvant être motivé que par la méfiance à l'égard des uns et des autres (et si l'on se méfie, autant se méfier jusqu'au bout, en pensant aux renommages, aux suppressions, etc...)
Lorsqu'une telle méfiance a ses raisons d'être, on procède autrement et on utilise les paramètres de sécurité offerts par Windows. ;) (mais c'est là une autre question, qui ne relève pas de VBA !...)

je viens de trouver ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub selectionRepertoire_afficherChemin()     Dim Repertoire As FileDialog   Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) Repertoire.Show   MsgBox Repertoire.SelectedItems(1) End Sub

---

qui est super, j'ai recap du chemin dans un msgbox..

il faudrait qu'il s'inscrive dans une cellule... pas une msgbox, commen faire ?

Eh bien, ma foi ... (étonnante question)
Tu donnes à la cellule de ton choix (basique) la valeur de Repertoire.SelectedItems(1)
(si tu es certain que Repertoire.SelectedItems(1) contient bien cette valeur et qu'elle est bien celle que tu cherches ...... bien "sûr"....) ...

mais comment l ecrire ..?

A6 = value "Repertoire.SelectedItems(1)"

Euh.... (je ne me serais jamais attendu à une telle question ...:ccool:...)
Allez :
Ouvre ton aide en ligne sur le mot Value ===>>> rechercher ====>>> choix de la rubrique Range.Propriété Value ===>>> lecture complète, notamment là où "çà" dit :

Citation:

---

Exemple


Cet exemple montre comment définir la valeur « 3.14159 » pour la cellule A1 de la feuille « Sheet1 ».

---

C'est un minimum .... :lol:

J'ai reussi avec ce code pour ceux que ca interresse...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub selectionRepertoire_afficherChemin()     Dim Repertoire As FileDialog   Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) Repertoire.Show   MsgBox Repertoire.SelectedItems(1)   Range("V35:AA35").Select ActiveCell.FormulaR1C1 = Repertoire.SelectedItems(1)   End Sub

---

ceci inscrit le chemin dans une cellule...
pour parametrage , c'est super !!!

Merci a tous pour vos aides !!
cdt