Discussion :

[Florine26]

Bonjour,

Je souhaite réaliser un document Excel qui servira au suivi des créances clients.

Mon tableau contient la date d'aujourd'hui, une colonne de la date de la facture, 5 colonnes de relance qui sont en mise en forme conditionnelle (remplissage rouge avec texte "retard" lorsque le délai maximum est atteint.

Je viens chercher de l'aide sur ce forum car je souhaiterais insérer une "alerte/rappel" par MsgBox qui se déclencherait à l'ouverture du fichier, un peu avant la date de chaque relance a effectué (5 jours avant).

Merci de bien vouloir m'aider.

(Ci-joint un exemple de mon fichier).Suivi des créances clients (modèle).xlsx

[Kiouane]

Je te conseille de lire les événements Workbook http://silkyroad.developpez.com/VBA/EvenementsClasseur/
Workbook_Open dans ton cas

[halaster08]

Bonjour,

Un exemple de ce que j'utilise pour comparer à l'ouverture du fichier, un date incrite en dur dans le fichier et la date d'aujourd'hui.
A adapter pour tes besoins:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
With Sheets("Interface")
    If Not (Year(Date) = Year(.Cells(45, 4)) And Month(Date) = Month(.Cells(45, 4))) Then MsgBox "ATTENTION: les données ne sont pas à jour"
End With
End Sub

PS: La plupart des gens n'ouvrent pas les pièces jointes surtout au premier post: http://www.developpez.net/forums/d84...s-discussions/

[Menhir]

A mon avis, c'est une mauvaise idée de passer par un MsgBox pour au moins trois raisons : c'est volatile, on ne peut pas l'utiliser pour un traitement (imprimer, cocher, etc.), on ne maitrise rien question format.

Je te conseille donc plutôt de créer un onglet "Relances" dans lequel seront inscrits ces renseignements.
Eventuellement, tu peux utiliser le MsgBox pour envoyer un message simple du style "Attention, il reste 5 relance à faire et il y en aura 4 autre à faire dans les jours à venir, voir l'onglet Relance".

[Florine26]

Oui pourquoi pas, merci pour vos idées.
J'aimerais tout de même savoir à quoi le code VBA aurait pu ressembler...

[Menhir]

Tu commences par vider ton onglet journal avec un ClearContents.
Puis tu scrutes l'ensemble de tes lignes de facture avec une boucle For.
Quand tu en rencontres une dont les conditions corresponde à ce que tu cherches, tu copies le contenu qui t'intéresse à la suite du fichier journal.

[Al__22]

Tu en as un de code pour exemple :

Bonjour,

Un exemple de ce que j'utilise pour comparer à l'ouverture du fichier, un date incrite en dur dans le fichier et la date d'aujourd'hui.
A adapter pour tes besoins:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
With Sheets("Interface")
    If Not (Year(Date) = Year(.Cells(45, 4)) And Month(Date) = Month(.Cells(45, 4))) Then MsgBox "ATTENTION: les données ne sont pas à jour"
End With
End Sub

[Florine26]

Bonjour tout le monde,

Je fais remonter mon post car je n'ai toujours pas trouvé solution à mon problème, malgré toutes les recherches je reste coincée...

Voila, j'ai simplifié mon tableau et je souhaiterais toujours qu'un message s'affiche lorsque la facture est arrivée à échéance ou bien lorsqu'elle s'en approche (disons 5 jours avant).
J'ai pour idée que les messages ressembleraient à ceci "La facture n° "..." du client "..." est arrivée à échéance" ; "La facture n° "..." du client "..." arrive bientôt à échéance".

J'ai tenté de faire un code VBA en m'aidant d'un exemple mais le résultat n'est toujours pas là...

Si quelqu'un pourrait me venir en aide ce serait génial ! Merci d'avance.

[halaster08]

J'ai tenté de faire un code VBA en m'aidant d'un exemple mais le résultat n'est toujours pas là...

Si quelqu'un pourrait me venir en aide ce serait génial !

La plupart des gens n'ouvrent pas les pièces jointes surtout au premier post: http://www.developpez.net/forums/d84...s-discussions/

Montre nous ton code et explique ce qui ne marche pas.

[Florine26]

Voici le code est l'erreur qui s'affiche.

[halaster08]

Arrive-tu a lire ton code sur l'image? Moi non.
Copie ton code avec la balise code (bouton #), ce sera beaucoup plus lisible.
Peux tu aussi préciser a quelle ligne cette erreur apparait? (si besoin lancer le code en pas à pas via F8)

Une petite remarque je ne sais pas combien de message tu t'attends a avoir a chaque fois mais admettons que tu en ai 10, tu vas devoir dire ok aux 10 messages. Il me semblerait plus judicieux de concatener les textes des messages (avec un saut de ligne) dans la boucle, et ne faire qu'un seul msgbox a la fin.
edit: en fait c'est déjà ce que tu avais fait j'avais vraiment du mal à lire ...

[unparia]

Bonjour
Le message d'erreur reçu est clair : l'objet utilisé d'une collection n'existe pas.
Il est vraisemblable que la collection Worksheets n'abrite pas un objet WorkSheet (une feuille, donc) nommé exactement "N°"
Attention : un simple caractère espace en plus ou en moins fait qu'une chaîne de caractère est différente.

[Florine26]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
Private Sub Workbook_Open()
Dim Cel As Range
Dim Ecart As Long
Dim Msg As String
    With Worksheets("N°")
        For Each Cel In .Range("J6:J" & .Range("A" & Rows.Count).End(xlUp).Row)
            If DateDiff("d", Now, Cel.Value) < 0 Then
                Ecart = 0
            Else
                Ecart = DateDiff("d", Now, Cel.Value)
            End If
            Select Case Ecart
            Case 1 To 38
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " arrive à échéance dans " & Cel.Offset(0, 1) & " jours." & Chr(10)
            Case 0
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " a atteint ou dépassé l'échéance." & Chr(10)
            End Select
        Next Cel
        MsgBox Msg
    End With
End Sub

L'erreur se produit dès le début à "With Worksheets("N°")"

[unparia]

L'erreur se produit dès le début à "With Worksheets("N°")"

Ce qui ne fait que confirmer ce que j'ai écrit dans mon message précédent.

[Florine26]

Oui j'ai réussi à corriger cette erreur mais me voilà encore coincée à la ligne suivante...je suis novice en VBA

Non pardon, je me retrouve coincée à la ligne "If" la première

[unparia]

Quand comptes-tu commencer à dire quel est le message d'erreur reçu ?
Nonobstant, je peux deviner qu'il s'agit de l'erreur 13 (incompatibilité de type) et qu'elle est due au fait que la cellule cel en cause lorsque tu reçois ce message n'est pas une date (ni même un numérique).
Tu ne penses tout de même pas (sait-on jamais) que ce forum à vocation de corriger, l'une après l'autre, toutes les lignes de code que tu écris ? Rassure-moi.

[Menhir]

Quand tu as un bug, le minimum est de donner :
- le dernier code
- la ligne sur laquelle se produit cette erreur
- le message de cette erreur.

[Florine26]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Workbook_Open()
Dim Cel As Range
Dim Ecart As Long
Dim Msg As String
    With Worksheets("Facture")
        For Each Cel In .Range("J6:J" & .Range("A" & Rows.Count).End(xlUp).Row)
            If DateDiff("j", Now, Cel.Value) < 0 Then
                Ecart = 0
            Else
                Ecart = DateDiff("j", Now, Cel.Value)
            End If
            Select Case Ecart
            Case 1 To 38
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", Facture " & Cel.Offset(0, -7) & " arrive à échéance dans " & Cel.Offset(0, 1) & " jours." & Chr(10)
            Case 0
                Msg = Msg & "La facture " & Cel.Offset(0, -4) & " pour " & Cel.Offset(0, -6) _
                & ", N° " & Cel.Offset(0, -7) & " a atteint ou dépassé l'échéance." & Chr(10)
            End Select
        Next Cel
        MsgBox Msg
    End With
End Sub

Erreur 13 : incompatibilité de type, j'ai mis la ligne sur laquelle se produit l'erreur en gras.

[halaster08]

L'aide sur datediff:
https://msdn.microsoft.com/fr-fr/lib...(v=vs.90).aspx
Je pense qu'il ne reconnait pas ton "j", c'est plutôt "d", non?

edit: d'ailleurs c'était "d" dans le code précédent, pourquoi ce changement?

edit2: si tu utilise la fonction excel datedif(date1,date2, periode) (attention: différente de celle vba 1 seul f dans le nom et la periode a la fin)
Tu obtiens un nombre ou une erreur?

[unparia]

Ce qui me "chiffonne" personnellement le plus dans cette affaire, c'est (à la fois) :
- le titre donné à cette discussion, à savoir :

Insertion de MsgBox

et cette confirmation, à savoir :

Je viens chercher de l'aide sur ce forum car je souhaiterais insérer une "alerte/rappel" par MsgBox qui se déclencherait à l'ouverture du fichier, un peu avant la date de chaque relance a effectué (5 jours avant).

qui montre bien la difficulté à distinguer cause et effet.
Et on arrive finalement à quoi ? -->> à corriger des imperfections (l'une après l'autre) du code en amont même de la justification de l'affichage d'une msgbox.
Il m'arrive parfois de m'interroger sur le réel bénéfice (pour le demandeur) de ce genre d'aide et de corrections en amont alors qu'il ne voit, lui, qu'un problème en aval.
Il m'arrive de commencer à être un peu ... (comment le dire ?) ... assez "fatigué".
Je pense que je vais attendre quelques jours, que les choses et les attentes redeviennent plus "normales".

EDIT : à tous ceux qui ne comprendraient pas ma lassitude :
Que penseriez-vous de l'automobiliste qui vous déclarerait que son compteur de vitesse (ou de tours) reste immobile alors qu'il vous tairait (vous l'apprendriez plus tard) qu'il n'a même pas démarré ?
A bientôt (peut-être).