Discussion :

[modus57]

Bonjour le forum.

J’ai trouvé la réponse sur ce lien :
http://access.developpez.com/sources...=dev#ImprimRqt

Mais si J’exécute le code cela ne fonctionne pas ??

Qui pourrait m’expliquer pourquoi, faut-il placer le code dans l’événement d’un bouton de commande d’un formulaire ???

@ +

[Gabout]

Bonjour Modus57

Il faut bien que tu puisses commander l'exécution de ton code...

Par ailleurs, question bête "As-tu déclaré Microsoft Scripting Runtime et Microsoft DAO Object Library ?"

[Dolphy35]

Bonjour,

Bonjour le forum.

J’ai trouvé la réponse sur ce lien :
http://access.developpez.com/sources...=dev#ImprimRqt

Mais si J’exécute le code cela ne fonctionne pas ??

Qui pourrait m’expliquer pourquoi, faut-il placer le code dans l’événement d’un bouton de commande d’un formulaire ???

@ +

Tu ne peux pas exécuter le code tel quel tu es obligé de faire un appel car le code à besoin d'un paramètre (strFichier), sinon tu remplace dans le code strFichier par le chemin et non du fichier à générer :

exemple : "C:\Users\Dolphy\Documents\Access"

Dolphy

[modus57]

Bonsoir Dolphy35, Gabout.

Oui « Microsoft Scripting Runtime et Microsoft DAO Object Library ?" sont bien déclarés.

J’ai bien remplacé dans le code "strFichier" par le chemin et non du fichier à générer.

Mais la procédure ne peut-être exécutée car elle n’apparaît pas dans la fenêtre « Macros ».

Par contre si je supprime « strFichier » dans le nom de la Sub ImprimeListeRequêtes(strFichier As String) la procédure est visible dans la fenêtre « Macros ». Elle s'exécute incorrectement et passe directement à la boîte de message "Une erreur est survenue.">.

J’éprouve quelques difficultés à comprendre, pourriez-vous m’expliquer SVP.

@ +

[Dolphy35]

Salut,

Comment veux-tu éxecuter le code :

sur un bouton, manuellement ?

Dolphy

[modus57]

Re bonsoir.

Sur un bouton de commande si possible.

@ + modus57

[Dolphy35]

Salut,

Il te suffit de copier le code de Tofalu dans un nouveau module, ensuite sur la procédure événementielles "Sur Click" tu fais un appel de la procédure en passant comme paramètre le chemin et non du fichier à générer :

Code :

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

1
2
3
Private Sub MonBouton_Click()
SauvegarderRqt ("C:\Users\Dolphy\Documents\Access\test.txt")
End Sub

ceci est un exemple.

Dolphy

[modus57]

Bonsoir Dolphy35.

Cela fonctionne nickel chrome, merci pour la réponse que tu as apporté sur ce sujet.

Une dernière petite question, pour lister les tables, formulaires, modules ect ... est-ce trop simpliste de remplacer "DAO.QueryDef" par "DAO.TableDefs" par exemple.

modus57

[Dolphy35]

re,

Désolé mais ce ne sera pas aussi simple.

Que veux-tu récupérer exactement ?

Sinon esseye le Menu Outils Analyse Documentation.

Dolphy