Microsoft 365 VBA : Break line méthode

[VBA_dev_Anne_Marie]

Bonjour,

Voici mon code pou copier coller deux onglets afin de créer un nouveau fichier Excel.
Je souhaite remplacer le copier coller en valeur par copier coller et rompre les liaisons (je souhaite ainsi garder que les formules relatives aux onglets).
Mais je ne trouve pas comment on applique la méthode Break line sur le fichier que l'on vient de créer.

Pourriez vous m'aider ?

ThisWorkbook.Sheets(Array("Suivi 1", "Suivi 2")).Copy
With ActiveWorkbook
    .Sheets(1).UsedRange = .Sheets(1).UsedRange.Value
    .Sheets(2).UsedRange = .Sheets(2).UsedRange.Value
    .SaveAs ThisWorkbook.Path & "\" & NomFichier
    .Close False
End With

Merci !

 

[vgendron]

bonjour

pourquoi ??

Microsoft 365 Discussion 'VBA : copier 2 onglets'

22 Avril 2025

Bonjour,

Voici mon code pour copier 2 onglets en valeurs dans un nouveau fichier, mais les lignes

.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.Sheets(2).UsedRange.Value = .Sheets(1).UsedRange.Value ne copient pas les données.

Pourriez vous me conseiller comment on peut coller les données en valeur ?

  With ThisWorkbook
    .Sheets(Array("Suivi 1", "Suivi 2")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs .Path & "\" & NomFichier
    Application.DisplayAlerts = True
    .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value...

• VBA_dev_Anne_Marie
• vba -
• Réponses: 4
• Forum: Forum Excel

 

[VBA_dev_Anne_Marie]

bonjour

pourquoi ??

Microsoft 365 Discussion 'VBA : copier 2 onglets'

22 Avril 2025

Bonjour,

Voici mon code pour copier 2 onglets en valeurs dans un nouveau fichier, mais les lignes

.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.Sheets(2).UsedRange.Value = .Sheets(1).UsedRange.Value ne copient pas les données.

Pourriez vous me conseiller comment on peut coller les données en valeur ?

  With ThisWorkbook
    .Sheets(Array("Suivi 1", "Suivi 2")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs .Path & "\" & NomFichier
    Application.DisplayAlerts = True
    .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value...

• VBA_dev_Anne_Marie
• vba -
• Réponses: 4
• Forum: Forum Excel

Bonjour,
Je me suis rendue compte qu'il fallait garder les formules dans le fichier et rompre les liens.

 

[VBA_dev_Anne_Marie]

Bonjour,
Je me suis rendue compte qu'il fallait garder les formules dans le fichier et rompre les liens.

Finalement, j'a découvert cette solution.
Je ne sais pas si c'est la plus simple. 🙂

Sub CasserLiens()
Dim Rep As String, Fichier As String
Dim wb As Workbook
Rep = ThisWorkbook.Path & "\"
Fichier = Dir(Rep)
Do While Fichier <> "" And Fichier <> ThisWorkbook.Name
  Set wb = Workbooks.Open(Rep & Fichier)
  liens = wb.LinkSources
  If Not IsEmpty(liens) Then
    For i = 1 To UBound(liens)
      wb.BreakLink Name:=liens(i), Type:=xlExcelLinks
    Next i
  End If
  wb.UpdateLinks = xlUpdateLinksNever
  wb.Saved = True
  wb.Save
  wb.Close
  Fichier = Dir
Loop
End Sub