Discussion :

[MarcJinger]

Bonjour le meilleur forum (sur tous les sujets ) !

My problem :

Soit une petite base xlsm contenant une colonne A contenant elle-même 950 noms de fichiers depuis A1, chacun disposant d'un lien vers son fichier dans un dossier donné.
Evidemment quand je déplace la base + dossier sur une clé pour lire tout ça ailleurs (si j'y suis) => cassage des liens (non relatifs).

Le top serait qu'à partir d'une petite macro embarquée sur la base je puisse réparer la casse en détectant le nouveau chemin sur la clé pour l'attribuer à chacun des 950 valeurs de la base.

Si quelqu'un pouvait me cracher ça, ce serait évidemment complètement génial (je progresse en vba, mais de la mauvaise manière car - crois-je - je n'ai pas encore le temps de me plonger dans les grands fondamentaux qui pourtant me permettraient de progresser "proprement", constructivement...).

Bon we à toutes et tous !

[EricDgn]

Bonjour,

Une solution possible, pour autant que l'on indique le dossier de départ initial dans la cellule F1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub ChangerDossier()
    Dim sDirOld As String, sDirNew As String, kR As Long
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            sDirOld = Range("F1").Value
            sDirNew = .SelectedItems(1)
            Range("F1") = sDirNew
            kR = 2                                                '--- n° première ligne de la liste de fichiers
            While Range("A" & kR) <> ""
                Range("A" & kR).Hyperlinks(1).Address = Replace(Range("A" & kR).Hyperlinks(1).Address, sDirOld, sDirNew)
                kR = kR + 1
            Wend
            MsgBox "Terminé.", , "Pour info"
        Else
            '--- Annulé
        End If
    End With
End Sub

Cordialement.

[MarcJinger]

Pardon pour le délai dans mon retour ! Impec', merci beaucoup !!!