bonjour,
j'ai un problème au niveau de ce code :
Je vais essayer d'être clair....
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
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
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 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part xlSheet.Range(inttocel(coordonnee.Y - 1) & coordonnee.x).Comment.Text str_commentaire
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.variable objet ou variable de bloc With non définie
En pas à pas les variables n'ont aucun problème...
quelqu'un aurait une idée sur le problème ?
Merci pour votre aide...
Partager