Salut à tous,

j'ai un problème à vous soumettre car je ne suis qu'un simple débutant en macro...

J'ai une base de donnée Excel. Cette database repertorie des problèmes lorsqu'ils sont pas encore résolus la ligne est rouge, lorsque le problème est résolu la ligne est verte.

Je souhaiterai faire un export de toutes les lignes rouges vers un document word avec une belle mise en page. Là où ça se complique un peu c'est que je n'ai pas besoin de toutes les collones pour cet export !

Pour le moment j'en suis arrivé que a ça :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
 
Sub EnvoyerDonneesVersWord()
 
     Dim Bam
 
     Set Bam = Workbooks(1).Sheets(2)
 
     InL = Bam.Cells.SpecialCells(xlCellTypeLastCell).Row
 
     InC = Bam.Cells.SpecialCells(xlCellTypeLastCell).Column
 
     Dim DocWord As Word.Document
 
     Dim AppWord As Word.Application
 
     Set AppWord = New Word.Application
 
     Application.DisplayAlerts = True
 
     AppWord.ShowMe
 
     AppWord.Visible = True
 
     'Ouvre le document Word
 
     Set DocWord = AppWord.Documents.Open("\\sibelga.local\TS$\TS_Userdata\EHH398\TC\wec\SuiviWec.doc", ReadOnly:=False)
 
     ' Copie les données Excel
 
     For L = 2 To InL
 
        If (Bam.Cells(L, 1).Interior.ColorIndex = 3) Then
 
            Bam.Range(Cells(L, 1), Cells(L, InC)).Copy
 
        End If
 
      Next
                     ' Colle les données dans Word
 
            DocWord.Range.PasteSpecial
 
            Application.CutCopyMode = False
 
            DocWord.Application.ActiveDocument.Save
 
            AppWord.Application.Quit
 
End Sub
Et ça fait pas du tout ce que j'espère

Merci d'avance pour votre aide