Discussion :

[Carabistouilleur]

Bonjour à tous.tes.
Dans le cadre de la création d'une application Access , je "manipule" des fichiers Word et Excel depuis Access.
J'ai des tableaux dans un Word d'origine je souhaite appliquer la hauteur de ligne d'un tableau dans un tableau Excel.
Pour illustrer mon propos, je vous joins cette db exemple :
Data_Base_Exemple_Pour_DPC.zip
Vous avez aussi le doc Word, l'Excel ainsi que des commentaires dans le formulaire de l'outil Access.

Je vous joint le code qui engendre l'erreur :

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
Private Sub Ajust_Hauteur_L_Click()
Dim oWordApp         As Word.Application
Dim oExcelApp        As Excel.Application
Dim oWordDoc         As Word.Document
Dim oExcelClasseur   As Excel.Workbook
Dim lHauteurLigne    As Long
Dim sCheminCour      As String
 
sCheminCour = ExtractFolder(CurrentDb.Name)
Set oWordApp = CreateObject("word.application")
oWordApp.Visible = False    'Word reste masqué pendant l'opération
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False   'Excel reste masqué pendant l'opération
 
Set oWordDoc = oWordApp.Documents.Open(sNomDoc, , True)                                   'ouvre le document Word en lecture seule
Set oExcelClasseur = oExcelApp.Workbooks.Open(sNomExcel)                                  'ouvre l'Excel
 
 
    oWordDoc.Tables(1).Cell(2, 2).Select
    lHauteurLigne = oWordDoc.Tables(1).Cell(2, 2).Row.Height
    oExcelClasseur.Sheets(1).Cells(2, 2).RowHeight = lHauteurLigne
 
End Sub

mais l'utilisation de la pièce jointe vous donnera plus d'éléments.
Merci à vous.
Cordialement.

[User]

Bonjour,

Je n'ai pas regardé le fichier mais juste une remarque qui me semble importante.

Il faut bien fermer et libérer les variables Objet en fin de code pour ne pas avoir d'application toujours chargées en arrière plan :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'...
oWordDoc.Close SaveChanges:=wdSaveChanges
Set oWordDoc = Nothing
 
oExcelClasseur.Close SaveChanges:=True
Set oExcelClasseur = Nothing
 
oWordApp.Quit
Set oWordApp = Nothing
 
oExcelApp.Quit
Set oExcelApp = Nothing
 
End Sub

Cordialement.

[Carabistouilleur]

Bonjour,

Je n'ai pas regardé le fichier mais juste une remarque qui me semble importante.

Il faut bien fermer et libérer les variables Objet en fin de code pour ne pas avoir d'application toujours chargées en arrière plan :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'...
oWordDoc.Close SaveChanges:=wdSaveChanges
Set oWordDoc = Nothing
 
oExcelClasseur.Close SaveChanges:=True
Set oExcelClasseur = Nothing
 
oWordApp.Quit
Set oWordApp = Nothing
 
oExcelApp.Quit
Set oExcelApp = Nothing
 
End Sub

Cordialement.

Oui, effectivement, j'ai oublié de mettre ces lignes dans l'exemple que je vous ai donné mais je sais qu'il faut libérer ces objets.
Merci. Par contre ce n'a aucun impact sur l'erreur concerné, voir pièce jointe.

[Robert1957]

Bonjour Carabistouilleur, User,

Pour déterminer la hauteur ce n'est pas plutôt :

Code :

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

oExcelClasseur.Sheets(1).Rows(LeNuméroDeLigne).RowHeight = lHauteurLigne

Bonne journée

[Carabistouilleur]

Bonjour Carabistouilleur, User,

Pour déterminer la hauteur ce n'est pas plutôt :

Code :

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

oExcelClasseur.Sheets(1).Rows(LeNuméroDeLigne).RowHeight = lHauteurLigne

Bonne journée

Merci mais cela ne change rien à l'erreur :

qui apparait dans cette ligne :

Code :

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

 oExcelClasseur.Sheets(1).Rows(2).RowHeight = lHauteurLigne  'Err 1004

mais qui -selon moi-est liée à la valeur affectée à la variable dans cette ligne :

Code :

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

lHauteurLigne = oWordDoc.Tables(1).Cell(2, 2).Row.Height

qui est de 9999999...
...comme je le précise dans la pièce jointe

Je pense que cette erreur est plus liée à la récupération de la hauteur de ligne du tableau dans Word. Je continu à chercher.
Merci

[Carabistouilleur]

Je précise que le but est d'ajuster des dimensions de cellule à la taille d'une image après un copier/coller image de Word à Excel .
Voici le code modifié:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim oWordApp            As Word.Application
Dim oExcelApp           As Excel.Application
Dim oWordDoc            As Word.Document
Dim oExcelClasseur      As Excel.Workbook
Dim oImage              As Excel.Shape
Dim lHauteurLigne       As Long
Dim sCheminCour         As String
Dim lIndiceImage        As Long
 
sCheminCour = ExtractFolder(CurrentDb.Name)
Set oWordApp = CreateObject("word.application")
oWordApp.Visible = False    'Word reste masqué pendant l'opération
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False   'Excel reste masqué pendant l'opération
 
Set oWordDoc = oWordApp.Documents.Open(sNomDoc, , True)                                   'ouvre le document Word en lecture seule
Set oExcelClasseur = oExcelApp.Workbooks.Open(sNomExcel)                                  'ouvre l'Excel
Set oExcelSheet = oExcelClasseur.Sheets(1) 'aide pour codage
 
 
    'copie dans Word
    oWordDoc.Tables(1).Cell(2, 2).Range.Copy
    'selection cellule Excel
    oExcelClasseur.Sheets(1).Cells(2, 2).Select
    'collage spécial
    oExcelClasseur.Sheets(1).Activate 'Activation de la feuille pour le collage
    ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:=False, DisplayAsIcon:=False 'collage
    'Affection objet shape
    Set oImage = oExcelSheet.Shapes("Image 1")
    lHauteurLigne = oImage.Height
    lLargeurColonne = oImage.Width
    'Ajustement hauteur ligne et largeur colonne
    oExcelSheet.Rows(2).RowHeight = lHauteurLigne
    oExcelSheet.Columns(2).ColumnWidth = lLargeurColonne * (54.29 / 288) 'attention conversion
 
    'Accrochage image à cellule
    oImage.Placement = xlMoveAndSize
 
    'Libération objets
    oWordDoc.Close SaveChanges:=wdSaveChanges
    Set oWordDoc = Nothing
 
    oExcelClasseur.Close SaveChanges:=True
    Set oExcelClasseur = Nothing
 
    oWordApp.Quit
    Set oWordApp = Nothing
 
    oExcelApp.Quit
    Set oExcelApp = Nothing
 
End Sub

En fait le changement est que j'affecte les variables lHauteurLigne et lLargeurColonne à partir des dimensions de l'image collée dans Excel.
Attention pour la largeur il y a une conversion (source : https://fr.extendoffice.com/document...t-picture.html) :

Code :

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

    oExcelSheet.Columns(2).ColumnWidth = lLargeurColonne * (54.29 / 288) 'attention conversion

Voilà si vous avez des remarques/correction.
Je vais clôturer le sujet.
Cordialement