Mettre à jour des fichiers Word en série

Commence donc par remplacer : "If tb1(i, 70) = "" Then GoTo sivide" par "If tb1(i, 70) <> "" Then" et "sivide:" par" end if"

Les goto ne sont pas toujours nos amis.

Pour l'autre probleme remplace "oDoc.Close" par "oDoc.Close SaveChanges:=wdDoNotSaveChanges"

Re,

Oh mais Mercis Yal et Andre13,

ça fonctionne a merveille.

Pour ceux que ça interesse, voici le code final:

Cordialement

Andreas

Option Explicit

Sub mise_Jour()
  Dim ch$
  Dim tb1()
  Dim i!, j!, k!, n%
  Dim wordApp As Object
  Dim oDoc As Word.Document
  Dim docWord$, nomFichier$

  tb1 = Range("TablEvalUpdate1").Value2

  Set wordApp = CreateObject("word.Application")
  With wordApp
    .Visible = True: .Activate
  End With

  For i = 1 To UBound(tb1)
    If tb1(i, 70) <> "" Then
      ch = tb1(i, 68) & "\"
      docWord = tb1(i, 70) & ".docx"
      If Dir(ch & docWord) <> "" Then
        Set oDoc = wordApp.Documents.Open(ch & docWord)
        If oDoc.Tables.Count >= 1 Then
          n = 72
          For j = 5 To 9 Step 2
            For k = 10 To 14 Step 2
              With oDoc.Tables(2).Cell(Row:=k, Column:=j).Range
                .Delete
                .InsertAfter Text:=tb1(i, n)
              End With
              n = n + 1
            Next k
          Next j
        End If
      nomFichier = ch & tb1(i, 71) & ".docx"
      If Dir(ch & tb1(i, 71) & ".docx") = "" Then oDoc.SaveAs nomFichier
      oDoc.Close SaveChanges:=wdDoNotSaveChanges
      Else
        MsgBox "Le fichier " & tb1(i, 70) & " n'a pas été trouvé"
      End If
    End If

  Next i
  wordApp.Quit SaveChanges:=wdDoNotSaveChanges
  Set wordApp = Nothing

End Sub

Content pour toi, n'oublies pas de marquer le sujet en résolu