Bonjour,

J'ai un nouveau soucis, je rempli un document Word rempli de signets à remplacer par des valeurs dans excel et là j'ai un tableau Word à remplir avec les données d'excel qui ne sont pas classées dans des colonnes mais sur la même ligne à 7 cellules d'intervalle.

Du coup j'ai essayé plein de choses notamment :
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
 
Sub Generer_PI_TY()
Dim NDF As String, NDF2 As String
Dim ligne As Integer: Dim colonne As Integer
Dim der_ligne As Integer: Dim der_colonne As Integer
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Column
    der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row
    NDF = ActiveWorkbook.Path & "\Plan d'inspection tuyauterie.docx"
    NDF2 = Sheets("Générer un PI TY").Range("M3").Text & "\" & "D5370PIE" & Sheets("Générer un PI TY").Range("D2").Text & ".doc"
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
 
    With WordApp
        .Visible = True
        .Activate
        For I = 1 To 300
        For J = 1 To der_colonne Step 7
        WordApp.ActiveDocument.Bookmarks("TY" & I).Range.Text = Sheets("Générer un PI TY").Range(J + 4 & "20").Value
        Next J
        Next I
 End With
   WordDoc.Application.ActiveDocument.SaveAs NDF2
 
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
 
    ActiveWorkbook.Close SaveChanges:=Nothing
End Sub
En gros dans mon tableau Word j'ai des signets TY1, TY2, etc... que je voudrais remplacer par les valeurs E20, L20, S20 (même ligne, toutes les 7 colonnes)
Je me dit que ça doit quand même être possible…

Merci d'avance à ceux qui essaieront de régler mon problème