Import et mise en forme VBA de données Excel

Version imprimable

Bonjour !

Déjà merci à vous car depuis 2 semaines que je dois programmer pour mon travail je parcours votre forum et j'y ai trouvé quasiment réponse à toutes mes questions. J'ai construit entre autres une macro qui extrait des données depuis mon classeur excel et les copie dans un .docx (préalablement enregistré sous un autre nom pour ne pas perdre le document modèle. Le tableau est ensuite mis en forme.

Et là je suis perplexe : ça marche... une fois sur deux !
Sinon il m'affiche :
"Erreur d'exécution '462'
Le serveur distant n'existe pas ou n'est pas disponible"

Le débogage indique alors la ligne :
".Rows.SetHeight RowHeight:=InchesToPoints(0.3), HeightRule:=wdRowHeightExactly"

Voyez-vous où peut se situer le problème ??

D'avance merci beaucoup !
Code:

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 34 35 36 37 38 39 40 41 42 43 44 45 Sub export_word() ' ' export_word Macro ' ' ' Copie des données dans la feuille excel Worksheets("Disponibilité poinçons").Activate Union(Range("A1:A96"), Range("D1:A96")).Copy Dim WordApp As Word.Application Dim WordDoc As Word.Document ' Ouverture du fichier modèle et enregistrement sous un autre nom (pour ne rien écraser) Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open _ ("C:\Users\Stagiaire.soud2\Documents\doc_type_essai.docx", ReadOnly:=False) FileSaveName = Application.GetSaveAsFilename(fileFilter:="Word Files (*.doc), *.doc") If FileSaveName <> False Then WordDoc.SaveAs FileSaveName End If ' Collage dans le doc word ' positionne le curseur au signet "ici" WordApp.Selection.Goto What:=wdGoToBookmark, Name:="ici" WordApp.Selection.Paste 'Mise en forme du tableau Set tablo = WordDoc.Tables(1) With tablo .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderHorizontal).LineStyle = wdLineStyleDot .Borders(wdBorderVertical).LineStyle = wdLineStyleDot .Rows.SetHeight RowHeight:=InchesToPoints(0.3), HeightRule:=wdRowHeightExactly .Rows(1).SetHeight RowHeight:=InchesToPoints(0.6), HeightRule:=wdRowHeightExactly End With End Sub

Sur quelle ligne, l'erreur ?
Je suppose que c'est sur l'une de ces lignes

Citation:

Set WordDoc = WordApp.Documents.Open _
("C:\Users\Stagiaire.soud2\Documents\doc_type_essai.docx", ReadOnly:=False)

FileSaveName = Application.GetSaveAsFilename(fileFilter:="Word Files (*.doc), *.doc")
If FileSaveName <> False Then
WordDoc.SaveAs FileSaveName
End If

Si c'est bien ça, alors ajoute un DoEvents après chaque ligne
Code:

1 2 3 4 5 6 7 8 9 10 Set WordDoc = WordApp.Documents.Open _ ("C:\Users\Stagiaire.soud2\Documents\doc_type_essai.docx", ReadOnly:=False) DoEvents FileSaveName = Application.GetSaveAsFilename(fileFilter:="Word Files (*.doc), *.doc") DoEvents If FileSaveName <> False Then WordDoc.SaveAs FileSaveName Dovents End If
DoEvents donne le temps au système de faire sont travail (ouverture de Word, du document, sauvegarde...)
A+

06/03/2008, 11h41
_Nimy_

Merci beaucoup de t'intéresser au problème.

Non, lorsqu'il m'indique qu'il y a une erreur, la ligne est :

Code:

.Rows.SetHeight RowHeight:=InchesToPoints(0.3),HeightRule:=wdRowHeightExactly

PS : j'ai essayé quand même avec les "DoEvents" Conseillés et le résultat ne change pas.
06/03/2008, 12h28
ouskel'n'or

D'où l'intérêt d'indiquer la ligne provoquant l'erreur afin de nous éviter d'avoir à relire tout le code ;)
Rows est une collection d'objets et doit posséder un indice Rows(indice)
Manque l'indice...
(Tu peux laisser les DoEvents qui, s'ils sont inutiles ne nuisent pas)
06/03/2008, 12h34
_Nimy_

A vrai dire je l'avais déjà mis dans le premier post, mais pas avec les balises de code il est vrai.

Et ce que je ne comprends pas c'est que si il manque des infos à mon code, comment arrive-t-il à s'exécuter correctement une fois sur deux?
06/03/2008, 12h50
ouskel'n'or
Moi non plus, je ne comprends pas.
Par contre, si tu isoles les deux séries d'instructions et sépares cette ligne, ça devrait fonctionner.
Code:

1 2 3 With tablo.Rows .SetHeight RowHeight:=InchesToPoints(0.3), HeightRule:=wdRowHeightExactly end with
Pas testé mais ça semblerait logique :roll:
Tu dis
A+

J'ai effectué la modification conseillée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 'Mise en forme du tableau Set tablo = WordDoc.Tables(1) With tablo .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderHorizontal).LineStyle = wdLineStyleDot .Borders(wdBorderVertical).LineStyle = wdLineStyleDot End With With tablo.Rows .SetHeight RowHeight:=InchesToPoints(0.3), HeightRule:=wdRowHeightExactly End With tablo.Rows(1).SetHeight RowHeight:=InchesToPoints(0.6), HeightRule:=wdRowHeightExactly
Eh bien toujours pareil, ça me renvoie toujours la même erreur, pour la même ligne de programmation, avec une constance (un coup marche, un coup marche pas, un coup marche, un coup marche pas,...) surprenante. Pourquoi marcher parfois et pas d'autres, et pourquoi exactement une fois sur deux? c'est à n'y rien comprendre...

Mais merci quand même de tes conseils, car même si la macro présente toujours le même problème j'apprends des choses au passage !

06/03/2008, 13h48
ouskel'n'or
Je ne peux que supposer : HeightRule:=wdRowHeightExactly fixe la hauteur exacte des lignes. Je suppose donc qu'une première fois, cette propriété est appliquée, et qu'une seconde fois, elle est supprimée. Il en va ainsi si tu appuies deux fois sur "Centrer le texte".
Si c'est bien ça, on doit pouvoir effecuter un test pour exécuter le code.
Code:

1 2 3 4 5 If not Tablo.rows.HeightRule:=wdRowHeightExactly then Tablo.rows.HeightRule:=wdRowHeightExactly else 'rien endif
Je te laisse tester ?
Tu dis
A+

NB - Si ça fonctionne, tu mets sur deux lignes
Code:

1 2 3 .SetHeight RowHeight:=InchesToPoints(0.3) If .HeightRule:=wdRowHeightExactly ......

Bon, j'ai testé ce que tu m'as proposé, bidouillé 2-3 trucs pour finalement en revenir à ce que j'avais avant et... maintenant ça marche à tous les coups !

L'informatique des fois...

Par acquis de conscience je te recopie fidèlement ce que j'ai désormais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Mise en forme du tableau
    Set Tablo = WordDoc.Tables(1)
    With Tablo
        .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
        .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
        .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
        .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleDot
        .Borders(wdBorderVertical).LineStyle = wdLineStyleDot
    End With
 
    With Tablo.Rows
        .SetHeight RowHeight:=InchesToPoints(0.3), HeightRule:=wdRowHeightExactly
    End With
 
    Tablo.Rows(1).SetHeight RowHeight:=InchesToPoints(0.6), HeightRule:=wdRowHeightExactly

En tout cas merci !