Modifier dimension d'un commentaire dans EXCEL depuis access

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:

---

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:

---

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

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.

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...

:roll:

Merci

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...:roll:

voici la fonction que j'appelle a chaque cellule

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

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

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:

---

xlAPP.Selection....

---

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

Bon courage,

PGZ

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:

---

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