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.