Impressionant !
10/10 !

Salut
C'est exact, il serait plus judicieux d'utiliser plutôt :
"Select Case cTempdbType "
('Select Case dbType' fait appel à la méthode Get dbType, et par conséquent il vaut mieux utiliser la variable locale cTempdbType)

Et en effet, il ne faut pas oublier non plus d'ajouter la reférence Microsoft ActiveX Data Objects 2.8 Library.

Ce module de classe est vraimment tout bête, dans l'appli que j'avais développé, il permettait juste de ne pas avoir à modifier le code du programme si l'utilisateur souhaite changer le type de la base de donnée.

J'ai aussi volontairement utilisé le même nom que les fonctions standard de ADO (Execute et OpenRecordSet) ce qui limite le nombre de modifications à effectuer dans le programme.
(déclarer la base de donnée en "New ClsDatabase" au lieu de "DataBase", déclarer les recordsets en "New ADODB.Recordset" au lieu de "Recordset", et enfin définir les paramètres de connexion à la base de donnée)

Dans le programme

Pour Déclarer la base :

Dim pBase as New ClsDatabase



Pour Affecter les variables (dbPath, dbDriver...) :

pBase.dbType = "ACCESS"  ou pBase.dbType = "AUTRE"
pBase.dbPath = Mon_Chemin
...



Pour Ouvrir la connexion :

pBase.Connexion



Pour Ouvrir un recordset :

Set Recordset = pBase.OpenRecordset("Select * from..")




Pour Executer une requête SQL simple :

pBase.Execute "Update ..."



Pour Fermer la connexion :

pBase.Fermeture

Je me suis permis de modifier/simplifier ta source selon mes besoins.
celle-ci permet maintenant de se connecter soit à une base Access, soit une autre base.

j'ai créé un type dans mon module normal :


********************************************************
Type ParamètreConnexionADODB
    Path As String
    Type As String
    Provider As String
    User As String
    Password As String
    DataSource As String
End Type
Public pdbParamètreConnexion As ParamètreConnexionADODB
********************************************************

pdbParamètreConnexion  contient donc tous les paramètres de connexion (qui sont définis dans le programme, et enregistrés dans la base de registre)

ce module de classe permet juste de renvoyer un recordset, ou exécuter une requete simple.

dans le programme il suffit de déclarer la base :
********************************************************
Public pdbArticle As cDataBase
Set pdbArticle = New cDataBase
pdbArticle.Connexion
********************************************************

et les recordsets :
********************************************************
Dim xrec1 As New ADODB.Recordset
set xrec1 = pdbArticle.OpenRecordset ("Select * from ..")
********************************************************

et pour fermer la base :
********************************************************
pdbArticle.Fermeture
********************************************************







Code à copier dans le module de classe : (cDataBase.cls)


Option Explicit

' /// Variables pour la Connexion ADODB /////////////////////////////////////////////////////////////////////////////////////////
Private pdbConnection As New ADODB.Connection
Private pdbRecordsetADO As New ADODB.Recordset


' /// Ouverture de la Base de Données /////////////////////////////////////////////////////////////////////////

Public Sub Connexion(dbPath As String)
On Error GoTo Connexion_Error

    Select Case pdbParamètreConnexion.Type
        Case "ACCESS"
            pdbConnection.Provider = pdbParamètreConnexion.Provider
            pdbConnection.ConnectionString = dbPath
            pdbConnection.Open
        Case "AUTRE"
            pdbConnection.Open "Provider=" & pdbParamètreConnexion.Provider & ";Password=" & pdbParamètreConnexion.Password & ";User ID=" & pdbParamètreConnexion.User & ";Data Source" & pdbParamètreConnexion.DataSource
    End Select
  
    On Error GoTo 0
    Exit Sub

Connexion_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Connexion dans Module de classe cDataBase", vbCritical
End Sub


' /// Envoi du RecordSet //////////////////////////////////////////////////////////////////////////////////////

Public Function OpenRecordSet(dbSQL As String, Optional dbOption) As ADODB.Recordset
On Error GoTo OpenRecordSet_Error

    If dbSQL <> "" Then
        pdbRecordsetADO.CursorLocation = adUseClient
        pdbRecordsetADO.CursorType = adOpenDynamic
        pdbRecordsetADO.LockType = adLockOptimistic
        pdbRecordsetADO.Open dbSQL, pdbConnection
        Set OpenRecordSet = pdbRecordsetADO
        Set pdbRecordsetADO = Nothing
    End If
    
  
    On Error GoTo 0
    Exit Function

OpenRecordSet_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure OpenRecordSet dans Module de classe cDataBase", vbCritical
End Function

' /// Exécution d'une Requête SQL /////////////////////////////////////////////////////////////////////////////

Public Sub Execute(xSQL As String)
On Error GoTo Execute_Error

    pdbConnection.Execute xSQL
  
    On Error GoTo 0
    Exit Sub

Execute_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Execute dans Module de classe cDataBase", vbCritical
End Sub



' /// Fermeture de la connexion avec la Base de Données ///////////////////////////////////////////////////////

Public Sub Fermeture()
On Error GoTo Fermeture_Error

    pdbConnection.Close
    Set pdbConnection = Nothing
  
    On Error GoTo 0
    Exit Sub

Fermeture_Error:

    MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans la procédure Fermeture dans Module de classe cDataBase", vbCritical
End Sub

Ca a l'air pas mal!
Je n'ai pas encore eu le temps de regarder plus préçisement (j'en ai pas l'utilité pour le moment).
Mais je t'ai quand même noté 10/10.
;-)

:-)

En fait j'ai crée un modèle par type de document (carte de visite / entete de lettre / Enveloppe..)
et je souhaitais pouvoir remplir ce modèle à partir de mon programme (remplacer NOM par TOTO , PRENOM par JEAN...)
et pour cela j'ouvre le fichier grâce à ta méthode Ouvre et je modifie le texte dans la ListeAtion.

J'ai essayé de passer par ta classe  clsSPR mais ca ne fonctionnait pas (erreur type utilisateur non reconnu..)
mais la façon dont je procède me convient trés bien :-)

Pour les etiquettes oui c'est trés simple, une simple boucle suffit (en gérant la position X Y)

;-)

En fait c'est bon j'ai trouvé. et c'est tout bête. suffit de remplir la liste "ListAction", d'enregistrer ca dans le fichier avec la méthode "Sauve" et de lancer "ouvre" :-)

Franchement c'est excellent ton programme, ton code est propre. bravo encore !

Par contre j'aimerais utiliser ton programme pour imprimer des cartes de visites..etc..
donc rentrer en paramètre les valeurs des champs(nom prenom adresse..)
j'ai essayé de créer un modele (fichier .spr) en mettant les intitullés des champs ("NOM" "PRENOM"..) et en les modifiant ensuite directement dans le fichier mais cela ne fonctionne pas.
Donc en clair aurais tu une idée pour me permettre de faire ce que je souhaite?
Créer un modele d'etiquette avec les intitulés des champs
et le modifier lorsque qu'on clique sur imprimer à partir d'une fiche en y mettant les valeurs des champs.

Merci d'avance.

Bravo !
C'est pas mal du tout ce petit prog.
Je cherchais justement quelque chose du genre et ayant deja eu l'occasion d'imprimer des documents complexe en vb "à la main", je n'avais pas envi de recommencer... alors merci !