A voir également:
- Export de requête Access 97 vers Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Windows 7 vers windows 10 - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
DaNot
Messages postés
221
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
4 novembre 2005
163
9 juin 2004 à 11:07
9 juin 2004 à 11:07
Bonjour,
Oui, c'est possible. Pour cela, tu dois créer une application Excel de type ActiveX avec la commande CreateObject. Tu disposes à ce moment là d'un pointeur sur une instance Excel que tu peux manipuler comme du VBA Excel.
Il te reste qu'à coller dans un nouveau classeur les données une à une (si il y une autre solution, je ne la connais pas ...) que tu veux retrouver sous Excel.
Aucun enregistrement n'est fait sur le disque. La demande d'enregistrement est faite lorsque tu fermes Excel !
J'ai quelques exemples dans ma besace...
DaNot
un Libre ouvert à la source...
Oui, c'est possible. Pour cela, tu dois créer une application Excel de type ActiveX avec la commande CreateObject. Tu disposes à ce moment là d'un pointeur sur une instance Excel que tu peux manipuler comme du VBA Excel.
Il te reste qu'à coller dans un nouveau classeur les données une à une (si il y une autre solution, je ne la connais pas ...) que tu veux retrouver sous Excel.
Aucun enregistrement n'est fait sur le disque. La demande d'enregistrement est faite lorsque tu fermes Excel !
J'ai quelques exemples dans ma besace...
DaNot
un Libre ouvert à la source...
Punaise je deviens fou!!! il doit y avoir une notion essentielle qui m'échappe, je ne comprends pas pourquoi mais quand je fais copier coller de ce code et que jkel'adapte à ma situation ca me met erreur 424 objet requis... quelqu'un pourrait m'aider s'il vous plait?
Merci beaucoup !!
J'ai cherché un peu de doc la-dessus. J'ai essayé aujourd'hui, ça marche nickel !!
J'ai cherché un peu de doc la-dessus. J'ai essayé aujourd'hui, ça marche nickel !!
Voici une fonction permettant d'exporter le résultat d'une requête ou le contenu d'une table, avec les titres des colonnes vers un fichier excel, et en choisissant le nom que portera ce fichier excel.
Lors du lancement de la fonction, une boite de dialogue permettra de saisir le nom choisi, (sans l'extension qui s'ajoutera automatiquement).
export ()
Dim Message as string
Dim Titre as string
Dim Nom as string
'Ouverture de la Macro MaMacro pour l'exportation vers Excel
DoCmd.RunMacro "MaMacro"
'Pour exporter une table, il faut remplacer la ligne précédentes par :
'Ouverture de la table MaTable pour l'exportation vers Excel
DoCmd.OpenTable "MaTable"
'Définit le message.
Message = "Entrez le nom du Fichier de Sortie"
' Définit le titre.
' Affiche le message, le titre et la valeur par défaut.
Titre = "Nom du fichier de sortie"
Nom = InputBox(Message, Titre)
'Exportation de la Table ou de la requête au format Excel 97, dans le répertoire D:\Personnel\
'avec pour nom : le nom saisi dans la boite de dialogue, suivi de la date du jour et de l'extension ".xls"
'Commande d'exportation de la table ou du résultat de la requête, (pour la requête, remplacer
'"MaMacro" par "MaTable"). Le chiffre 8 indique le format (Excel 97).DoCmd.TransferSpreadsheet acExport, 8, "MaMacro", "D:\Personnel\" & Nom Format(Date, "DDMMYYYY") & ".xls", True
End sub
Lors du lancement de la fonction, une boite de dialogue permettra de saisir le nom choisi, (sans l'extension qui s'ajoutera automatiquement).
export ()
Dim Message as string
Dim Titre as string
Dim Nom as string
'Ouverture de la Macro MaMacro pour l'exportation vers Excel
DoCmd.RunMacro "MaMacro"
'Pour exporter une table, il faut remplacer la ligne précédentes par :
'Ouverture de la table MaTable pour l'exportation vers Excel
DoCmd.OpenTable "MaTable"
'Définit le message.
Message = "Entrez le nom du Fichier de Sortie"
' Définit le titre.
' Affiche le message, le titre et la valeur par défaut.
Titre = "Nom du fichier de sortie"
Nom = InputBox(Message, Titre)
'Exportation de la Table ou de la requête au format Excel 97, dans le répertoire D:\Personnel\
'avec pour nom : le nom saisi dans la boite de dialogue, suivi de la date du jour et de l'extension ".xls"
'Commande d'exportation de la table ou du résultat de la requête, (pour la requête, remplacer
'"MaMacro" par "MaTable"). Le chiffre 8 indique le format (Excel 97).DoCmd.TransferSpreadsheet acExport, 8, "MaMacro", "D:\Personnel\" & Nom Format(Date, "DDMMYYYY") & ".xls", True
End sub
Bonjour,
Et ben ta réponse, Wawe, moi je dis que c'est une réponse de pro.
La plupart du temps quand on lit les messages des gens qui savent ce qu'ils racontent, on ne comprend encore rien à la dixième lecture. Des fois la onzième arrange les choses mais bon. Là, ta réponse on la comprend du premier coup. Simple et efficace ! Chapeau gars !
Merci !
Et ben ta réponse, Wawe, moi je dis que c'est une réponse de pro.
La plupart du temps quand on lit les messages des gens qui savent ce qu'ils racontent, on ne comprend encore rien à la dixième lecture. Des fois la onzième arrange les choses mais bon. Là, ta réponse on la comprend du premier coup. Simple et efficace ! Chapeau gars !
Merci !
Punaise je deviens fou!!! waves ou as tu placé ce code et qu'as tu ajouté d'autre pour que tout fonctionne? je suis un peu perdu j'avoue... il doit y avoir une notion essentielle qui m'échappe, je ne comprends pas pourquoi mais quand je fais copier coller de ce code et que jkel'adapte à ma situation ca me met erreur 424 objet requis... quelqu'un pourrait m'aider s'il vous plait?
Mon adresse mail est tristanvernay@hotmail.fr si vous préférez
Mon adresse mail est tristanvernay@hotmail.fr si vous préférez
