Discussion :

[fulgaro]

bonjour,
j'ai un petit problème lorsque j'essaye de mettre des commentaires dans excel à partir d'access.
le message d'erreur est le suivant :

1004 : erreur définie par l'application ou par l'objet

et le code qui me le donne :

Code :

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

1
2
3
4
5
6
 
If Not (IsNull(rs_mesure!commentaire)) And (rs_mesure!commentaire <> "") Then
  xlSheet.Cells(coordonnee.x, coordonnee.Y).AddComment  rs_mesure!commentaire          
  ' xlSheet.Cells(coordonnee.x, coordonnee.Y).Comment.Text   Text:=rs_mesure!commentaire
  xlSheet.Cells(coordonnee.x, coordonnee.Y).Comment.Visible = False
End If

je ne trouve pas mon problème

Merci pour votre aide.

[Invité]

Bonjour

C'est quoi coordonnee.x et coordonnee.y ?

Starec

[fulgaro]

ce sont les coordonnées de la cellule dans le tableur.

ça c'est ce que j'avais avant et ça fonctionne.

Code :

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

xlSheet.Cells(coordonnee.x, coordonnee.Y).Value = rs_mesure!valeur

et maintenant que j'ai mis le commentaire il bloque et je n'ai ajouter que ça

Code :

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

1
2
3
4
5
If Not (IsNull(rs_mesure!commentaire)) And (rs_mesure!commentaire <> "") Then
  xlSheet.Cells(coordonnee.x, coordonnee.Y).AddComment  rs_mesure!commentaire          
  ' xlSheet.Cells(coordonnee.x, coordonnee.Y).Comment.Text   Text:=rs_mesure!commentaire
  xlSheet.Cells(coordonnee.x, coordonnee.Y).Comment.Visible = False
End If

dans mon code à la suite du .value = rs_mesure!valeur.
Et je ne vois vraiment pas pourquoi ça bloque.

[Invité]

RE

Je ne pense pas que le addcomment s'applique à Cells, il me semble qu'il ne s'applique qu'à un range.

Il faut changer ton code pour mettre ton cells dans un range

Starec

[fulgaro]

Non ça ne change rien ...

[fulgaro]

Code :

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

1
2
3
4
5
6
7
8
 
If Not (IsNull(rs_mesure!commentaire)) And rs_mesure!commentaire <> "" Then
  xlSheet.Range(inttocel(coordonnee.Y) & coordonnee.x).AddComment
  Dim str_str As String
  str_str = rs_mesure!commentaire
  xlSheet.Range(inttocel(coordonnee.Y) & coordonnee.x).Comment.Text str_str
  xlSheet.Range(inttocel(coordonnee.Y) & coordonnee.x).Comment.Visible = False
End If

Voila la solution.
je ne sais pas pourquoi mais en le passant dans une variable string avant c'est ok....

[Gary_Stoupy]

oula, que c'est du code pas beau à l'arrache lol
Fécilitations à toi

[fulgaro]

je te rassure la version finale n'est pas comme ça
mais la c'est vrai que c'est pas beau du tout