Erreur 5941

Salut,
Ça fait longtemps qu’on n’a pas parlé n’est ce pas. Bon j’espère que vous êtes en pleine forme et que toute marche bien chez vous, comme je vous félicite à l’occasion de la naissance de prophète Mohamed, sans oublier bien sur de vous remercier pour le soutien immesurable que vous m’avez apporté la dernière fois.
Bon mon nouveau problème est dans la comparaison des dates. J’ai une table dons j’ai mis un nombre important des enregistrements avec une colonne qui contient les dates associées à chaque enregistrement.
J’ai réussi à faire fonctionner mon code pour tous les dates entre 13 et 31 de chaque mois de chaque année mais de 01 jusqu’au 12 de chaque mois le code me donnes des résultats inattendus et parfois des messages incompréhensibles ; message de genre « Dépassement de capacité » paire que ça, parfois il me dit : « il n y a pas d’enregistrement » même qu’il y en a.
Mon code est de genre :

Private Sub Commande0_Click()
Dim dbs As Database
Dim strSQL As String
Dim rs As Recordset
Dim dat1, dat2 As Date

Set dbs = CurrentDb()
dat1 = Cdate(text1.Value)
dat2 = Cdate(text2.Value)

strSQL = "select * from une_table where date_enrg >= #" & dat1 & _
"# and date_enrg <= #" & dat2 & "#;"
Set rs = dbs.OpenRecordset(strSQL)
With rs
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
Ma_liste.AddItem rs.Fields(0)
rs.MoveNext
Loop
Else
MsgBox "Aucun enregistrement"
End If
End With
End Sub

Comme j’avais dis, ça marche pour toutes les dates entre 13 et 31 de chaque mois de chaque année mais pas pour les dates entre 01 et 12.
Merci pour votre patience.

Bon, le problème n'est pas encore résolu.
Je crois que les signets que vous vennez d'en parler sont à l'origine de problème.
Pour votre information, je développe mon application sous VBA (Visual Basic Access).
Merci de m'indiquer la façon de régler ses signets.

Bonjour ami,
C'est vraiment gentil de trouver quelqu'un qui s'intéresse à ses messages. Je vous remercie chaleureusement.
Comme vous avez dis, j'ai plusieurs lignes dans ma base, actuellement j'ai arrivé à 80 lignes presque.
Vous avez parlé d’Excel ! Je n’ai pas de problèmes d’employer Excel comme éditeur de sortie.
L’essentiel pour moi c’est de récupérer les enregistrements de mon recordset et les affichées dans un éditeur pour pouvoir les imprimés après.
Merci de me présenter un coup de main, au moins pour démarrer.

BONJOUR,
J'ai essayé le code que tu m'as envoyé mais quand je compile ile me génère une erreur de genre : "Membre de methode ou de donnée introuvable" dans la ligne suivant : "Set Book = EX.Workbooks.Add".
J'ai ajouter la réfèrence "Microsoft Excel 1,1 object librairy" mais sans vain.
ce que j'ai remarqué c'est que tu as déclaré "Book de type Workbook" et tu as utilisé la méthode Workbooks alors qu'il y a un autre type de genre "Workbooks" càd : je peux faire ce qui suit : " dim book as Workbooks"

Salut,
Bon j'ai Excel 2003. Et pour l'impression de la liste à partir d’Access, ce n'est pas pratique car la liste contient des milliers d'enregistrements et une fois imprimé à partir d’Access, je perde les données.
merci

Bonjour,
ça a l'aire de bien marcher mais il m'affiche une autre erreur comme quoi : "La methode sheet de l'objet "_Global" a échouée" code erreur : 1004

Bonjour,
Excuse-moi de dire que vous êtes en train de me parler chinoise. Je ne comprends plus rien sur toi. En tt cas pour le nom de la feuille Excel je l'ai fais dès hier mais sans vain. Je crois qu'il y avait un problème au niveau de compilateur. Ou bine qu'il ne comprend pas les instructions de transfère a cause d'un manque des directives ou notre code contient des erreurs fatales.
S’il vous y possible de détailler le code encore et encore plus, ainsi que l'astuce que vous venez de citer dernièrement, je serais très reconnaissant. Merci

Bonjour,
allez voir ce lien SVP : https://www.cjoint.com/?cmxAMbSDWk

Bonsoir,
Vous savez que sans vous je ne sais pas quoi faire vraiment. Je profite de cette occasion pour vous dire merci infiniment pour votre soutien et votre haute patience ainsi je tiens a vous remercie et a vous féliciter de votre parfaite pédagogie d’exprimer les choses.
J’aimerais bien vous informez ainsi que j’ai arrivé enfin à faire tourner le code et c’est grâce a vous bien sur.
Pour votre information, mon application est un petit modèle d’une GMAO qui traite pas mal des choses, commençant par les statistiques des arrêts et des interventions des machines, puis le calcul de leurs disponibilités, MTBF et MTTR arrivant sur l’affichages des état de la base des données et une partie consacré à la gestion des maintenances préventives … en général c’est tout un petit organe de gestion de service maintenance.
L’application est presque terminée et espérant que j’ai pu vous donner une approche de mon modeste travail, veuillez accepter mes expressions de mes salutations et de respect.

Bonjour,
Maintenant que j'ai terminé le développement de mon application, il m'y demandé de la partager dans un réseau de l'entreprise. J'ai protégé mon code VBA avec un mot de passe et j’ai introduit la notion des sessions de telle façon que personne ne peut pas accéder à la base sans le mot de passe de la base et celui de la session. Mais le problème c'est que une fois authentifier, celui là peut modifier ce qu'il veut sans aucune limite sauf le code VBA dont je garde moi même son code. J’ai essayé la réplication de ma base mais ça ne marche pas surtout que j'ai des procédures qui modifient la structure de ma base (création des requêtes avec les Querydefs).
Ce que je demande, c'est est ce qu'il y a une méthode qui permette d'interdire aux users de modifier les objets de la base sans les procédures.
Les objets rassemblent : les états, les formulaires, les tables, les requêtes.

salut,
Pour bien éclairer les choses, j’aimerais bien avoir un bouton commande, une fois cliquer je récupère les données de la liste et les transmettre à un fichier Excel.
merci pour votre aide.