Discussion :

[fulgaro]

bonjour,

j'ai un problème au niveau de ce code :

Code :

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

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

Je vais essayer d'être clair....
le problème est avec les lignes en commentaire. lorsque je les met en commentaire tout mon code s'exectute parfaitement.(il me crée des commentaire vide dans excel)
lorsque j'essaye d'activer

Code :

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

xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).Comment.Text str_commentaire

tout va très bien jusqu'a environ 33% de la création. au bout des 33%, lorsqu'il ajoute un commentaire il me met un message d'erreur :

variable objet ou variable de bloc With non définie

alors qu'il est passer déjà une 50ène de fois dans ce code et qu'il la passé sans problème, si je regarde dans excel ce qu'il ma créé est parfait jusqu'a l'erreur.

En pas à pas les variables n'ont aucun problème...

quelqu'un aurait une idée sur le problème ?

Merci pour votre aide...

[fulgaro]

pour ceux que ça interesse, il faut mettre seulement :

Code :

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

1
2
3
4
If Not (IsNull(rs_mesure!commentaire)) And rs_mesure!commentaire <> "" Then
  str_commentaire = rs_mesure!commentaire  
  xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).AddComment str_commentaire
End If

et non pas

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
  str_commentaire = rs_mesure!commentaire  
  xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).AddComment
  xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).Comment.Text str_commentaire
  xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).Comment.Visible = False
End If