L
Lacryma
Guest
Bonjour tous ,
voilà j'ai une macro qui extrait le contenu d'une feuille vers
word , cela marche pas mal, mais la macro extrait aussi les cellules vides
de mon tableau , ce qui fait qu'une fois le fichier extrait je me retrouve
avec pleins de pages pour juste quelques lignes de données le plus
souvent .
Que faut - il changer au code pour extraire uniquement les cellules
qui contiennent soit du texte ou des chiffres, et pas les cellules
qui sont vides et qui ont juste une bordure ?
merci d'avance ....
Lacryma
Code :
Sub InsereTableauFiltre()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Application.ScreenUpdating = False
Sheets("Impayés à ce jour").UsedRange.Copy
Wrd.Selection.Paste
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
voilà j'ai une macro qui extrait le contenu d'une feuille vers
word , cela marche pas mal, mais la macro extrait aussi les cellules vides
de mon tableau , ce qui fait qu'une fois le fichier extrait je me retrouve
avec pleins de pages pour juste quelques lignes de données le plus
souvent .
Que faut - il changer au code pour extraire uniquement les cellules
qui contiennent soit du texte ou des chiffres, et pas les cellules
qui sont vides et qui ont juste une bordure ?
merci d'avance ....
Lacryma
Code :
Sub InsereTableauFiltre()
Dim Wrd As Object
Set Wrd = CreateObject("Word.Application")
Dim AppWrd As Object
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Application.ScreenUpdating = False
Sheets("Impayés à ce jour").UsedRange.Copy
Wrd.Selection.Paste
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub