Bonjour à tous,
Pour enregister une feuille d'un classeur, j'utilise le code ci-dessous, mais je ne sais pas comment supprimer les liaisons de ma nouvelle feuille (en concervant les valeurs lors de l'enregistrement). QQ'un pourrait-il m'aider ?
Sub Enregistr()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\"
préfixe = Sheets("page garde").Range("E4") & ("-") & Sheets("page garde") & Sheets("page garde").Range(" G12").Value
Sheets(Array("Transfert")).Copy
With Application
.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & "Transfert-" & préfixe & ".xls"
.DisplayAlerts = False
End With
End Sub
Pour enregister une feuille d'un classeur, j'utilise le code ci-dessous, mais je ne sais pas comment supprimer les liaisons de ma nouvelle feuille (en concervant les valeurs lors de l'enregistrement). QQ'un pourrait-il m'aider ?
Sub Enregistr()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\"
préfixe = Sheets("page garde").Range("E4") & ("-") & Sheets("page garde") & Sheets("page garde").Range(" G12").Value
Sheets(Array("Transfert")).Copy
With Application
.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & "Transfert-" & préfixe & ".xls"
.DisplayAlerts = False
End With
End Sub