XL 2021 Copie cellules Excel vers Word avec mise à jour automatique

alexandre33260

alexandre33260

XLDnaute Occasionnel
Bonjour, je voudrai savoir s'il est possible de copier des cellules Excel vers Word (pas un tableau complet, juste le contenu de la cellule).
Sur une feuille feuil1, je voudrai que les cellules A1, A2, A3 soient copiées vers un document Word.
La feuille Excel sera mise à jour régulièrement et il faudrait une liaison avec mise à jour automatique du doc Word dès que la feuille Excel est modifiée.
J'aurai la même demande pour copier des graphiques.
Merci pour votre aide.
 
Solution
job75
Avec cette macro dans ThisWorkbook la cellule modifiée peut être dans n'importe quelle feuille :
VB: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wapp As Object, i
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
With Wapp.Documents.Open(ThisWorkbook.Path & "\Enquête de satisfaction EHPAD.docx").Tables(1)
    For i = 1 To 10
        .Cell(i, 1).Range.Text = Sheets("Analyse").Cells(i, 1)
    Next
End With
End Sub
Trier par date Trier par votes
alexandre33260

alexandre33260

XLDnaute Occasionnel
OK, j'ai bien compris, sauf que je ne modifie jamais rien dans la feuille 'Analyse', le changement se fait automatiquement quand on modifie des valeurs dans la feuille 'Accueil' et comme je ne valide rien (dans la feuille 'Analyse'), ça ne met pas à jour...
Je pensais mettre un bouton 'Actualiser' sur la feuille 'Analyse', pensez vous que cela aura un effet ?
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Avec cette macro dans ThisWorkbook la cellule modifiée peut être dans n'importe quelle feuille :
VB: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wapp As Object, i
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
With Wapp.Documents.Open(ThisWorkbook.Path & "\Enquête de satisfaction EHPAD.docx").Tables(1)
    For i = 1 To 10
        .Cell(i, 1).Range.Text = Sheets("Analyse").Cells(i, 1)
    Next
End With
End Sub
 

Pièces jointes

  • Enquête de satisfaction EHPAD.xlsm
    23.1 KB · Affichages: 4
  • Enquête de satisfaction EHPAD.docx
    12.4 KB · Affichages: 2
Vote positif 0 Vote négatif
Solution
job75

job75

XLDnaute Barbatruc
Une autre solution avec le copier-coller :
VB: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wapp As Object, i
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
Wapp.Documents.Open(ThisWorkbook.Path & "\Enquête de satisfaction EHPAD.docx").Content.Delete 'RAZ
Sheets("Analyse").[A1:A10].Copy 'copier
Wapp.Selection.Paste 'coller
Application.CutCopyMode = 0
End Sub
Avantage : il n'y a plus de tableau Word et les formats sont copiés.
 

Pièces jointes

  • Enquête de satisfaction EHPAD.xlsm
    23.8 KB · Affichages: 2
  • Enquête de satisfaction EHPAD.docx
    12.1 KB · Affichages: 4
Vote positif 0 Vote négatif
alexandre33260

alexandre33260

XLDnaute Occasionnel
C'est extra, merci beaucoup, je regarde tout ça demain pour voir comment tout va s'imbriquer car j'ai d'autres feuilles à faire (comme accueil), je vais voir comment faire, si j'ai un souci, je reposte un petit message.
Encore merci pour ce super travail.
Sans les bordures, c'est encore mieux.
 
Vote positif 0 Vote négatif
alexandre33260

alexandre33260

XLDnaute Occasionnel
Bonjour job75, deux petites questions (pour le moment ;)
J'ai rajouté une feuille et vais devoir en rajouter encore beaucoup, plus de 11 au total et certaines ont plus de 9 questions, donc j'ai modifié la valeur .[A1:A10] de la macro par [A1:A100], mais est il possible de mettre une variable qui sache quand la dernière lige est atteinte, si je fais 251 lignespar ex, que la macro sache automatique le nb sans être obligé de la lui spécifier.
Autre question, quand je formate le doc Word (sans interligne, police Times, taille 10 etc. lorsque la mise à jour du fichier Excel se fait, la mise en forme revient automatiquement par défaut Normal, Calibri (Corps), 11 etc.
Est-il possible qu'Excel n'interfère pas dans la mise en page du doc ?
Voila pour le moment.
 

Pièces jointes

  • Enquête de satisfaction EHPAD.docx
    17.9 KB · Affichages: 1
  • Enquête de satisfaction EHPAD.xlsm
    29.3 KB · Affichages: 1
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour alexandre33260; le forum,

Pour aller jusqu'à la dernière cellule en colonne A il suffit d'utiliser End(xlUp).

Pour ne copier que les valeurs il faut utiliser un collage spécial du texte dans Word.

Mais j'ai eu un peu de mal, il faut bien préciser le nom de l'argument DataType :
VB: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wapp As Object, i
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
Wapp.Documents.Open(ThisWorkbook.Path & "\Enquête de satisfaction EHPAD.docx").Content.Delete 'RAZ
Sheets("Analyse").Range("A1", Sheets("Analyse").Range("A" & Rows.Count).End(xlUp)).Copy 'copier
Wapp.Selection.PasteSpecial DataType:=2 'wdPasteText 'collage spécial du texte
Application.CutCopyMode = 0
End Sub
A+
 

Pièces jointes

  • Enquête de satisfaction EHPAD.xlsm
    30.1 KB · Affichages: 1
  • Enquête de satisfaction EHPAD.docx
    14.7 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif
alexandre33260

alexandre33260

XLDnaute Occasionnel
ça ne garde pas la mise en forme de la feuille Word, dès que je mets une info à jour, ça reformate le Word.
Si ça pouvait garder la mise en forme de Excel (remplissage bleu du titre accueil), soulignement des titres (partie analyse).
Et dans la der. vers. dans la liste des avis, le premier et le dernier sont entre guillemets...
 
Vote positif 0 Vote négatif
alexandre33260

alexandre33260

XLDnaute Occasionnel
SI en fait, garder le format donné sur la feuille 'Analyse' les saut de lignes sont identiques dans word, parfait. Sauf que word par défaut est en "Normal" et je souhaite avoir "Sans interligne", si je format le doc word sans interligne que je sauvegarde, si je réouvre le Excel et que je met à jour, la mise en forme de Word change automatiquement et passe en 'Normal'...
 
Vote positif 0 Vote négatif
alexandre33260

alexandre33260

XLDnaute Occasionnel
En fait c'est la différence de retour à la ligne.
Soit on valide par ENTER et il y a un saut de ligne qui est considéré comme un saut de paragraphe et donc laisse un espace entre les deux lignes, soit on combine SHIFT & ENTER et ça fait un retour à la ligne.
Voir la photo joint avec les symboles des retours à la ligne (.
r1.png
ou
r2.png
 

Pièces jointes

  • Saut de ligne.png
    Saut de ligne.png
    2 KB · Affichages: 2
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
316
job75
job75
chaelie2015
  • Résolu(e)
XL 2013 Masquer/Afficher une ligne de tableau Word en fonction de la valeur du contrôleur de contenu
2
Réponses
20
Affichages
718
chaelie2015
chaelie2015
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la Saisie de Données Excel vers un Document Word Modèle
2 3
Réponses
31
Affichages
2 K
job75
job75
L
  • Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
3 K
LMOAL
L
A
  • Question
XL 2019 copier cellules excel dans fichier word
Réponses
3
Affichages
297
job75
job75
3xceln4ute
  • Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
318
Phil69970
Phil69970
C
  • Question
Microsoft 365 Impression PDF d'un Word via une macro Excel
Réponses
11
Affichages
676
job75
job75
S
  • Question
XL 2010 Ecrire d'Excel vers Word
Réponses
5
Affichages
398
stonech
S
S
  • Question
XL 2010 Suppression d'un ligne sur word à partir d'excel VBA
Réponses
1
Affichages
293
Staple1600
Staple1600
N
  • Question
XL 2010 Mise à jour automatique d'une feuille via une autre feuille d'un même classeur
Réponses
0
Affichages
388
NoOne38
N

Membres actuellement en ligne

14 membres et 124 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 211
Messages
2 086 300
Membres
103 173
dernier inscrit
Cerba95