XL 2013 résolus erreur code

[gena]

bonsoir le forum
voila mon petit soucis encore une fois
Thierry ma aidé a faire un userform pour une basse client tout fonctionne rien a dire
mais voila je recherche a mettre un mgbox pour les date anniversaire a l'ouverture du dossier de ses clients de ma base
j'ai essayé un petit code dans le THISWORKBOOK qui fonctionne pas
ni dans un module 1
si vous pouvais m'aidé cela serait génial
avec tout mes remercîments

 

[Phil69970]

Bonsoir Gena

Dans ==> Thisworkbook
Rajouter après :
Dim Cell As Range

==> Worksheets("basededonnéespatient").Select

Remplacer
==> With Worksheets("Feuil8")

Par :
==> With Worksheets("BaseDeDonnéesPatient")

Et supprimer le module1

@Phil69970

 

[gena]

bonsoir merci Phil
j'ai déjà essayé cela fonctionne pas
voila pourquoi je venait trouvé ici une solution

 

[Phil69970]

Gena ==> J'ai modifié ma réponse

Voir fichier

 

[gena]

merci PHIL bien j'avais presque trouvé a un poil prés
encore merci infiniment

 

[Phil69970]

Gena

Si ça peux aider d'autres personnes, n'oublie pas de passer le sujet en résolu.

@Phil69970

 

[gena]

OK MERCI encore