Discussion :

[MCaptain]

Bonjour a tous,

Je cherche a faire la même chose que la macro qui suit (et qui marche très bien), mais a partir d'une macro Word et non Excel car mon fichier excel change toutes les semaines.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Sub test()
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Byte
    Dim n As Long
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monfichier.doc")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération
    n = Range("A2").SpecialCells(xlCellTypeLastCell).Row  'Compte le nombre de lignes non vides
 
    For i = 2 To n
        If Cells(i, 5) = "A" Then
            'les signets du document Word sont nommés Signet1 , Signet2 , Signet3 ,...
            WordDoc.Bookmarks("Signet" & 1).Range.Text = Cells(i, 16) & vbCrLf
        ElseIf Cells(i, 5) = "B" Then
            WordDoc.Bookmarks("Signet" & 2).Range.Text = Cells(i, 16) & vbCrLf
        ElseIf Cells(i, 5) = "C" Then
            WordDoc.Bookmarks("Signet" & 3).Range.Text = Cells(i, 16) & vbCrLf
        ElseIf Cells(i, 5) = "D" Then
            WordDoc.Bookmarks("Signet" & 4).Range.Text = Cells(i, 16) & vbCrLf
        ElseIf Cells(i, 5) = "E" Then
            WordDoc.Bookmarks("Signet" & 5).Range.Text = Cells(i, 16) & vbCrLf
        End If
    Next i
 
    WordApp.Visible = True    'affiche le document Word
 
End Sub

Voila ce que j'ai commencé a faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub test1()
 
    Dim ExcelApp As Excel.Application
    Dim ExcelDoc As Excel.Workbook
    Dim i As Byte
    Dim n As Long
 
    Set ExcelApp = CreateObject("excel.application")    'ouvre une session Excel
    Set ExcelDoc = ExcelApp.Workbooks.Open("fichierexcel.xlsm")    'ouvre le document Excel
    ExcelApp.Visible = False    'Excel est masqué pendant l'opération

Je n'arrive pas a continuer... Sauriez-vous m'aider ?

Bonne journee

[Jean-Philippe André]

Salut


les bookmarks n'existent pas sous Excel.

Du coup je ne vois pas exactement ce que tu cherches a faire ici ?

Tu veux piloter ton word depuis Excel ?

que veux tu faire exactement stp ?

[MCaptain]

Bonjour,

Voila des docs en exemple pour montrer ce que je cherche a faire.

doc de depart.do.doc
fichierexcel.xlsx
Resultat voulu.doc

[Jean-Philippe André]

OK , mais la si tu peux nous expliquer dans le corps d'un message, car je ne peux pas ouvrir les pieces jointes

Un peu d'effort de ton cote, pour obtenir des resultats plus rapidement

[MCaptain]

Ah mince...

En fait j'exporte des donnees d'un logiciel (sous format xls) qui permet de gerer les taches de differentes equipes et a la fin de chaque semaine, ces taches doivent etre repertoriees dans un rapport word qui a une mise en page predefinie.
Les taches se mettront donc en forme sous forme de points en fonction de leur colonne dans excel :

Colonne A :
- tache 1
- tache 4

Colonne B :
- tache 2
- tache 3
- tache 5
- ... etc

Je sais pas si c'est clair...

[Heureux-oli]

Salut,

Ah mince...



Je sais pas si c'est clair...

Non.

Je ne vois pas les liens entre les différents fichiers.

Mais ça n'a rien à voir avec ta question mais bien avec ton code.

Si tu Déclare ton objet Dim wApp as Word.Application, son affectation se fait par Set wApp = New Word.Application si c'est une nouvelle instance, mais peut se faire par Set wApp = Word.Application si on souhaite utiliser une instance existante de Word.
Pareil pour les autres objets.