Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Export Excel vers Word

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Moon434
  • Date de début Date de début

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 !

S'inscrire
M

Moon434

XLDnaute Nouveau
Bonjour à tous,

Est-il possible d'exporter des datas d'un onglet Excel vers un nouveau fichier .Word ?

Dans mon exemple en pièce jointe j'aurais besoin de :

Isoler les colonnes en jaune de mon fichier Excel (B, C,D,J,M) et les reporter sur un nouvel onglet. (Même classeur)
A partir de là je devrais retravailler un peu manuellement les données pour ne garder au final que deux colonnes. (Supposons pour le moment la D et la F.
Et enfin j'aurais besoin d'exporter le tout en .Word dans un nouveau fichier avec la mise en forme que je joins dans mon exemple Word. (Je ne peux pas joindre de fichier .Word j'ai donc mis un aperçu de ce que je voudrais sur un 3eme onglet du classeur)

Dans un premier temps, pouvez-vous me confirmer que cela est bien possible ?
Et si oui, une bonne âme est-elle prête à s'aventurer pour m'aider à la réalisation de ce projet ? :d

Merci par avance de vos réponses,

Moon./
 

Pièces jointes

Trier par date Trier par votes
Bonjour le fil, bonjour le forum,

Code: 
Sub Xlsx2DOCx()
Call Grouper
Call ToDocx
End Sub


Sub ToDocx()
    Dim DocWord As Object
    Dim objDoc As Object
    Set DocWord = CreateObject("Word.Application")
    DocWord.Visible = True
   
        Set DocWord = DocWord.Documents.Add()

    nbr1 = Range("A1").End(xlDown).Row
        ActiveSheet.Range("A1:E" & nbr1).Copy
   
        DocWord.Range.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
    wdInLine, DisplayAsIcon:=False
        Application.CutCopyMode = False
End Sub
Sub Grouper()
Dim nbsh As Integer
ActiveSheet.Name = "Source"
nbr = Range("A1").End(xlDown).Row
nbsh = Sheets.Count
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "XL2DC"

Sheets("Source").Range("B1:D" & nbr).Copy
Sheets("XL2DC").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Source").Range("J1:J" & nbr).Copy
Sheets("XL2DC").Cells(1, 4).PasteSpecial Paste:=xlPasteValues
Sheets("Source").Range("M1:M" & nbr).Copy
Sheets("XL2DC").Cells(1, 5).PasteSpecial Paste:=xlPasteValues
Cells.Select
Cells.EntireColumn.AutoFit

End Sub

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
396
tnion
T
F
  • Question Question
XL 2016 Générer un rapport pdf depuis excel
2
Réponses
22
Affichages
3 K
fraux
F
G
  • Question Question
XL pour MAC VBA export données Excel vers Signets word
Réponses
3
Affichages
1 K
Staple1600
A
  • Question Question
XL 2019 Export Excel vers Word
Réponses
2
Affichages
716
Ang3lina
A
Y
  • Question Question
Microsoft 365 Afficher le zéro lors d'un export de données Excel vers un fichier Word
Réponses
9
Affichages
759
job75
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
L
  • Question Question
Microsoft 365 Code VBA pour commencer publipostage à partir d'un .dotx
Réponses
5
Affichages
1 K
Law0179
L
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
796
Chatron
C
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
914
oguruma
T
  • Question Question
Microsoft 365 VBA sous excel pour écrire dans doc word
Réponses
2
Affichages
1 K
Titi71
T
  • Question Question
Microsoft 365 VBA creation d'un export vers un fichier CSV
Réponses
12
Affichages
745
vgendron
C
  • Question Question
Autres Exporter *facilement* des tables Excel vers SQL SSMS SQL Server Management Studio ?
Réponses
1
Affichages
487
dysorthographie
B
  • Question Question
Microsoft 365 [RESOLU] Fichier Excel Ralentit
Réponses
2
Affichages
400
BENAM69
B
T
  • Résolu(e)
Microsoft 365 Identifier texte à longueur variable - VBA Excel vers Word
Réponses
2
Affichages
917
TrXtan
T
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
574
Romain77144
R
  • Question Question
XL 2013 VBA export de fichier+ modification de colonne
2
Réponses
21
Affichages
2 K
looky62
  • Question Question
XL 2016 VBA Exporter l'information de cellules précises d'une feuille vers Word
Réponses
3
Affichages
1 K
Staple1600
B
  • Résolu(e)
XL 2016 Export contenu ListBox vers Word
Réponses
3
Affichages
1 K
job75
A
  • Résolu(e)
Microsoft 365 Formule indirect?
Réponses
4
Affichages
679
AlexiaC
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…