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 :
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)
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
Je me dit que ça doit quand même être possible…
Merci d'avance à ceux qui essaieront de régler mon problème
Partager