supprimer les liaisons entre 2 fichiers

[christelle]

bonjour à tous,
un petit problème se pose à l'ouverture d'un de mes fichiers: une boite de dialogue apparait pour me dire que mon fichier est lié à un autre classeur et pour savoir si je souhaite le mettre à jour. Sachant que je ne souhaiterai jamais le mettre à jour, j'ai essayé de trouver le moyen que cette boite n'apparaisse plus mais... j'ai échoué!
Si quelqu'un a une idée, elle sera la bienvenue, merci d'avance et bon après-midi!

 

[rrm]

re salut christelle!!,
sans la barre de menu standard d'excel
tu as 'edition' et dans édition tout en bas
'liaisons'.
en selectionnant liaisons excel t'affiche toute
les liaisons extérieures au classeur..
MAIS,.....il se peu que tes liaison soient cachées,(non visible) il te faudra passe à la loupe toutestes feuilles etcellules pour les repérées....BONCOURAGE

 

[Tibo]

Bonjour christelle, rrm,

Christelle, regarde ce lien, il y est question d'un fichier 'findlink' qui permet de retrouver et supprimer les liaisons.

Lien supprimé

@+

 

[pat1545.]

Salut le forum

pour les liaisons (excel bien sur):
soit 'findlink' sur le net
soit lié le fichier sur lui meme
soit rechercher '.xls' dans tous les onglets

Bye

 

[christelle]

OK!!! merci beaucoup pour votre aide et à bientôt!

 

[Flyonets]

Bonsoir,
un bout de code à insérér dans un module et çà
fait le travail
Sub SupprimerLiaisonsExternes()
Application.ScreenUpdating = False
Dim MaFeuille As Worksheet
Dim MaCellule As Range
For Each MaFeuille In ActiveWorkbook.Sheets
For Each MaCellule In MaFeuille.Range('A1:BJ500') 'Plage en dur
If MaCellule.HasFormula = True And InStr(1, MaCellule.Formula, '[',
0) > 0 Then
'si la cellule est de type formule et elle contient un [ signifiant un lien externe
MaCellule.Formula = MaCellule.Value 'remplace la formule par la valeur
End If
Next MaCellule
Next MaFeuille
End Sub
Bon courage