Macro remplacer

[nextrevolution]

Bonjour,

J'ai des photos enregsitrés dans un dossier Mes photos
J'aimerais lorsque je change le dossier de place qu'avec une macro je puisse sélectionner le nouveau lien et que tout mes liens associés aux photos se remplace sur ma page excel.
J'ai trouvé pour la fonction remplacer mais j'arrive pas à associé le nom du nouveau lien dans la fonction avec l'explorateur de fichier.

Je vous joints ce que j'ai essayé de faire mais si vous avez une meilleur solution je suis preneur.

Je vous remercie d'avance pour vos réponses.

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[JCGL]

Re : Macro remplacer

Bonjour à tous,

Un essai sans USF : mettre l'ancien chemin en B1 et le nouveau en B2

A+ à tous

 

[nextrevolution]

Re : Macro remplacer

Enfaite j'avais réussi à faire ça, ce que j'aimerais c'est pour indiquer le nouveau lien.
Au lieu de l'écrire j'aimerais pouvoir sélectionner mon dossier dans l'explorateur et que le lien s'écrive tout seul pour pouvoir être remplacer.

C'est à ce niveau que je bloque.

 

[mromain]

Re : Macro remplacer

bonjour nextrevolution, JCGL,

essaye cette petite macro, tu devrais trouver ton bonheur...

Sub test()
Dim nouveauLien As String
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "Sélection du nouveau lien"
    .Show
    nouveauLien = .SelectedItems(1)
End With
MsgBox nouveauLien
End Sub

a+

 

[Risleure]

Re : Macro remplacer

Bonjour le NextRevolution, JCGL, mromain, Forum

Pas beaucoup mieux mais avec un "vrai explorateur" en PJ (code issu du Maitre Ti)

A+

 

[nextrevolution]

Re : Macro remplacer

Merci mromain,

J'ai réussi à faire ce que je voulais.

Bonne journée

 

[mromain]

Re : Macro remplacer

re,
bonjour Risleure,

c'est vrai que c'est quand même plus "class", et surtout plus facile à utiliser.
joli (c'est valable pour Maitre Ti aussi).

a+

 

[nextrevolution]

Re : Macro remplacer

Bonjour risleure, mromain,

J'avais pas fait attention à ton poste, c'est vrai que c'est beaucoup mieux je vais l'adapter à mon application, merci.