Discussion :

[mouftie]

Bonjour,
Je cherche à récupérer des données saisies dans différents classeurs
pour ce faire, je fais un simple copier / coller, du style :

Code :

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

1
2
    Wb2.Sheets("Données").Range("TbAgt[Agt]").Copy _
        Wb1.Sheets("Données").Range("TbAgt[Agt]")

à la sortie le fichier enrichie contient un lien impossible à mettre à jour, impossible à rompre ni manuellement ni par macro

Code :

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

1
2
3
4
5
6
7
8
9
Sub CasserLiens()
Dim i As Long
Dim Lien As Variant
    Lien = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    If IsEmpty(Lien) Then Exit Sub
    For i = LBound(Lien) To UBound(Lien)
        ActiveWorkbook.BreakLink Name:=Lien(i), Type:=xlLinkTypeExcelLinks
    Next i
End Sub

Cette macro ne fonctionne pas
En effet le lien est : C:\SuperVision\0b SupV Test\Old\190522 Rd X.xlsm alors qu'en réalité il devrait être A:\SuperVision\0b SupV Test\Old\190522 Rd X.xlsm
Pourquoi Excel a-t-il changé d'unité de disque ?

Bref, je ne veux aucun lien avec mes fichiers de données. Est-ce que quelqu'un peut m'aider, svp.
Merci

[Daniel.C]

Bonjour,

Télécharge, installe et exécute le complément findlink :

http://www.manville.org.uk/software/findlink.htm

La page est en anglais, mais c'est assez facilement compréhensible. Si tu veux de l'aide, dis-le.

[mouftie]

Bonjour Daniel,
Super complément, il y avait un lien dans une mise en forme conditionnelle...
J'avais regardé partout sauf là ;>
Un immense merci Daniel.
Je vais essayé de modifier la mise en forme conditionnelle en VBA...
Bonne journée