XL 2021 Comportement bizarre en Batch

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion fanch55
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
fanch55

fanch55

XLDnaute Barbatruc
Bonjour à tous,
Dans le classeur joint, on vérifie les dates d'échéance des contrats [feuille Reventilation 2025 (2)] ( colonne Fin contrat )
Si les dates sont échues, on envoie un mail via outlook et on met un commentaire dans la cellule de l'agent avec la date d'envoi .

En mode Foreground, tout fonctionne impeccablement .
Si on le lance via le planificateur de tâches en activant la sub Run_Batch dans le Workbook_Open, tout fonctionne normalement .

Private Sub Workbook_Open()
' Run_Batch '<-- sub qui fonctionne correctement mais à utiliser que pour test
Batch_Control ' <-- sub à appeler en mode batch
' Set_Comment Sheets("Reventilation 2025 (2)").[B4]
End Sub
Si via le planificateur de tâches, on tente de récupérer la Commandline (Sub Batch_Control) pour exécuter la sub indiquée (Run_Batch),
Je ne sais pas pourquoi, mais Excel considère alors que les commentaires sont des Textbox et je n'arrive plus à les formatter ( je deviens chèvre depuis 3 jours , malgré 3 méthodes )
Tout le code est numéroté pour pouvoir tracer l'exécution, un fichier journal et une feuille Journal indiquent le déroulement .

22/03/2025 10:23:59 Clear
22/03/2025 10:23:59 Start Envoyer_Mail_Outlook
22/03/2025 10:23:59 Chargement paramètres effectué
22/03/2025 10:23:59 Création d'une nouvelle instance Outlook
22/03/2025 10:24:00 recherche du compte test.vba.fanch55@free.fr
22/03/2025 10:24:00 7 comptes
22/03/2025 10:24:00 > ...@free.fr
22/03/2025 10:24:00 > ...@free.fr
22/03/2025 10:24:00 > ...r@free.fr
22/03/2025 10:24:00 > ...@gmail.com
22/03/2025 10:24:00 > test.vba.fanch55@free.fr
22/03/2025 10:24:00 test.vba.fanch55@free.fr trouvé !!!
22/03/2025 10:24:00 Récupération de la signature C:\Users\François\AppData\Roaming\Microsoft\Signatures\TestVba.htm
22/03/2025 10:24:00 Filtrage des Contrats
22/03/2025 10:24:00 Traitement de 2 agent(s)
22/03/2025 10:24:00 Marquage du Commentaire
22/03/2025 10:24:00 Option 1
22/03/2025 10:24:00 Option 1 OK
22/03/2025 10:24:00 Demande de création Mail effectuée pour Monsieur Raguideau
22/03/2025 10:24:00 Ecriture du corps de message
22/03/2025 10:24:00 Envoi du Mail
22/03/2025 10:24:00 Marquage du Commentaire
22/03/2025 10:24:00 Option 1
22/03/2025 10:24:00 Option 1 OK
22/03/2025 10:24:00 Demande de création Mail effectuée pour FASQUEL P.
22/03/2025 10:24:00 Ecriture du corps de message
22/03/2025 10:24:00 Envoi du Mail
22/03/2025 10:24:00 Affichage de tous les Contrats
22/03/2025 10:24:00 End Envoyer_Mail_Outlook
22/03/2025 10:24:02 OUTLOOK.EXE[10512] --> Arrêt de la tâche
22/03/2025 10:24:02 Ligne de commande [ "C:\Program Files\Microsoft Office\Root\Office16\OUTLOOK.EXE" -Embedding ]
Batch 22/03/2025 10:29:24 Clear
Batch 22/03/2025 10:29:24 Run Envoyer_Mail_Outlook
Batch 22/03/2025 10:29:24 Start Envoyer_Mail_Outlook
Batch 22/03/2025 10:29:24 Chargement paramètres effectué
Batch 22/03/2025 10:29:24 Création d'une nouvelle instance Outlook
Batch 22/03/2025 10:29:24 recherche du compte test.vba.fanch55@free.fr
Batch 22/03/2025 10:29:24 7 comptes
Batch 22/03/2025 10:29:24 >..@free.fr
Batch 22/03/2025 10:29:24 > ..s@free.fr
Batch 22/03/2025 10:29:24 > ...r@free.fr
Batch 22/03/2025 10:29:24 >....5@gmail.com
Batch 22/03/2025 10:29:24 > test.vba.fanch55@free.fr
Batch 22/03/2025 10:29:24 test.vba.fanch55@free.fr trouvé !!!
Batch 22/03/2025 10:29:24 Récupération de la signature C:\Users\François\AppData\Roaming\Microsoft\Signatures\TestVba.htm
Batch 22/03/2025 10:29:24 Filtrage des Contrats
Batch 22/03/2025 10:29:24 Traitement de 2 agent(s)
Batch 22/03/2025 10:29:24 Marquage du Commentaire
Batch 22/03/2025 10:29:24 Option 1
Batch 22/03/2025 10:29:24 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 240
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 250
Batch 22/03/2025 10:29:24 Impossible de définir la propriété Bold de la classe Font. en ligne 260
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 270
Batch 22/03/2025 10:29:24 Impossible de lire la propriété Characters de la classe TextBox. en ligne 280
Batch 22/03/2025 10:29:24 Option 2
Batch 22/03/2025 10:29:24 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 350
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 360
Batch 22/03/2025 10:29:24 Impossible de définir la propriété Bold de la classe Font. en ligne 370
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 380
Batch 22/03/2025 10:29:24 Impossible de lire la propriété Characters de la classe TextBox. en ligne 390
Batch 22/03/2025 10:29:24 Option 3
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 470
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 480
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 490
Batch 22/03/2025 10:29:24 Erreur définie par l'application ou par l'objet en ligne 500
Batch 22/03/2025 10:29:24 Demande de création Mail effectuée pour Monsieur Raguideau
Batch 22/03/2025 10:29:25 Ecriture du corps de message
Batch 22/03/2025 10:29:25 Envoi du Mail
Batch 22/03/2025 10:29:25 Marquage du Commentaire
Batch 22/03/2025 10:29:25 Option 1
Batch 22/03/2025 10:29:25 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 240
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 250
Batch 22/03/2025 10:29:25 Impossible de définir la propriété Bold de la classe Font. en ligne 260
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 270
Batch 22/03/2025 10:29:25 Impossible de lire la propriété Characters de la classe TextBox. en ligne 280
Batch 22/03/2025 10:29:25 Option 2
Batch 22/03/2025 10:29:25 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 350
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 360
Batch 22/03/2025 10:29:25 Impossible de définir la propriété Bold de la classe Font. en ligne 370
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 380
Batch 22/03/2025 10:29:25 Impossible de lire la propriété Characters de la classe TextBox. en ligne 390
Batch 22/03/2025 10:29:25 Option 3
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 470
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 480
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 490
Batch 22/03/2025 10:29:25 Erreur définie par l'application ou par l'objet en ligne 500
Batch 22/03/2025 10:29:25 Demande de création Mail effectuée pour FASQUEL P.
Batch 22/03/2025 10:29:25 Ecriture du corps de message
Batch 22/03/2025 10:29:25 Envoi du Mail
Batch 22/03/2025 10:29:25 Affichage de tous les Contrats
Batch 22/03/2025 10:29:25 End Envoyer_Mail_Outlook
Batch 22/03/2025 10:29:25 Application Quit

Le zip joint contient également le Xml ( à adapter ) pour l'importer dans le planificateur de taches .
1742637160368.png


Si quelqu'un avait une idée pour formater les commentaires en Batch ......
 

Pièces jointes

Solution
fanch55
Bon, je n'ai pas résolu le fond du problème dont les raisons me restent bien obscures ...
Mais je l'ai contourné via un petit VBS lancé par le planificateur :
VB: 
' -----------------------------------------------------------------------
' Lancement en batch du classeur des contrats
' -----------------------------------------------------------------------
    With CreateObject("Excel.Application")
        .Workbooks.Open( "D:\Contrat\CONTRAT F55 Batch vbs.xlsm")
        .Run "Run_Batch"
        .Quit
    End with

Le fonctionnement se fait comme attendu ....!!! ( mais pourquoioioioi ?????)
Merci Jp de ton intérêt
Trier par date Trier par votes
Hello,
Si j'ai bien compris, ton souci se situe dans ce code :
VB: 
Public Sub Set_Comment(Agent As Range)
      Dim Pasbon As Boolean, Tbx As TextBox
170   On Error GoTo Exit_Sub
180      Log "Marquage du Commentaire"

190       With Agent
200           If Not .Comment Is Nothing Then .Comment.Delete
210           .AddComment ("* " & Now)
220           Log "Option 1"
230           With .Comment.Shape.OLEFormat.Object
240               .AutoSize = True
250               .Font.Color = vbWhite
260               .Font.Bold = True
270               .Interior.Color = vbRed
280               .Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
290               If Not Pasbon Then Log "Option 1 OK"
300           End With

310           If Pasbon Then
320              Log "Option 2"
330               Pasbon = False
340               With .Comment.Shape.DrawingObject
350                   .AutoSize = True
360                   .Font.Color = vbWhite
370                   .Font.Bold = True
380                   .Interior.Color = vbRed
390                   .Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
400                    If Not Pasbon Then Log "Option 2 OK"
410               End With
420           End If

430           If Pasbon Then
440              Log "Option 3"
450               Pasbon = False
460               With .Comment.Shape
470                   .TextFrame.AutoSize = True
480                   .TextFrame.Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
490                   .TextFrame.Characters.Font.Color = vbWhite
500                   .TextFrame.Characters.Font.Bold = True
510                   .Fill.ForeColor.RGB = vbRed
520                    If Not Pasbon Then Log "Option 3 OK"
530               End With
540           End If
550       End With
560       Exit Sub
             
Exit_Sub:
570       If Err Then
580           Pasbon = True
590           Log Err.Description & " en ligne " & Erl()
600           Err.Clear
610           Resume Next
620       End If

End Sub
suivant comment tu lances le code qui appelle cette procédure.
As-tu essayé t'invertir tes 3 options ou de rajouter des Log pour voir les types des éléments du commentaire ou certaines propriétés ?
Ami calmant, J.P
 
Vote positif 0 Vote négatif
jurassic pork à dit:
Hello,
Si j'ai bien compris, ton souci se situe dans ce code :
Public Sub Set_Comment(Agent As Range)

suivant comment tu lances le code qui appelle cette procédure.
As-tu essayé t'invertir tes 3 options ou de rajouter des Log pour voir les types des éléments du commentaire ou certaines propriétés ?
Ami calmant, J.P
Cliquez pour agrandir...
Salut JP, tout à fait, c'est ce bout de code qui ne s'exécute pas correctement dans le background quand je passe par la récupération de la ligne de commande.
Intervertir les 3 options ne solutionne rien car je passe systématiquement par les 3 en cas d'erreur .
Je ne peux plus voir aucun propriété dès le Add.comment ..... comme le montre le journal ( je trappe toutes les erreurs ).

S'il y avait un moyen de savoir si on est dans le background en VBA, je serai intéressé ( alternative )
 
Dernière édition:
Vote positif 0 Vote négatif
fanch55 à dit:
Salut JP, tout à fait, c'est ce bout de code qui ne s'exécute pas correctement dans le background quand je passe par la récupération de la ligne de commande.
Intervertir les 3 options ne solutionne rien car je passe systématiquement par les 3 en cas d'erreur .
Je ne peux plus voir aucun propriété dès le Add.comment ..... comme le montre le journal ( je trappe toutes les erreurs ).

S'il y avait un moyen de savoir si on est dans le background en VBA, je serai intéressé ( alternative )
Cliquez pour agrandir...
Hello,
moi je me mefie des with imbriqués qui avec des traitements d'erreur à l'intérieur peuvent introduire des effets de bord. Essaie d'enlever tes with
et de mettre la 3 ème option en premier. et écrire dans le Log systèmatiquement quand tu passes dans cette zone des propriétés de la shape.
 
Vote positif 0 Vote négatif
J'ai enlevé tous les With .
Public Sub Set_Comment(Agent As Range)
Dim Pasbon As Boolean
10 On Error GoTo Exit_Sub
20 Log "Marquage du Commentaire"

30 If Not Agent.Comment Is Nothing Then Agent.Comment.Delete
40 Agent.AddComment ("* " & Now)
50 Pasbon = True

60 If Pasbon Then
70 Log "Option 3"
80 Pasbon = False
90 Agent.Comment.Shape.TextFrame.AutoSize = True
100 Agent.Comment.Shape.TextFrame.Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
110 Agent.Comment.Shape.TextFrame.Characters.Font.Color = vbWhite
120 Agent.Comment.Shape.TextFrame.Characters.Font.Bold = True
130 Agent.Comment.Shape.Fill.ForeColor.RGB = vbRed
140 If Not Pasbon Then Log "Option 3 OK"
150 End If

160 If Pasbon Then
170 Log "Option 1"
180 Pasbon = False
190 Agent.Comment.Shape.OLEFormat.Object.AutoSize = True
200 Agent.Comment.Shape.OLEFormat.Object.Font.Color = vbWhite
210 Agent.Comment.Shape.OLEFormat.Object.Font.Bold = True
220 Agent.Comment.Shape.OLEFormat.Object.Interior.Color = vbRed
230 Agent.Comment.Shape.OLEFormat.Object.Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
240 If Not Pasbon Then Log "Option 1 OK"
250 End If

260 If Pasbon Then
270 Log "Option 2"
280 Pasbon = False
290 Agent.Comment.Shape.DrawingObject.AutoSize = True
300 Agent.Comment.Shape.DrawingObject.Font.Color = vbWhite
310 Agent.Comment.Shape.DrawingObject.Font.Bold = True
320 Agent.Comment.Shape.DrawingObject.Interior.Color = vbRed
330 Agent.Comment.Shape.DrawingObject.Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
340 If Not Pasbon Then Log "Option 2 OK"
350 End If

360 Exit Sub

Exit_Sub:
370 If Err Then
380 Pasbon = True
390 Log Err.Description & " en ligne " & Erl()
400 Err.Clear
410 Resume Next
420 End If

End Sub
Batch 23/03/2025 12:18:46 Clear
Batch 23/03/2025 12:18:46 Run Envoyer_Mail_Outlook
Batch 23/03/2025 12:18:46 Start Envoyer_Mail_Outlook
Batch 23/03/2025 12:18:46 Chargement paramètres effectué
Batch 23/03/2025 12:18:46 Création d'une nouvelle instance Outlook
Batch 23/03/2025 12:18:46 recherche du compte test.vba.fanch55@free.fr
Batch 23/03/2025 12:18:47 7 comptes
Batch 23/03/2025 12:18:47 > test.vba.fanch55@free.fr
Batch 23/03/2025 12:18:47 test.vba.fanch55@free.fr trouvé !!!
Batch 23/03/2025 12:18:47 Récupération de la signature C:\Users\François\AppData\Roaming\Microsoft\Signatures\TestVba.htm
Batch 23/03/2025 12:18:47 Filtrage des Contrats
Batch 23/03/2025 12:18:47 Traitement de 2 agent(s)
Batch 23/03/2025 12:18:47 Marquage du Commentaire
Batch 23/03/2025 12:18:47 Option 3
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 90
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 100
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 110
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 120
Batch 23/03/2025 12:18:47 Option 1
Batch 23/03/2025 12:18:47 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 190
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 200
Batch 23/03/2025 12:18:47 Impossible de définir la propriété Bold de la classe Font. en ligne 210
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 220
Batch 23/03/2025 12:18:47 Impossible de lire la propriété Characters de la classe TextBox. en ligne 230
Batch 23/03/2025 12:18:47 Option 2
Batch 23/03/2025 12:18:47 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 290
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 300
Batch 23/03/2025 12:18:47 Impossible de définir la propriété Bold de la classe Font. en ligne 310
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 320
Batch 23/03/2025 12:18:47 Impossible de lire la propriété Characters de la classe TextBox. en ligne 330
Batch 23/03/2025 12:18:47 Demande de création Mail effectuée pour Monsieur Raguideau
Batch 23/03/2025 12:18:47 Ecriture du corps de message
Batch 23/03/2025 12:18:47 Envoi du Mail
Batch 23/03/2025 12:18:47 Marquage du Commentaire
Batch 23/03/2025 12:18:47 Option 3
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 90
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 100
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 110
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 120
Batch 23/03/2025 12:18:47 Option 1
Batch 23/03/2025 12:18:47 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 190
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 200
Batch 23/03/2025 12:18:47 Impossible de définir la propriété Bold de la classe Font. en ligne 210
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 220
Batch 23/03/2025 12:18:47 Impossible de lire la propriété Characters de la classe TextBox. en ligne 230
Batch 23/03/2025 12:18:47 Option 2
Batch 23/03/2025 12:18:47 Impossible de définir la propriété AutoSize de la classe TextBox. en ligne 290
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 300
Batch 23/03/2025 12:18:47 Impossible de définir la propriété Bold de la classe Font. en ligne 310
Batch 23/03/2025 12:18:47 Erreur définie par l'application ou par l'objet en ligne 320
Batch 23/03/2025 12:18:47 Impossible de lire la propriété Characters de la classe TextBox. en ligne 330
Batch 23/03/2025 12:18:47 Demande de création Mail effectuée pour FASQUEL P.
Batch 23/03/2025 12:18:47 Ecriture du corps de message
Batch 23/03/2025 12:18:47 Envoi du Mail
Batch 23/03/2025 12:18:47 Affichage de tous les Contrats
Batch 23/03/2025 12:18:47 End Envoyer_Mail_Outlook
Batch 23/03/2025 12:18:47 Application Quit

1742730004230.png
 
Dernière édition:
Vote positif 0 Vote négatif
jurassic pork à dit:
tu as essayé de voir si le commentaire est créé au moment où tu changes ses attributs des fois que l'on soit obliger de mettre une tempo.
Mettre un Log(Agent.Comment.Shape.Text) juste après le AddComment
Cliquez pour agrandir...
J'ai testé cela aussi
VB: 
60        If Pasbon Then
70            Log "Option 3"
80            Pasbon = False
90            Log "Text=" & Agent.Comment.Shape.TextFrame.Characters.Text
95            Log "Autosize=" & Agent.Comment.Shape.TextFrame.AutoSize
100           Log "Characters=" & Agent.Comment.Shape.TextFrame.Characters(1, 1).Font.Name
110           Log "Font.color=" & Agent.Comment.Shape.TextFrame.Characters.Font.Color
120           Log "Font.bold=" & Agent.Comment.Shape.TextFrame.Characters.Font.Bold
130           Log "Forecolor=" & Agent.Comment.Shape.Fill.ForeColor.RGB
140           Agent.Comment.Shape.TextFrame.AutoSize = True
150           Agent.Comment.Shape.TextFrame.Characters(1, 1).Font.Name = "Wingdings" ' <-- enveloppe
160           Agent.Comment.Shape.TextFrame.Characters.Font.Color = vbWhite
170           Agent.Comment.Shape.TextFrame.Characters.Font.Bold = True
180           Agent.Comment.Shape.Fill.ForeColor.RGB = vbRed
190           If Not Pasbon Then Log "Option 3 OK"
200       End If
Code: 
Batch    23/03/2025 14:07:06    Option 3
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 90
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 95
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 100
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 110
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 120
Batch    23/03/2025 14:07:12    Forecolor=14811135
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 140
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 150
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 160
Batch    23/03/2025 14:07:12    Erreur définie par l'application ou par l'objet en ligne 170
 
Vote positif 0 Vote négatif
Bon, je n'ai pas résolu le fond du problème dont les raisons me restent bien obscures ...
Mais je l'ai contourné via un petit VBS lancé par le planificateur :
VB: 
' -----------------------------------------------------------------------
' Lancement en batch du classeur des contrats
' -----------------------------------------------------------------------
    With CreateObject("Excel.Application")
        .Workbooks.Open( "D:\Contrat\CONTRAT F55 Batch vbs.xlsm")
        .Run "Run_Batch"
        .Quit
    End with

Le fonctionnement se fait comme attendu ....!!! ( mais pourquoioioioi ?????)
Merci Jp de ton intérêt
 
Vote positif 0 Vote négatif
Solution
ben ça voudrait peut être dire que c'est la forme qui est peut-être pas totalement créée essayer de mettre une tempo :
VB: 
#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Public Sub Set_Comment(Agent As Range)
      Dim Pasbon As Boolean, Tbx As TextBox
170   On Error GoTo Exit_Sub
180      Log "Marquage du Commentaire"
200           If Not Agent.Comment Is Nothing Then Agent.Comment.Delete
              Sleep 500
210           Agent.AddComment ("* " & Now)
              Sleep 500
220           Log "Option 1"

Sinon je n'ai plus d'autre idée tant pis car tu as une solution de contournement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour