Bonjour, Excel m'indique l'erreur suivante :

Erreur d'exécution 5592
Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différente.

Et là j'avoue être perdu.

Mon code est le suivant :

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
 
 
Sub DistanceParoi()
 
Dim rep
 
texte = "Doit-on compléter machin truc ? "
 
Call Word_Ouvrir_document(NomFichier, True)
 
For k = 1 To 4
    rep = MsgBox(texte & k, vbQuestion + vbYesNo + 256, "Attention")
    If rep = vbYes Then
        For I = 17 To 26
        valeur = Worksheets("Vitesse effluent Axe 1 et 2").Cells(I, 2).Value
        For J = 3 To 12
        ActiveDocument.Tables(k).Columns(1).Cells(J).Range.Text = valeur
        Next J
        Next I
    End If
Next k
 
End Sub