Discussion :

[fabiencal]

J'ai un fichier BSC qui est dans un répertoire avec des fichiers nommés INPUT...

J'aimerais qu'il supprime les liaisons a chaque fois avec tous ces fichiers, j'ai écrit ceci

Code :

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

1
2
3
4
5
6
7
8
9
y = Workbooks("Base BSC_Management Letter_NGP.xls").FullName  'recupere le chemin de ton fichier excel genre "C:\documents\PRINCIPAL.xls"
x = Workbooks("Base BSC_Management Letter_NGP.xls").Name  'recupere le nom du fichier excel "PRINCIPAL.xls"
lg = Len(x) 'len=longueur
chemin = Mid(y, 1, Len(y) - Len(x)) 'recupere juste le chemin "C:\documents\"
 
ActiveWorkbook.BreakLink (chemin + "\INPUT\"), xlLinkTypeExcelLinks 'je veux qu'il supprime tous les liens avec les fichiers aillant le nom commançant par INPUT
 
 
End Sub

j'ai mis ceci avant la fermeture du fichier comme ça à l'ouverture suivante je n'ai pas le lien et sa me suffit

Pourrais-je avoir une idée de ou rate mon code ?

[ouskel'n'or]

Si je m'en réfère à l'aide en ligne (n'ayant jamais utilisé BreakLink...) ta syntaxe n'est pas la bonne.
Si j'ai bien compris l'exemple de l'aide, astrLinks est un tableau. Aussi je testerais un "truc" comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub UseBreakLink()
    Dim astrLinks As Variant, i as integer
 
    ' Définit le type de liaison Excel.
    astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
 
    ' Supprime tous les liens du classeur
    For i = 1 to ubound(astrLinks)
        ActiveWorkbook.BreakLink _
            Name:=astrLinks(i), _
            Type:=xlLinkTypeExcelLinks
    Next
End Sub

Pas testé. Tu peux faire ça pour moi ?
Bonne soirée

Edit
Je viens de relire ta question...
Donc tes fichiers doivent commencer par "Input".
Que donne un Msgbox astrLinks(i) ? Le nom du fichier, le chemin ? le nom complet ?
Auquel cas, tu adaptes en ajoutant une condition

Code :

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

1
2
3
4
5
6
    For i = 1 to ubound(astrLinks)
        if astrLinks(i) = "Son nom" then _
        ActiveWorkbook.BreakLink _
            Name:=astrLinks(i), _
            Type:=xlLinkTypeExcelLinks
    Next