Discussion :

[djoumusic]

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

[Jean-Philippe André]

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

[ucfoutu]

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 !...)

[djoumusic]

je viens de trouver ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ucfoutu]

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"....) ...

[djoumusic]

mais comment l ecrire ..?

A6 = value "Repertoire.SelectedItems(1)"

[ucfoutu]

Euh.... (je ne me serais jamais attendu à une telle question ......)
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 :

Exemple


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

C'est un minimum ....