Dans un document word, je veux calculer la hauteur d'un champ afin que celui-ci s'adapte en hauteur selon le texte entré.
 
Avec le code suivant j'obtiens invariablement la hauteur d'origine.
La valeur ne se réinitialise pas.
(si la hauteur dépasse 88, elle doit passer à 300). Or le pointeur ne va jamais à cet endroit.
 
Merci de l'aide que vous pouvez m'apporter.
 
 
 
Public Sub RedimCadre()
 
Dim objCadre As Frame
 
Set objCadre = ActiveDocument.Frames.Item(1)
 
MsgBox ("Ancienne valeur = " & objCadre.Height)
 
If objCadre.Height > 88 Then
 
    objCadre.Height = 300
     
    MsgBox ("Taille modifiée" )
     
End If
 
End Sub