OVH Cloud OVH Cloud

Trouver cellules avec liaisons

4 réponses
Avatar
Anne
Bonjour,
J'ai récupéré un énorme fichier de données et il existe des laisons avec un
autre classeur qui sont mortes (le fichier cible n'existe plus).
Je voudrais les retrouver dans le fichier pour "copier-coller valeur" les
cellules afin de pouvoir faire de nouveaux liens avec un autre fichier.
Est-ce possible de le faire de façon automatique sans tester une par une
toutes les cellules?
Merci d'avance,
anne.

4 réponses

Avatar
papou
Bonjour
C'est possible grâce notamment à une macro complémentaire de Bill Manville
que tu pourras trouver en téléchargement chez Daniel ici :
http://dj.joss.free.fr/faq.htm#liaison

Cordialement
Pascal

"Anne" a écrit dans le message de news:

Bonjour,
J'ai récupéré un énorme fichier de données et il existe des laisons avec
un
autre classeur qui sont mortes (le fichier cible n'existe plus).
Je voudrais les retrouver dans le fichier pour "copier-coller valeur" les
cellules afin de pouvoir faire de nouveaux liens avec un autre fichier.
Est-ce possible de le faire de façon automatique sans tester une par une
toutes les cellules?
Merci d'avance,
anne.


Avatar
Anne
Merci je vais essayer ça.


Bonjour
C'est possible grâce notamment à une macro complémentaire de Bill Manville
que tu pourras trouver en téléchargement chez Daniel ici :
http://dj.joss.free.fr/faq.htm#liaison

Cordialement
Pascal

"Anne" a écrit dans le message de news:

Bonjour,
J'ai récupéré un énorme fichier de données et il existe des laisons avec
un
autre classeur qui sont mortes (le fichier cible n'existe plus).
Je voudrais les retrouver dans le fichier pour "copier-coller valeur" les
cellules afin de pouvoir faire de nouveaux liens avec un autre fichier.
Est-ce possible de le faire de façon automatique sans tester une par une
toutes les cellules?
Merci d'avance,
anne.







Avatar
michdenis
Bonjour Anne,


Ceci est suffisant si c'est pour modifier les références
dans tes formules des cellules.

Si tu dois modifier aussi les références dans les "NOMS"
de plage nommée... c'est une autre chose !

Il est pris pour acquis... que le nom de la feuille est le même
entre l'ancien fichier et le nouveau sinon il faut utiliser la
commande Rechercher-Remplacer du menu Édition.
(Ne pas oublier d'utiliser le paramètre : Regarder dans les formules )


'-----------------------------
Sub GrosTest()

Dim AncienChemin As String
Dim NouveauChemin As String
Dim Liens As Variant, LeLien

'Chemin du classeur du lien à modifier
AncienChemin = "C:Classeur2.xls"
'Chemin du nouveau classeur ...
NouveauChemin = "C:AtravailClasseur10.xls"

With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = AncienChemin Then
.ChangeLink LeLien, NouveauChemin, xlExcelLinks
End If
Next
End With
End Sub
'-----------------------------


Salutations!



"Anne" a écrit dans le message de news:
Bonjour,
J'ai récupéré un énorme fichier de données et il existe des laisons avec un
autre classeur qui sont mortes (le fichier cible n'existe plus).
Je voudrais les retrouver dans le fichier pour "copier-coller valeur" les
cellules afin de pouvoir faire de nouveaux liens avec un autre fichier.
Est-ce possible de le faire de façon automatique sans tester une par une
toutes les cellules?
Merci d'avance,
anne.
Avatar
Anne
Merci beaucoup,
Avec la macro, j'ai pu effacer les liens existants.
Je vais regarder le script que tu m'as envoyé.
Encore merci,
Anne.



Bonjour Anne,


Ceci est suffisant si c'est pour modifier les références
dans tes formules des cellules.

Si tu dois modifier aussi les références dans les "NOMS"
de plage nommée... c'est une autre chose !

Il est pris pour acquis... que le nom de la feuille est le même
entre l'ancien fichier et le nouveau sinon il faut utiliser la
commande Rechercher-Remplacer du menu Édition.
(Ne pas oublier d'utiliser le paramètre : Regarder dans les formules )


'-----------------------------
Sub GrosTest()

Dim AncienChemin As String
Dim NouveauChemin As String
Dim Liens As Variant, LeLien

'Chemin du classeur du lien à modifier
AncienChemin = "C:Classeur2.xls"
'Chemin du nouveau classeur ...
NouveauChemin = "C:AtravailClasseur10.xls"

With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
For Each LeLien In Liens
If LeLien = AncienChemin Then
.ChangeLink LeLien, NouveauChemin, xlExcelLinks
End If
Next
End With
End Sub
'-----------------------------


Salutations!



"Anne" a écrit dans le message de news:
Bonjour,
J'ai récupéré un énorme fichier de données et il existe des laisons avec un
autre classeur qui sont mortes (le fichier cible n'existe plus).
Je voudrais les retrouver dans le fichier pour "copier-coller valeur" les
cellules afin de pouvoir faire de nouveaux liens avec un autre fichier.
Est-ce possible de le faire de façon automatique sans tester une par une
toutes les cellules?
Merci d'avance,
anne.