Discussion :

[petitours]

Bonjour

J'ecris des choses dans le commentaire de cellules d'un fichier excel créé depuis access.
Je souhaite agrandir en même temps les dimensions de ce commentaire pour que la lecture du contenu puisse se faire normalement.

en utilisant une macro dans excel pour connaitre le code necessaire à ce redimensionnement, j'obtiens

Code :

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

1
2
3
 
Selection.ShapeRange.ScaleWidth 5.01 , msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 3.07 , msoFalse, msoScaleFromTopLeft

mais la acess ne reconnait pas les arguments msoFalse et msoScaleFromTopLeft

en tentant de supprimer ces arguments ca ne fonctionne plus du tout, toute l'appli se bloque et plante.

Code :

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

1
2
3
4
5
Vcells.AddComment
Vcells.Comment.Text Text:="mon texte"
 
Selection.ShapeRange.ScaleWidth 5.01  
Selection.ShapeRange.ScaleHeight 3.07

Comment peut on redimensionner les commentaires dans EXCEL depuis Access ?

Merci par avance

[Invité]

Bonjour

Pour qu'Access reconnaisse msoFalse et msoScaleFromTopLeft, il faut que dans les références tu coches : Microsoft Office xx.x Object Library (avec xx.x ta version).

Cette bibliothèque est mise par défaut dans Excel, mais pas dans Access.

[petitours]

les arguments sont maintenant reconnus, merci, mais ca me fait du coup la meme chose que en essayant sans les arguments qui n'étaient pas reconnus...sa plante.

Ca me met une fenetre "Propriété ou methode non gérée par cet objet" qui revient sans arret quand je la ferme.
Il faut tenir alt F4 au moins 10 ou 15s avant qu'elle disparaisse enfin...



Merci

[petitours]

Bonjour

J'ai le message qui reviens quand je ferme la boite de dialogue tout simplement parce que j'appelle plusieurs fois de suite la ligne qui bug...

voici la fonction que j'appelle a chaque cellule

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
Public Sub RemplirCommentaire(Vcells, Tintervention)
On Error GoTo Err_RemplirCommentaire
Dim k As Integer
Dim vAncienTexte As String
            Vcells.AddComment
            Vcells.Comment.Text Text:=" "
            Selection.ShapeRange.ScaleWidth 5.01, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight 3.07, msoFalse, msoScaleFromTopLeft
 
            k = 0
                While Not Tintervention.EOF
                    vAncienTexte = Vcells.Comment.Text
                    Vcells.Comment.Text Text:=vAncienTexte & Tintervention!libelleAction & Chr(10) & ""
                    k = k + 1
                    Tintervention.MoveNext
                Wend
            Vcells.Value = k
 
Exit_RemplirCommentaire:
    Exit Sub
Err_RemplirCommentaire:
    MsgBox Err.Description
    Resume Exit_RemplirCommentaire
End Sub

Le problème vient malgré tout de cette ligne "Selection.ShapeRange...." ou une propriété ou une methode n'est pas gérée par cet objet" et je n'arrive pas à comprendre. Dans Excel la commande semble trés bien convenir mais depuis access les faits montrent que non et l'aide n'est pas bien riche d'explications, en tous cas je ne sais pas où chercher pour ce probleme "accessoExcel"

Merci par avance pour votre aide

[pgz]

Bonsoir.

A mon avis c'est ton Selection qui ne passe pas. Dans Excel ça passe implicitement, mais là...
Si tu as une instance de l'appli tu peux faire

Code :

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

xlAPP.Selection....

Sinon, il faut passer à la procédure une insatnce de la feuille et piocher dans sa collection Shapes.

Bon courage,

PGZ

[petitours]

Bonjour

Je n'arrive pas à m'en sortir avec ces explications.

Ce serait le Selection qui n'est pas utilisable tel que ?

par ce que j'ai ce code par ailleurs qui fonctionne trés bien

Code :

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

1
2
3
    ws.Cells.Select
    ws.Cells.EntireColumn.AutoFit
    Selection.HorizontalAlignment = xlCenter

ws est "Dim ws As Excel.Worksheet"
Selection fonctionne bien tout seul là

Merci