Discussion :

[malingue]

Bonjour,

Dans le cadre de l'export vers excel d'un formulaire complaxe, je n'ai pas trouvé de solution qui marche.

Pourtant "à la main j'arrive tres bien à faire ce que je veux".

Je fais:
- "Edition / selectionner tout les enregistrements"
- Copier
- Je selectionne ma feuille excel
- coller

y a t'il un moyen d'ecrir en code ces trois lignes?

(sachant que "Output to" ne convient pas car il crée forcement un nouveau fichier) et que "TransferSpreadsheet"; "OpenRecordset" et "CopyFromRecordset" ne marchent pas car exporte des table ou des requete mais pas le contenu d'un formulaire.


Seule le bon vieux copier-coller à l'aire de marcher mais je ne sais pas comment l'automatiser ....

(sinon je vais en etre reduit a essayer:

Code :

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

Recordset = ctr+V

Merci!

Guillaume

[DelphiManiac]

En partant du principe que le formulaire est en affiche continu, donc que l'on peut sélectionner tout les enregistrements.

Poser un bouton sur le formulaire et sur l'évènement click, coller le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande6_Click()
  Dim e As Excel.Application
  Dim w As Excel.Workbook
 
  DoCmd.RunCommand acCmdSelectAllRecords
  DoCmd.RunCommand acCmdCopy
  Set e = New Excel.Application
  Set w = e.Workbooks.Add
 
  e.Visible = True
  e.ActiveSheet.Paste
End Sub

Il faut auparavant ajouter la référence à la bilbiothèque excel. Dans la fenetre de code, ouvrir le menu outils/références, rechercher la ligne "microsoft excel xx.x object library"

Le code est a paufiner bien sur, mais il fait a priori le minimum nécessaire demandé.

[Nohant]

Salut,

Les données de ton formulaire viennent d'où ? d'une table, d'une requête ?

Les informations affichées dans le formulaire sont bien stockées quelque part et il est bien possible de les extraire selon certains critères ?

[DelphiManiac]

Je suis parti du principe que les données provenaient d'une table ou d'une requete, peu importe, et étaient affichées dans un formulaire en mode continu.

[malingue]

Youpi!!

CA marche!

Merci!

[DelphiManiac]

Ca fait toujours plaisir quand ca marche

[malingue]

Maintenant, plus difficile...


J'arrive bien à copier le formulaire principal,

J'aimerai faire la meme chose avec les données du sous formulaire;

J'ai mis une instruction:

Code :

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

1
2
 
Me.P_SUB_BOOKING.SetFocus

pour selectionner le sous formulaire, mais du coup lorsque je lui demande de faire

Code :

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

DoCmd.RunCommand acCmdSelectAllRecords

il me met un message d'erreure "la commande ou l'action selectionner tous les enregistrement n'est pas disponible pour l'instant"

J'ai essayer de mettre le focus sur n champ interne du sous formulaire, mais il ne comprend pas...

[DelphiManiac]

Ce message d'erreur est lié au fait que le sous formulaire n'est pas en mode continu ou en mode feuille de donénes, mais en mode "formulaire unique", donc tout les enregistrements ne peuvent etre sélectionnés et copiés.

[malingue]

bas non...

aussi bien mon formulaire principale que mes sous formulaires sont en mode continu (et les sous formulaires contiennet parfois plusieur dizaines de lignes)

par contre les sous formulaires sont sur des onglets.

J'ai l'impression que c'est un probleme de focus, ou de truc comme ca...