XL 2013 Problème de fusion d'onglet dans un fichier pdf converti en excel

[mateop]

Bonjour à tous,

Je viens de convertir en xls un fichier pdf. Chaque page a été copié dans un onglet dans le même classeur.
J'ai testé toutes les macros possibles et inimaginables pour fusionner tous ses onglets dna sun seul et impossible.
Ce la doit probablement venir du fait que le fichier un nombre importants de cellules vides.

Est ce que quelqu'un pourrait m'aider?

D'avance merci.

 

[Dranreb]

Re : Problème de fusion d'onglet dans un fichier pdf converti en excel

Bonjour.

Essayez comme ça :

Sub test3()
Dim Ws As Worksheet, Src As Range, Cbl As Range
Application.ScreenUpdating = False
With Worksheets("recap")
   .Rows.Delete
   Set Cbl = .Cells(1, 1)
   End With
For Each Ws In Worksheets
   If Ws.Name <> "recap" Then
      Set Src = Ws.UsedRange
      Src.Copy Destination:=Cbl
      Set Cbl = Cbl.Offset(Src.Rows.Count)
      End If: Next Ws
Application.CutCopyMode = False
End Sub

 

[mateop]

Re : Problème de fusion d'onglet dans un fichier pdf converti en excel

Merci beaucoup Dranreb,
J'ai passé la nuit dessus! Je n'ai pas de mot pour vous remercier suffisamment!
Bien cordialement