Sauter une ligne / cliquez sur entrer ?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bullbull2010

XLDnaute Nouveau
bonjour,

Voila, je fais une macro pour copier des tableaux d'un classeur vers un document word, sauf que je veux qu'entre deux tableaux, il y ait une ligne de vide sur Word, et non pas une ligne de tableau vide (on pourrait imaginer de rajouter une ligne vide à chaque tableau, et voilà...)

Voila mon Code:

Code:
Sub bull()


Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
Dim C
Dim I As Integer



'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")

'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add

'Rendre Word visible
oWdApp.Visible = True

For I = 4 To Worksheets.Count

' Dernière cellule non vide
C = Worksheets(I).Range("B65536").End(xlUp).Row

'Copier une plage depuis Excel
Worksheets(I).Range("A2:B" & C).Copy

'Coller la plage dans Word
oWdApp.Selection.Paste

'Annuler le mode couper/copier
Application.CutCopyMode = False

Next
Cancel = True

End Sub

Quelqu'un pourrait-il m'aider?
 
Re : Sauter une ligne / cliquez sur entrer ?

Bonjour bullbull2010,

Dans la macro, excellente, ajouter le paragraphe du milieu ci-dessous :

'Coller la plage dans Word
oWdApp.Selection.Paste

' Ajouter une ligne entre paragraphe
oWdApp.Selection.TypeParagraph


'Annuler le mode couper/copier
Application.CutCopyMode = False
 
Re : Sauter une ligne / cliquez sur entrer ?

O merci OBernardT! même si j'ai déjà pris mon mal en patience et fait tout le travail manuellement, mais bon il y a de grandes chances que j'aie des trucs similaires à faire par la suite 😉

C'est que j'avais cherché, et j'avais trouvé des choses sur TypeParagraph, mais je l'implémentais d'une manière incorrecte 😱
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Réponses
4
Affichages
461
Réponses
3
Affichages
491
Réponses
3
Affichages
582
Réponses
9
Affichages
580
Réponses
5
Affichages
639
Retour