Discussion :

[taratata_69]

bonjour,

Je souhaite mettre à jour les liaisons de données de l'ensemble des fichiers excel qui se trouvent dans une arborescence de fichiers.

les liaisons indiquent un chemin UNc de type : \\serveurxx\partage\sdossier\[gestion.xls]gestion1'!$a!$5' j'ai besoin de remplacer la première partie \\serveurxx\partage par \\serveuryy\partagey.

merci pour vos suggestions.

[fgiambelluco]

Bonjour
Essaye d'utiliser un Dir pour ouvrir chaque fichier Excel

et vois comment adapter le code ci-dessous (issu de l'enregistreur) pour modifier tes liaisons.

Code :

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

1
2
    ActiveWorkbook.ChangeLink Name:="\\serveurxx\partage\MonFichier.xls" _
, NewName:="\\serveuryy\partagey\MonFichier.xls", Type:=xlExcelLinks

--------------
Frédéric
http://www.access-developpement.com

[Krovax]

Pour parcourir le dossier et les sous-dossier soyont fous
http://excel.developpez.com/faq/inde...riptingRuntime
et au lieu de lister gentillement les dossier dans une feuille
ainsi

Code :

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

1
2
3
4
5
6
7
 
        'Inscrit le nom du fichier dans la cellule
        Cells(i, 1) = FileItem.Name
        'Ajoute un lien hypertexte vers le fichier
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
        ....
        ....

Tu testes l'extension de ton fichier pour savoir si c'est un xls

Code :

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

if right(FileItem.Name,4)=".xls" then

Si c'est le cas tu l'ouvre

Code :

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

Workbooks.Open FileItem.ParentFolder & "\" & FileItem.Name

tu utilise le code de fgiambelluco pour modifier les lien
(pour modifier le début essaye de voit le tuto su la manipulation de chaine de caractère)
tu ferme en enregistrant

Code :

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

ActiveWorkbook.Close True

[taratata_69]

merci pour vos précédentes réponses,

existe t il un moyen pour préciser à l'ouverture des fichiers excel de ne pas mettre à jour les liaisons? (puisque ces dernières ont des chemins erronés que je dois corriger?)

merci

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
For Each lelien In Liens
    If Dir(lelien) <> "" Then
        .UpdateLink Name:=lelien, Type:=xlExcelLinks
    End If
Next
End With
End Sub

Ce bout de code que j'ai pris sur Internet permet de mettre à jour les liaisons si et seulement si les liens existent. Ce n'est pas exactement ce que tu as demandé mais ça a l'air de correspondre à ce que tu souhaites faire.

[fgiambelluco]

Bonjour
Si les fichiers sont ouverts par le code ou peut empecher la mise à jour des liaisons (c'est dans l'aide de la méthode Open)

Code :

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

Workbooks.Open "monfichier.xls", 0