MACRO POUR ROMPRE LES LIENS SUR UN FICHIER

Bonjour,

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

Cordialement,
--
AP

<omar_2891@hotmail.com> a écrit dans le message de
news:1144136135.413201.193450@u72g2000cwu.googlegroups.com...
Bonjour,

Je cherche de l'aide pour résoudre le pb suivant : J'ai un script qui
me permet de rompre les liens de mon fichier Excel et d'ensuite
l'enregistrer.
Or, je souhaite pouvoir conserver le fichier original (avec les liens),

et supprimer seulement les liens de la copie enregistrée.


Quelqu'un peut-il m'aider?


Voici mon script :


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


Cordialement.


Omar

Ben visiblement, ca ne change pas grand chose. J'ai toujours les liens
du fichier de départ qui se rompt
???????*

Cordialement.

Omar

T'as juste à modifier un cht'i peu la macro d'Ardus:

Sub Sauvegarde()
Dim fName As String, fPath As String, nName As String
Application.ScreenUpdating = False
With ActiveWorkbook
.Save: fName = .FullName: fPath = .Path
nName = Format(Date, "dd-mm-yyyy") & ".xls"
Application.DisplayAlerts = False
.SaveAs fPath & "" & nName
Lien = .LinkSources
For Each Lien In .LinkSources
ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
Next Lien
End With
Application.DisplayAlerts = True
Workbooks.Open fName
Workbooks(nName).Close True
End Sub

MP

<omar_2891@hotmail.com> a écrit dans le message de news:
1144136135.413201.193450@u72g2000cwu.googlegroups.com...
Bonjour,

Je cherche de l'aide pour résoudre le pb suivant : J'ai un script qui
me permet de rompre les liens de mon fichier Excel et d'ensuite
l'enregistrer.
Or, je souhaite pouvoir conserver le fichier original (avec les liens),

et supprimer seulement les liens de la copie enregistrée.


Quelqu'un peut-il m'aider?


Voici mon script :


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


Cordialement.


Omar

merci, j vais voir ca!!!!

Omar