Changement de largeur/hauteur d'une cellule en VBA

Question

Bonjour,

Je suis actuellement en train de développer une application ACCESS qui me permet de générer des tableaux dans un fichier Word en VBA.

Cependant, une fois sur deux j'obtiens l'erreur suivante :

Si je clique sur Débogage, j'obtiens ceux-ci :

Il faut savoir que cette erreur n'apparait qu'une fois sur deux.

Donc si je clique sur fin, que je ferme Word et que je relance l'application. Ça fonctionne. Si je relance la boucle à nouveau, ça ne fonctionne de nouveau plus, etc ...

Je vous épargne tous le code mais voici en gros ce que j'ai écrit :

Private Sub testWord() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open(layoutsFolder & "fichePresence.docx") ' Chemin d'accès vers le fichier WordApp.Visible = True

[...]

Dim ParagraphTrainer As Word.Paragraph Set ParagraphTrainer = WordDoc.Paragraphs(7)

Dim trainerTable As Word.Table Dim daysQty As Integer daysQty = DateDiff("d", startDate, endDate) + 1 ' 4 dans l'exemple Set trainerTable = WordDoc.Tables.Add(Range:=ParagraphTrainer.Range, NumRows:=3, NumColumns:=1 + (2 * daysQty))

[...]

For i = 1 To trainerTable.Rows.Count trainerTable.Cell(i, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft trainerTable.Cell(i, 1).Width = MillimetersToPoints(50) Next i

[...]

WordApp.ActiveDocument.SaveAs2 layoutsFolder & "output.docx" WordApp.ActiveDocument.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing

End Sub

Voilà le tableau que ça me sort quand ça fonctionne une fois sur deux :

Answer 1

Bonjour Lucas,

Je comprends que vous avez un souci au niveau de l’utilisation d’Access qui vous donne un message d’erreur.

Je souhaite vous aider avec ceci. Notez que nous sommes limités dans ce que nous pouvons faire pour vous aider de ce forum et j’espère bien que cela peut résoudre ce souci.

Dans un premier temps, je vous demande de vérifier si votre version d’Office ainsi que votre version de Windows sont a jour.

Pour Office Installer les mises à jour d’Office - Support Office (microsoft.com)

Pour Windows : Windows Update : FAQ (microsoft.com)

Merci de m’inclure une capture d’écran. Les étapes pour effectuer une capture d’écran se trouvent dans ce lien : Utiliser l'outil Capture d'écran pour effectuer des captures d'écran (microsoft.com)

À vous lire,

Marie