casser les connexions

Version imprimable

13/03/2020, 15h15
max36000

casser les connexions
Bonjour à tous
j'ai 180 fichiers, chacun possède des liens vers d'autre document.

je peux les rompres manuellement en allant dans l'onglet Donnée puis en cliquant sur "modifier les liens"

avec l'enregistrement de macro sa me donne ce programme:
Code:

1 2 3 ActiveWorkbook.BreakLink Name:= _ "2200 MHz - AX131° - XY position à 131° - ducoco- avec ventre - avec déphasage - 23-12-2019 .xlsx" _ , Type:=xlExcelLinks
malheureusement le "131" bouge en fonction du fichier que j'ouvre

mon programme qui est dans un excel vierge, il ouvre un par un chaque fichier fait des manip puis les fermes.

Le PB c'est qu'à chaque ouverture de fichier il demande à mettre à jour le lien (car il le perds du fait qu'on bouge les fichiers).
Questions comment ou quel fonction permet de rompre le lien avant que la fenêtre s'affiche (fenêtre de demande MAJ)?

la fonction on error goto, j'ai du mal à la comprendre mais j'ai l'impression que ce n'est pas adapté
des suggestions?

Salut,

s'il s'agit ici de casser toutes les liaisons, tu peux passer par une boucle du style:

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim TesLiens As Variant 
Dim i as Integer
 
    TesLiens = ActiveWorkbook.LinkSources(Type:=xlExcelLinks) 
 
'Parcours
    For i = LBound(TesLiens ) To UBound(TesLiens )
        ActiveWorkbook.BreakLink _ 
            Name:=TesLiens (i), _ 
            Type:=xlExcelLinks
Next i

13/03/2020, 15h30
max36000

malheureusement sa marche pas,
il ouvre le fichier mais la fenêtre POP quand même, je pense qu'il a pas le temps de casser le lien puisque la fenêtre pop dès l'ouverture du doc
faut il rompre le manuellement pour tous?
13/03/2020, 15h48
Jean-Philippe André

L'ouverture du classeur se fait depuis un autre classeur en VBA ?

Auquel cas il te suffit lors de l'ouverture de passer False sur le 2eme parameter (UpdateLinks)

Ou sinon de desactiver (temporairement) les messages d'alerte avec

Code:

Application.DisplayAlerts=False
13/03/2020, 15h59
max36000

Citation:

Envoyé par Jean-Philippe André

L'ouverture du classeur se fait depuis un autre classeur en VBA ?

Auquel cas il te suffit lors de l'ouverture de passer False sur le 2eme parameter (UpdateLinks)

Ou sinon de desactiver (temporairement) les messages d'alerte avec

Code:

Application.DisplayAlerts=False

justement j'ai déjà appliquer displayalerts=false et sa me laisse la fenêtre d'où ma frustration de pas pouvoir la virer

mais peut tu détaillé l'histoire du 2ème paramètre stp

Code:

1
2
Dim wbk as Workbook
Set wbk = Application.Workbooks.Open(TonChemin, False)

13/03/2020, 16h19
max36000
Citation:
Envoyé par Jean-Philippe André

Code:

1 2 Dim wbk as Workbook Set wbk = Application.Workbooks.Open(TonChemin, False)
et bien même avec ces 2 solutions sa marches pas bon je vais me débrouiller autrement merci
13/03/2020, 17h24
Jean-Philippe André

Dans le menu Options/Options Avancées/Onglet Général
décocher la case "Confirmer la mise à jour automatique des liens"
13/03/2020, 17h33
max36000

Citation:

Envoyé par Jean-Philippe André

Dans le menu Options/Options Avancées/Onglet Général
décocher la case "Confirmer la mise à jour automatique des liens"

SUPER C'est que je voulais tu m'a tout débloqué, MERCI!!!!!