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 !
Bonjour,
Il y a comme un problème !
Ces 2 classeurs sont ceux que j'ai posté dans le fil de lundi suite à ta demande.
Hervé y est aussi allé de sa contribution.
Dis-nous ce qui ne convient pas ...
Autre problème, tu n'as jamais répondu au fil de lundi, par contre tu as bien chargé les fichiers
bonjour
Je suis désolé de ne pas avoir pris le temps de répondre mais je bossais.
En exécutant ton code, word s'ouvre bien avec les 2 signets mais je n'arrive pas à y copier mes 2 tableaux
nb : je débute en vba
Bonsoir,
Je viens de réessayer avec les 2 fichiers joints. Pour moi, Excel 2016, ça fonctionne.
Questions "bêtes" :
1. Est-ce que la référence Microsoft Word16.0 Object Library est bien présente ?
2. Est-ce que le chemin du fichier et son nom sont exacts( E:\FSMI.docm ) ?
Ne serait-ce pas .docx l'extension auquel cas une erreur 4198 commande a échoué serait
affichée ?
3. Y-a-t-il un message d'erreur autre ?
----------------------------------------------------
Pour rappel, ce que j'avais écrit Lundi 23-03
---------------------------------------------------
Bonsoir,
En cherchant sur la toile, j'ai réussi à trouver qq codes dont celui qui est dans le classeur Excel.
Dans le fichier Word, j'ai créé 2 signets nommés Tableau1 et Tableau2 sous lesquels viendont se coller les tableaux Excel nommés tableau_XL1 et Tableau_XL2
Ne pas oublier de mettre la référence indiquée en tête du code J'espère que ça ira car je ne suis pas un grand utilisateur de Word.
VB:
Sub exportDonneesDansSignetsWord()
'--------------------------------------------------------------------
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
'--------------------------------------------------------------------
Dim AppWord As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set AppWord = CreateObject("word.application") 'ouvre session word
Set WordDoc = AppWord.Documents.Open("E:\FSMI.docm") 'ouvre document Word Attention au chemin!!
AppWord.Visible = False 'word masqué pendant l'operation
For i = 1 To 2
Range("Tableau_XL" & i).Copy
'les signets du document Word sont nommés Tableau1, Tableau2
WordDoc.Bookmarks("Tableau" & i).Range.Select
AppWord.Selection.Paste
Next i
AppWord.Visible = True 'affiche le document Word
WordDoc.Close True 'ferme le document word en sauvegardant les données
AppWord.Quit 'ferme la session Word
End Sub
Bonjour,
désolé de répondre tardivement à ta réponse mais je suis pas mal sollicité en ce moment.
J'ai testé ton code qui fonctionne mais il me sélectionne 150 lignes
Pourrais tu m'expliquer plus en détail stp
merci
Bonsoir,
Elles sortent d'où ces lignes ? du fichier FSMI ??
Sans fichier Excel et/ou Word, comment puis-je savoir ?
Que je sache je n'ai fait parvenir qu'un code !
Bonsoir,
Je comprends mieux !
Dans le code que tu es modifié; il y a en rouge gras une instruction qui fait que plus de 150 lignes sont copiées !
F15" &i est équivalent à F151 dans la boucle 1 et F152 dans la boucle 2
For i = 1 To 2 Range("B5:F15" & i).Copy
'les signets du document Word sont nommés Tableau1, Tableau2
WordDoc.Bookmarks("Tableau" & i).Range.Select
AppWord.Selection.Paste
Next i
A voir aussi l'utilité de la boucle qui va copier 2 fois le tableau en Tableau1 ( OK ) puis en Tableau2 qui n'existe pas !!!!
- 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