D’Excel vers word vba

Version imprimable

02/10/2019, 18h23
BAHIRI

D’Excel vers word vba

Bonjour à tous,

Est-il possible de m'aider sur un point de blocage :

j'ai un fichier Excel dans le quel il y a des graphiques et des listes variables.

j'arrive à exporter les graphiques dans un fichier word dans le quel il y a des signets. cepandent, je n'arrive pas à transferer les listes.

comment transférer toutes les listes de longueur variable d’une feuille de calcul vers word.

Je vous remercie de m’orienter vers une solution.

Cordialement
03/10/2019, 09h41
Menhir

Pour le transfert lui-même, un simple Copy dans Excel et Paste dans Word devrait suffire.

Mais je suppose que ton problème consiste à sélectionner l'intégralité de ta liste.
Pour ça, il y a plusieurs méthodes.

Si ta liste est le seul élément de ton onglet, le plus simple est d'utiliser UsedRange.
https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)

Si ta liste est "compacte" (sans trous), tu peux utiliser CurrentRegion appliquer à la première cellule de ta liste.
https://msdn.microsoft.com/fr-fr/lib...8(v=office.15)

Sinon, il faudra passer par deux End (xlUp et xlToLeft) pour déterminer la dernière ligne et la dernière colonne de ta liste.
https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)

Transfer Tableaux Excel dans Word

Bonjour,

Merci de m'avoir répondu.

J'ai des tableaux dans Excel dont les résultats sont traités par procédures VBA. j'ai nommé ces tableaux de Lite1 à Liste5.
Je souhaite transférer ces tableaux dans un document Word en format .dotx existant. ce dernier contient des signets de (Liste1 à Liste5).
j'arrive à récupérer la première liste mais je n'arrive pas à boucler pour passer de liste1 à 5. J'utilise cette procédure ci-dessous. Merci par avance de tes observations.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub UseWord_1()
    Dim Wd As Word.Application
    Dim strChemin As String
    Dim strNomTexteword As String
    Dim bkmSignet As Word.Bookmark
    Dim rngCellule As Range
    Dim Li As Long, Col As Long, i As Long
 
    strChemin = ThisWorkbook.Path & "\"
 
    'Instanciation de l'objet Wd
    Set Wd = New Word.Application
 
    Li = 1
    Col = 1
 
    'Travail dans word
    With Wd
 
 
        For Each rngCellule In _
            ThisWorkbook.Worksheets("RESULTAT").Cells(Li, Col).CurrentRegion.Cells
 
            For i =1 To 5
 
            Application.StatusBar = "Cr?ation en cours " & rngCellule.Value
            'Cr?ation d'un nouveau doc
            .Documents.Add Template:=strChemin & "target_File.dotx"
 
            'Traitement dans un nouveau Doc Word
                With .ActiveDocument
                     .Bookmarks("Liste" & i).Range.Text = rngCellule.Value
                End With
 
                i = i + 1
            Next i
        Next rngCellule
 
 
            ' Fin de travail dans word
                    strNomTexteword = Format(Hour(Time()), "00") & _
                    Format(Minute(Time()), "00") & Format(Second(Time()), "")
 
                With .ActiveDocument
                     .SaveAs2 Filename:=strChemin & strNomTexteword & ".docx"
                     .Close
                End With
    End With
 
    'Destruction de l'objet Wd
    Set Wd = Nothing
    MsgBox "Doc " & strNomTexteword & " crée"
 
End Sub

19/10/2019, 10h40
BAHIRI

Question d'organisation peut être

Bonjour Forum,

J'ai pu répondre la question relative à l'export de tableaux Excel vers Word.

Mon code copie en séquentiel les 25 graphiques vers word en fonction des signets dans Word.

Questions :

Tous les graphiques se trouvent dans la même feuille de calcul même si le programme analyse toutes les feuilles du classeur ou faut-il dédier une feuille pour chacun. Est-ce la bonne méthode ?

Merci par avance

Bien cordialement
28/10/2019, 20h00
BAHIRI

Ogranisation

En prenant du recule, plusieurs tests et en fonction de la taille des listes à gérer. J'ai optimisé le contenu de chaque feuille de calcul.

Cordialement