Discussion :

[aminnio]

J'ai suivi les instructions comme dite rdurupt, mais rien n'y fait.

Erreur à ce niveau la : For I = 1 To Rec.Fields.Count
Erreur 91.

Il faut savoir que à chaque execution, j'ai l'erreur, mais en meme temps un fichier Classseur (i) est crée deriere, vide et non enregistré.

Je pense que le probleme viens du Rec qui n'est pas specifié en tant que type recordSet dans la declaration ...

[Invité]

Est-ce que le programme passe par OpenConnetion = True dans la fonction
Public Function OpenConnetion()
Si elle n'y passe pas remplace

Code :

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

1
2
3
4
Else
  ''MsgBox Err.Description
 
    End If

Par

Code :

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

1
2
3
4
Else
 MsgBox Err.Description
 
    End If

et refais un test

[aminnio]

J'explique grossomodo les erreurs actuelle:

• Dans un prmier temps,quand j'ai enlevé le commentaire comme demandé, j'ai maintenant ce message la : Fichier 'c:\Users\nom\AppData\Local\Temp\Temp2_test-ADODBRD.zip\Test-ADODBRD\Test-ADODBRD.mdb' introuvable.
  
• Dans un second temps; Erreur 91 à ce niveau la :

  Code :

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

  For I = 1 To Rec.Fields.Count

• Il crée à chaque fois que j'execute un nouveau classeur.
  

Voila ...
Avec la methode DAO, j'ai réussi à avoir le resultat voulu, mais c'est bricolé, le fichier ne peut etre ouvert directement apres compilation, sinon le format n'est pas reconnu. Et franchement je suis attiré par la methode que tu me proposes la, elle est + clean. Autant plus que je voudrais en apprendre plus sur l'ADO.

Donc ... si tu as des solutions pour le code que tu m'a proposé :/ , je ne comprends pas pourquoi ça marche chez toi et pas chez moi.

[Invité]

L’erreur est juste car tu as exécuté le fichier directement du Zip.
Donc tu n’as pas dézipé la base de données.
Il faut déziper le répertoire dans sa totalité sur le disque dur (sur le bureau par exemple)

[aminnio]

Correct...
Resulat propre, sans soucis.

Je fais le teste de tt ça, j'avance un peu sur ce code la.
J'avoue il est bien pratique et plus simple que ce que j'ai pu construire moi.

Je laisse la discussion ouverte au cas où j'ai des soucis. Si ça ne pose pas de probleme. Ton aide m'a été tres benefique, elle me le sera encore plus apres je pense !!!

First Question
A ce niveau la :

Code :

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

Set Rec = con.CloseRecordSet(RS)

le RS, il correspond à quoi?
Je sais qu'il est declaré au niveau de la classe du module, mais est'il possible de l'utiliser dans l'integralité du VBA Projet? car quand j'essaye de fermer une requete au niveau d'un userform par exemple, le RS est declaré comme non defini !
Merci !

[Invité]

Dim Rec est la déclaration d’un objet Variant.
Le RS n’est plus utilisé mon code a évolué en fonction du temps j’ai vue qu’il n’avait aucune utilité.
(Même les vieux ont le droit de changer d’avis).
L’instruction Set Rec = con.OpenRecordSet(SQL) a pour but lier la variable Rec à con.OpenRecordSet(SQL) dans la class.
En revanche tu peux faire Rec.Close set Rec= Nothing.

[aminnio]

Rebonjour !
Effectivement, j'ai opté pour le Rec.Close, plus pratique je pense.

Cependant, j'ai la meme erreur que tte à l'heure.

Maintenant, j'explique.
Sur un module, j'ai ce code la :

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
 
Public cnx As New ADODBRD
Public wrk As Workbook
Public rst
 
Public rep As String
Public sql As String
 
Public i As Integer
 
 
 
Sub connexion()
rep = ActiveWorkbook.Path
cnx.TYPEBASE = 4
cnx.Fichier = rep & "\bdxls.mdb"
End Sub

Ce code me permet d'etablie la connexion avec la BD une bonne fois pour toute.
La connexion fonctionne, car je teste le remplissage d'un combobox sur un userform, ça fonctionne à merveille.

Cependant, dés que je clique sur un bouton qui me permet de faire une requete sql parametré, et d'inserer les resultats de la requete sur le nouveau fichier crée, la meme erreur, au niveau du

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
Private Sub cmd_valider_Click()
Dim choix As String
choix = comboBox_conditions.Value
sql = "SELECT [table].[id], [table].[Name], FROM [table] WHERE [" & choix & "] > 0;"
Set rst = cnx.OpenRecordSet(sql)
 
Set wrk = Application.Workbooks.Add

'insert les en-tetes
For i = 1 To rst.Fields.Count    wrk.Sheets(1).Cells(1, i).Value = rst.Fields(i - 1).Name
Next i
 
'Ajout des données à partir de A2
wrk.Sheets(1).Range("A2").CopyFromRecordset rst
 
'Enregistrement en lecture seule
wrk.SaveAs rep & "\dossier\Test.xlsx", XlFileFormat.xlWorkbookDefault, , , True
End Sub

J'avoue que ça m'enerve, car tout ce deroulait bien, jusqu'à quand j'ai voulu au final appliquer ce code à mon programme.
Je comprends pas, au niveau du combobox ça fonctionne, mais quand j'ai voulu "cliquer", le rst n'est plus reconnu . . .

Si tu as des propositions...

It Work.
Le probleme venait du "As Value" dans la requete .