Erreur d'exécution 1004 Résolu/Fermé

Question

Bonjour à tous,

J'ai fait un programme qui affiche un message à l'ouverture d'un ficher excel.
Petit problème, lorsque j'ouvre le fichier, on m'affiche "erreur d'exécution 1004".

Voici mon programme :
Private Sub workbook_open()
Dim reponseclient As Range
Dim datereponse As Range

For Each reponseclient In ActiveSheet.Range("reponse_envoye")
    If reponseclient = "" Then
        For Each datereponse In ActiveSheet.Range("date_reponse")
        Valeur = Cells(alertestock.Row, 6)
            If datereponse = "date-3" Then
            MsgBox "Le client " & Valeur & " attend une réponse dans trois jours.", vbCritical, "Réponse sous 3 jours"
            Else
            End If
            If datereponse = "date" Then
            MsgBox "Le client " & Valeur & " attend une réponse aujourd'hui.", vbCritical, "Réponse aujourd'hui"
            Else
            End If
        Next
    End If
Next
End Sub

Merci d'avance pour vos réponses !

ThauTheme · Answer

Bonjour Loic, bonjour le forum,

alertestock non déclarée ?!... J'ai aussi l'impresion que datereponse devrait être une variable de type Date... Bref,  impossible de te répondre sans le fichier qui va bien !...
voir par exemple https://www.cjoint.com/ pour mettre un fichier en pièce jointe.

yg_be · Answer

bonjour, as-tu bien option explicit en début de module?
à quelle ligne obtiens-tu le message d'erreur?

Loic_7447 · Answer

Merci pour vos réponses, ça m'a permis de corriger quelques détails, mais je rencontre toujours le même problème...

Option Explicit

Private Sub workbook_open()
Dim reponseclient As Date
Dim datereponse As Date
Dim Client As Variant

For Each reponseclient In ActiveSheet.Range("reponse_envoye")
    If reponseclient = "" Then
        For Each datereponse In ActiveSheet.Range("date_reponse")
        Client = Cells(datereponse.Row, 6)
            If datereponse = Date - 3 Then
            MsgBox "Le client " & Client & " attend une réponse dans trois jours.", vbCritical, "Réponse sous 3 jours"
            Else
            End If
            If datereponse = Date Then
            MsgBox "Le client " & Client & " attend une réponse aujourd'hui.", vbCritical, "Réponse aujourd'hui"
            Else
            End If
        Next
    End If
Next
End Sub


Le message d’erreur 1004 apparait au niveau de la ligne 8, au premier For each ....
J'ai déclaré reponseclient et datereponse en tant que Date, mais un autre message d'erreur s'affiche et me dit "La variable de type For each doit être de type Variant ou Object". Je ne sais donc pas trop quoi faire pour que mon programme fonctionne.

yg_be · Answer

suggestion:
Option Explicit

Private Sub workbook_open()
Call rappels
End Sub
Private Sub rappels()
Dim date_envoi_mail As Range
Dim date_attendue As Date
Dim Client As Variant

For Each date_envoi_mail In ActiveSheet.Range("date_client_informe")
    If date_envoi_mail = "" Then
        If IsDate(Cells(date_envoi_mail.Row, 8)) Then
            date_attendue = CDate(Cells(date_envoi_mail.Row, 8))
            Client = Cells(date_envoi_mail.Row, 6)
            If date_attendue = Date - 3 Then
                MsgBox "Le client " & Client & " attend une réponse dans trois jours.", vbCritical, "Réponse sous 3 jours"
            Else
                If date_attendue = Date Then
                MsgBox "Le client " & Client & " attend une réponse aujourd'hui.", vbCritical, "Réponse aujourd'hui"
                End If
            End If
        End If
    End If
Next
End Sub

Loic_7447 · Answer

Bonjour à tous,

J'ai résolu mon problème en repartant de zéro. Une partie du problème était liée à la mise en forme du fichier (cellules fusionnées ...). J'ai donc revu cette mise en forme et adapté un nouveau programme.

Merci pour votre aide !

Erreur d'exécution 1004

5 réponses

Discussions similaires