IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Ajuster une hauteur de ligne de Word à Excel [AC-2019]


Sujet :

VBA Access

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Cadre technique en BE
    Inscrit en
    juillet 2021
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cadre technique en BE
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2021
    Messages : 64
    Points : 34
    Points
    34
    Par défaut Ajuster une hauteur de ligne de Word à Excel
    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.

  2. #2
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 868
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 868
    Points : 18 495
    Points
    18 495
    Billets dans le blog
    37
    Par défaut Libération des variables Objet
    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.
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON


    Meilleurs vœux pour la nouvelle année

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Cadre technique en BE
    Inscrit en
    juillet 2021
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cadre technique en BE
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2021
    Messages : 64
    Points : 34
    Points
    34
    Par défaut
    Citation Envoyé par User Voir le message
    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.

  4. #4
    Membre expert
    Homme Profil pro
    Consultant informatique
    Inscrit en
    octobre 2012
    Messages
    1 657
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Service public

    Informations forums :
    Inscription : octobre 2012
    Messages : 1 657
    Points : 3 049
    Points
    3 049
    Par défaut
    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
    Ce qui se conçoit bien s’énonce clairement et les mots pour le dire arrivent aisément. Nicolas Boileau
    Si tout est OK, n'oubliez pas de cliquer sur

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Cadre technique en BE
    Inscrit en
    juillet 2021
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cadre technique en BE
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2021
    Messages : 64
    Points : 34
    Points
    34
    Par défaut
    Citation Envoyé par Robert1957 Voir le message
    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 :
    Nom : Capture d’écran 2022-11-12 093545.jpg
Affichages : 22
Taille : 17,3 Ko
    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

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Cadre technique en BE
    Inscrit en
    juillet 2021
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cadre technique en BE
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2021
    Messages : 64
    Points : 34
    Points
    34
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Paramétrer une hauteur de ligne pour Excel
    Par sebing dans le forum BIRT
    Réponses: 0
    Dernier message: 19/03/2019, 18h11
  2. Réponses: 13
    Dernier message: 03/09/2013, 14h31
  3. [XL-2007] Auto ajustement de hauteur de ligne incorrect
    Par EmmanuelleC dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 20/06/2011, 23h48
  4. [XL-2007] Ajuster la hauteur de ligne
    Par manuseverine dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 26/02/2010, 15h21
  5. spécifier une hauteur de ligne à ma datagrid
    Par martala dans le forum Windows Forms
    Réponses: 1
    Dernier message: 11/02/2008, 17h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo