pb dans ma macro de duplication de fichier Excel

Bonjour.
Essaie :

Sub Sauvegarde()
With ActiveWorkbook
Lien = .LinkSources(xlLinks)
For Each Lien In .LinkSources
ActiveWorkbook.BreakLink Lien, _
Type:=xlExcelLinks
Next Lien
ActiveWorkbook.SaveCopyAs "Chemin de réception" & Format(Date, _
"dd-mm-yyyy") & "xls"
End With
End Sub

Cordialement.
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1144049507.665348.190790@t31g2000cwb.googlegroups.com...
Bonjour,

Je suis en face d'un petit pb : j'ai une petite macro qui me permet
d'enregistrer la copie du fichier excel ouvert actuellement (celui qui
contient la macro), or mon fichier à copier est bourré de liens vers
pleins d'autres fichiers (que je souhaite éliminer), alors j'ai
ajouté le code BreakLink mais d'apres Excel il y a une erreur dans la
2 eme ligne de mon script que voici :

Sub Sauvegarde()
ActiveWorkbook.BreakLink Name:="nom du fichier à dupliquer",
Type:=xlExcelLinks
ActiveWorkbook.SaveCopyAs "Chemin de réception" & Format(Date,
"dd-mm-yyyy") & "xls"
End Sub

quelqu'un pourrai m'aider à trouver ce qui cloche?

En vous remerciant d'avance.

Cordialement

Omar

J ai tapé ton script mais il m'indique une erreur '13' à la ligne
suivante :
For Each Lien In .LinkSources
Sais tu pourquoi?

Comme ça, je ne vois pas ... Poste ton code.
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1144058138.669604.14040@g10g2000cwb.googlegroups.com...
J ai tapé ton script mais il m'indique une erreur '13' à la ligne
suivante :
For Each Lien In .LinkSources
Sais tu pourquoi?

Voila :

Sub Sauvegarde()
With ActiveWorkbook
Lien = .LinkSources(xlLinks)
For Each Lien In .LinkSources
ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
Next Lien
ActiveWorkbook.SaveCopyAs "chemin de réception" & Format(Date,
"dd-mm-yyyy") & "xls"
End With
End Sub

Essaie comme ça :

Sub Sauvegarde()
With ActiveWorkbook
Lien = .LinkSources
For Each Lien In .LinkSources
ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
Next Lien
ActiveWorkbook.SaveCopyAs "chemin de réception" & Format(Date,
"dd-mm-yyyy") & "xls"
End With
End Sub

Es-tu sûr de ton type de lien ? Sinon, tu peux procéder de la façon suivante
:
Edition / Liaisons, sélectionne toutes les liaisons et clique sur "Rompre
les liaisons".
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1144062517.900635.321420@z34g2000cwc.googlegroups.com...
Voila :

Sub Sauvegarde()
With ActiveWorkbook
Lien = .LinkSources(xlLinks)
For Each Lien In .LinkSources
ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
Next Lien
ActiveWorkbook.SaveCopyAs "chemin de réception" & Format(Date,
"dd-mm-yyyy") & "xls"
End With
End Sub

Ben en supprimant ce que tu m as demandé ca bloque encore, mais par
contre ca rompt les liens de mon fichiers de départ!!!! ce que je ne
souhaitais pas au départ!
Pour ta 2 eme solution, ca marche mais quand j essaie d'enregistrer la
démarche pour en faire une macro ca ne marche pas!

Je sais pas si mon script du départ part dans la bonne direction?!!?

Omar

non finalement ca marche tres bien!!
c moi qui ait fais une erreur
merci pour ton aide Daniel!!

Omar

Ben finalement, y a un défaut qui persiste!
Comment faire pour que dans mon script, la rupture des liens ne
s'applique qu'au nouveau fichier créé?
En effet, j'aimerai que le fichier d'origine garde ses liens

Peut tu m'aider stp?

Omar