Macro remplacer

JCGL

XLDnaute Barbatruc

• 23 Juin 2009

• #2

Re : Macro remplacer

Bonjour à tous,

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

A+ à tous

 

Pièces jointes

• JC NewDir.zip

  9.3 KB · Affichages: 13

Vote positif 0 Vote négatif

N

nextrevolution

XLDnaute Occasionnel

• 23 Juin 2009

• #3

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.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 23 Juin 2009

• #4

Re : Macro remplacer

bonjour nextrevolution, JCGL,

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

Code:

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+

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 23 Juin 2009

• #5

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+

 

Pièces jointes

• NextRevolution.xls

  35.5 KB · Affichages: 34
• NextRevolution.xls

  35.5 KB · Affichages: 36
• NextRevolution.xls

  35.5 KB · Affichages: 36

Vote positif 0 Vote négatif

N

nextrevolution

XLDnaute Occasionnel

• 23 Juin 2009

• #6

Re : Macro remplacer

Merci mromain,

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

Bonne journée

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 23 Juin 2009

• #7

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+

 

Vote positif 0 Vote négatif

N

nextrevolution

XLDnaute Occasionnel

• 24 Juin 2009

• #8

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.

 

Vote positif 0 Vote négatif