Discussion :

[sat478]

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

[SfJ5Rpw8]

ben sous Word.. j'aurai pensé à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    ActiveDocument.Tables(k).Cells(J,1).Range.Text = valeur

[sat478]

Non cela ne fonctionne pas ainsi sous word, cela ressemble plus à une syntaxe excel

[SfJ5Rpw8]

Non cela ne fonctionne pas ainsi sous word, cela ressemble plus à une syntaxe excel

à oui sous word il ne faut pas le s à cell

[sat478]

oui c bien cela je ne sais pas pourquoi mon code ne fonctionnait pas, c'est celui que j'avais testé sur internet

enfin merci beaucoup