Enregistrer-Sous avec suppression de liaison

Bonjour à Tous,

Je suis nouvelle sur le Forum et bien qu'il m'ait aidé pour pondre un code pour une Macro Enregistrer sous, je pêche sérieusement sur le langage pour enlever les liaisons et les macros du nouveau document enregistré-sous.

Voici le code pour l'enregistrement:

Sub Save_And_Quit()

'Macro par Jennifer pour enregistrer sous avec données dans feuille COMPTEUR

Dim extension As String

Dim chemin As String, nomfichier As String

Dim Liaisons As Variant

Dim style As Integer

ThisWorkbook.SaveAs

extension = ".xlsx"

chemin = "HDD:Users:Pierre:Téléchargements"

nomfichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & extension

With ActiveWorkbook

.SaveAs Filename:=nomfichier

End With

End Sub

J'ai trouvé un bout de code pour les liaisons mais je n'arrive pas à l'appliquer à ma macro:

Sub SupprimerLiaisons(MonClasseur As Workbook)

Dim Liaisons As Variant

Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Liaisons) = True Then Exit Sub

For LiaisonsTrouvee = 1 To UBound(Liaisons)

MonClasseur.BreakLink _

Name:=Liaisons(LiaisonsTrouvee), _

Type:=xlLinkTypeExcelLinks

Next LiaisonsTrouvee

End Sub

Merci pour votre aide

Re Bonjour,

J'ai quand même cherché à trouver une solution mais bon...

Est ce que ce type de code conviendrait?

Sub test()

Dim Sh As Worksheet

Dim NomFichier As String

'Le nom du nouveau fichier

NomFichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & " .xlsx"

With ThisWorkbook

For Each Sh In ThisWorkbook.Worksheets

With Sh

With .UsedRange

.Value = .Value

End With

End With

Next

End With

ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

Le truc c'est que j'ai une erreur d'enregistrement sur ma dernière ligne de commande

Merci d'avance de votre aide