Discussion :

[arnogef]

Bonjour,

j'ai un fichier excel dans lequel j'ai plusieurs requetes de données externes vers des bases access.

je voudrai pourvoir enlever automatiquement, à l'aide d'une macro, les liens vers ces bases, afin de pouvoir partager ces fichiers.
A la main, cela se fait par clic droit sur la plage de données,external date range properties, décocher "save query definition.

J'ai essayé d'enregistrer la macro correspondant à ces actions mais il n'enregistre aucune action en ligne de code.

Y a t il un moyen d'automatiser ces actions avec une macro dans excel?

Merci

[ouskel'n'or]

La syntaxe pour établir/modifier un lien est donc (extrait de l'aide

Code :

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

1
2
ActiveWorkbook.ChangeLink "c:\excel\class1.xls", _
	"c:\excel\class2.xls", xlExcelLinks

Pour supprimer le lien, tu suprimes le deuxième paramètre

Code :

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

ActiveWorkbook.ChangeLink "c:\excel\class1.xls", xlExcelLinks

Tu identifies tes liens - Regarde dans l'aide à LinkSources

Code :

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

1
2
3
4
      aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
      If Not IsEmpty(aLinks) Then
           For i = 1 To UBound(aLinks)
               '... ton code conditionnel (si tu as des liens avec le classeur lui-même) ou non

A+