générer tableau excel a partir donées access Fermé

Question

Bonjour à tous !
J’ai un tableau sous excel que j’ai inséré dans access grace a plusieur tables .
Mon probleme est que je n’arrive pas a récuper toutes les données de mes tables et les retransférer sous excel et donc reformer mon tableau initial…(sachant que j’ai certains champs vides). Il faudrait que je mette un champs d’une table en colonne ; un champ comme 1ere ligne ; et le reste dans mon tableau !
Quelqu’un pourrait-il m’aider ?
Merci d’avance de me repondre… !

Utilisateur anonyme · Answer

Bonjour,Voilà, j'ai lu ton précédent message et a ce que je peux voir,tu n'as pas trouver pointure a ton pied !!!Donc tu as des tables sous Access que tu veux exporter sousExcel. Alors première étape, créer une requête qui te fournirales éléments voulu.Sous ACCESS ://Créer une nouvelle requête à l'aide de l'assistant//Sélectionner la(es) table(s) nécessaire(s)//Sélectionner le(s) champs à faire afficherN.B. Même une fois créé, tu pourra rajouter des tables/champs        dans la requête. De plus il est aussi possible de modifier        la requête par programmation sur des actions de l'utilisateur.// Menu Fichier / Exporter / Format XLSIl est fort probable qu'une mise en page soit nécessaire sousExcel, mais allons y un pas à la fois.N.B. Il est aussi fort possible qu'un formulaire accroché sur larequête fasse aussi l'affaire.Pour l'instant, il te faut créer une requête.Lupin

random · Answer

c'est faisable utiliser null et not null

Utilisateur anonyme · Answer

re:en effet, c'est possible. En fait peu importe la structure quetu veux, si tu as les données, le reste n'est qu'une mise enpage.Une requête peut pointer dans plusieurs table et sur plusieurschamps, a toi de choisir les données recherchées.Tu pourrais aussi construire ton tableau Excel avec plus d'une requête, en exportant plus d'une fois et en fusionnant lesfichiers Excel généré.Il y a toute une panoplie de possibilitées.Lupin

Utilisateur anonyme · Answer

re:oui c'est possible en VBA, on peut faire ce que l'on veut !il y a plein d'exemples pour piloter Excel depuis VB/VBA/VBS sur le net !en voici un :http://www.oricom.ca/lupin/document/excelvbs.txtLupin

Utilisateur anonyme · Answer

Salut,Voici donc un exemple de code a accrocher sur un boutond'un formulaire.Tu créé une routine dans la section [Module], sur un formulairetu place un bouton qui est accroché sur une procédure événementiel,et dans cette procédure, tu appelle la routine créé.Sub InitialiseExcel()    Dim xlApp, xlBook, xlRange As Variant             'Objets classeur    Dim xlWks, iRows, iCols, iRotate As Variant       'Objets feuille    Dim FichierXL As String    Dim Boucle, Cmpt As Integer    '    FichierXL = "C:\MonFichier.xls"    'Création de l'objet Excel (main mise sur !)    Set xlApp = CreateObject("Excel.Application")    'Création de l'objet [Fichier Excel]    Set xlBook = xlApp.Workbooks.Open(FichierXL)    'Création de l'objet [Feuille] du classeur Excel.    Set xlWks = xlBook.Worksheets(1)    'Création de la plage permise dans la feuille Excel.    Set xlRange = xlWks.Range("A1:A65535")    DoCmd.GoToRecord , , acLast    Cmpt = Forms![MonFormulaire].Recordset.RecordCount    DoCmd.GoToRecord , , acFirst        For Boucle = 1 To Cmpt        xlRange.Cells(Boucle, 1).Value = Forms![MonFormulaire].[Champs1]        xlRange.Cells(Boucle, 2).Value = Forms![MonFormulaire].[Champs2]        xlRange.Cells(Boucle, 3).Value = Forms![MonFormulaire].[Champs3]        DoCmd.GoToRecord , , acNext    Next Boucle    DoCmd.GoToRecord , , acFirst    xlApp.Visible = True    xlWks.Activate    xlRange.Cells(1, 1).Select    xlApp.DisplayAlerts = False    xlBook.SaveAs FichierXL    xlApp.Quit    xlApp.DisplayAlerts = True    Set xlRange = Nothing    Set xlWks = Nothing    Set xlBook = Nothing    Set xlApp = Nothing       MsgBox "Fin du travail"End SubVoilà, ceci devrait te fournir un bon point de départ !Lupin

Utilisateur anonyme · Answer

Salut,J'ai créé une table access que j'ai nommé [ MaTable ], ayantpour champs [ Champs1 - Champs2 - Champs3 ].J'ai créé une requête que j'ai nommé [ MaRequete ], celle-cirécupère tous les enregistrements de ma table.J'ai créé un formulaire que j'ai nommé [ MonFormulaire ].Donc, le formulaire pointe sur la requête et la requête pointesur la table.J'ai placé un bouton sur mon formulaire que j'ai accrochéa une procédure événementiel.Private Sub cmd_Execute_Click()    Call Fonctions.InitialiseExcelEnd Sub'Afin de renseigner la propriété [RecordCount]DoCmd.GoToRecord , , acLast 'Capture le nombre d'enregistrementCmpt = Forms![MonFormulaire].Recordset.RecordCount 'Retourne au premier enregistrementDoCmd.GoToRecord , , acFirst ' Boucle sur tous les enregistrementsFor Boucle = 1 To Cmpt   'Place en position [Boucle,1] la valeur du premier champs  xlRange.Cells(Boucle, 1).Value = Forms![MonFormulaire].[Champs1]   'Place en position [Boucle,1] la valeur du second champs  xlRange.Cells(Boucle, 2).Value = Forms![MonFormulaire].[Champs2]   'Place en position [Boucle,1] la valeur du troisième champs  xlRange.Cells(Boucle, 3).Value = Forms![MonFormulaire].[Champs3]   'Enregistrement suivant  DoCmd.GoToRecord , , acNext Next Boucle 'Retourne au premier enregistrementDoCmd.GoToRecord , , acFirst 'Fermeture de Excel'Rend Excel visiblexlApp.Visible = True'Active le classeur xlWks.Activate 'Positionnement en [ A1 ]xlRange.Cells(1, 1).Select'Message d'erreur en arrêt xlApp.DisplayAlerts = False'Sauvegarde du fichier Excel créé. xlBook.SaveAs FichierXL 'Ferme l'application ExcelxlApp.Quit'Message d'erreur actifxlApp.DisplayAlerts = True 'Libération des variablesSet xlRange = Nothing Set xlWks = Nothing Set xlBook = Nothing Set xlApp = Nothing MsgBox "Fin du travail" Lupin

Utilisateur anonyme · Answer

re:Sous acces, lorsque tu ouvre ta base, tu vois les objetssuivants dans la colonne de gauche.TablesRequetesFormulairesÉtatsPagesMacrosModulesRend toi à la section [ Modules ]Crée un nouveau module et colle-y la procédure Sub InitialiseExcel()Maintenant, par défaut le nom du nouveau moduleest [ Module1 ], soit tu le renomme, soit tu appellerasla procédure par :Call Module1.InitialiseExceldans mon exemple, je renommer le module par [ Fonctions ]d'ou mon exemple : Call Fonctions.InitialiseExcelmaintenant, dans ton formulaire, si tu as rajouter le bouton,dans les propriétés [ OnClic ] -> procédure événementiel ->tu y place :Call Module1.InitialiseExcelouCall Fonctions.InitialiseExcelça devrait tourner comme ça!Lupin

jack · Answer

Je commence a comprendre doucement mais surment!J'ai créer donc le module que tu m'as di mais lorsque je clic sur le bouton, il ne me reconait pa les lignes de code suivante :DoCmd.GoToRecord , , acNext Next Boucle 'Retourne au premier enregistrementen supriman "Next Boucle 'Retourne au premier enregistrement" cela marche!'Libération des variablesSet xlRange = Nothing Set xlWks = Nothing Set xlBook = Nothing Set xlApp = Nothingla ligne ci dessus non plus n'est pas reconnu...Ta une idée de ce qui ne va pa? (moi pa du tt lol)Merci bcq!!

Utilisateur anonyme · Answer

re:j'ai déposé l'exemple que j'ai construis ici :http://www.oricom.ca/lupin/document/piloterexcel.zipRegarde le tout, chez moi ça fonctionne nickel !Lupin

jack · Answer

Mici bcq ca marche!Sauf que je voudrais que en appuyant sur le bouton cela me crée une nouvelle feuille dans le fichier excel défini (pour comparer la feuille ou il y a le tableau initial avec la nouvelle feuille créée en fonction des données entrées par l'utilisateur)Alor que la ca minssere tout dans la mm feuille!Quelle ligne de code dois-je rajouter pour faire ceci?Mici de ton aide

Utilisateur anonyme · Answer

re:Pour ajouter une feuille a chaque exécution :Modifier les lignes suivantes :   'Création de l'objet [Feuille] du classeur Excel.   Set xlWks = xlBook.Worksheets(1)par :   'Création de l'objet [Feuille] du classeur Excel.   xlApp.ActiveWorkbook.Worksheets.Add   Set xlWks = xlBook.ActiveSheetLupin

jack · Answer

Slt!Merci pour ton code ca marche nickel c super!Mais j'ai encore quelque prob :Comen faire pour laisser ouvert le fichier excel apres avoir cliqué sur le bouton? (car actuelement apres avoir cliqué sur le bouton le tableau est créer mé le fichier excel se referme et je dois louvrir manuelement)et j'ai un probleme o niveau de la mise en page du tableau, je voudrais que le Champs1 forme la 1ere colone, le Champs2 la 1er ligne et le champs3 le centre de mon tableau (reste)...Comment pourrais-je faire ceci automatiquement (en cliquant sur mon bouton) ?(actuelement  ca met champs1 1ere colone; champs2 2eme col; champs3 3eme col)Merci de ton aide (et dsl detre ossi nul en vba lol)a+

Utilisateur anonyme · Answer

Salut,Pour la fermeture , ça se passe ici :'Fermeture de Excel'Rend Excel visiblexlApp.Visible = True'Active le classeur xlWks.Activate 'Positionnement en [ A1 ]xlRange.Cells(1, 1).Select'Message d'erreur en arrêt xlApp.DisplayAlerts = False'Sauvegarde du fichier Excel créé. xlBook.SaveAs FichierXL 'Ferme l'application ExcelxlApp.Quit'Message d'erreur actifxlApp.DisplayAlerts = True La ligne qui ferme Excel est la suivante :'Ferme l'application ExcelxlApp.QuitPour la mise en page, je ne peux te pondre ça la tout de suite.Je te rapporte quelques lignes plus tard !Lupin

jack · Answer

ok merci (c t tt con le truc pour garder le fichier excel ouvert!) jcomprend mieu mintenan!!Pour la disposition du tableau (champs1 1ere col; champs2 2eme col; champs 3 le milieu du tablo), j'arrive a le faire en manuel (formulaire-nouvo-Assistant tableau croisé dynamik) mais ce que je veux c automatiser cela ; dc par code ce que jarive pas snif!Mici bcq de ton aide!+++

Utilisateur anonyme · Answer

Re:la, je suis pas sur ! En somme une fois le tableau Excel créé,tu crées un tableau dynamique croisé avec le résultat etcette mise en page te convient ?bien entendu, il est possible par VBA de créer un tableaudynamique croisé. Est-ce bien cela, la création d'un tableaudynamique croisé fera ce que tu cherche ?Lupin

jack · Answer

Ben en fait faire un tableau croisé dynamique me permet davoir un tableau avec la mise en forme que je souhaite ( mé je dois assigner manuelemen chacun de mes 3 champs dans la 1ere ligne, 1ere colone et o centre du tableau) dc manuelemen jarive a faire cke je veu...Cependant j'aimerais automatiser cete tache c a dire par code dire que le champs1 je veux kil constitue la 1ere colone de mon tableau, le champs2 la 1ere ligne et le champs3 le cendre de mon tableau.Tu as compris ou je veu en venir? C possible de faire cela par code?Merci de ton aide...

Utilisateur anonyme · Answer

re:voici un exemple :Sub InitialiseExcel()    Dim xlApp, xlBook, xlRange As Variant             'Objets classeur    Dim xlWks, iRows, iCols, iRotate As Variant       'Objets feuille    Dim FichierXL As String    Dim Boucle, Cmpt As Integer    '    FichierXL = "C:\MonFichier.xls"    'Création de l'objet Excel (main mise sur !)    Set xlApp = CreateObject("Excel.Application")    'Création de l'objet [Fichier Excel]    Set xlBook = xlApp.Workbooks.Open(FichierXL)    'Création de l'objet [Feuille] du classeur Excel.    xlApp.ActiveWorkbook.Worksheets.Add    Set xlWks = xlBook.ActiveSheet    'Création de la plage permise dans la feuille Excel.    Set xlRange = xlWks.Range("A1:A65535")    DoCmd.GoToRecord , , acLast    Cmpt = Forms![MonFormulaire].Recordset.RecordCount    DoCmd.GoToRecord , , acFirst        For Boucle = 1 To Cmpt        xlRange.Cells((Boucle + 1), 1).Value = Forms![MonFormulaire].[Champs1]        DoCmd.GoToRecord , , acNext    Next Boucle        DoCmd.GoToRecord , , acFirst    For Boucle = 1 To Cmpt        xlRange.Cells(1, (Boucle + 1)).Value = Forms![MonFormulaire].[Champs2]        DoCmd.GoToRecord , , acNext    Next Boucle        DoCmd.GoToRecord , , acFirst    For Boucle = 1 To Cmpt        xlRange.Cells((Boucle + 1), (Boucle + 1)).Value = Forms![MonFormulaire].[Champs3]        DoCmd.GoToRecord , , acNext    Next Boucle        DoCmd.GoToRecord , , acFirst    xlApp.Visible = True    xlWks.Activate    xlRange.Cells(1, 1).Select    xlApp.DisplayAlerts = False    xlBook.SaveAs FichierXL    'xlApp.Quit    xlApp.DisplayAlerts = True    Set xlRange = Nothing    Set xlWks = Nothing    Set xlBook = Nothing    Set xlApp = Nothing       MsgBox "Fin du travail"End SubLupin

jack · Answer

Slt! merci pour ton code il marche bien, c t exactement ce que javé besoin! Mais il reste n derniere petit détail :en fait dans mon champs2 joré une série de chiffre (de 1 a 52) et je voudrais que lorsqu'on crée le tableau, les différents chiffres soient classés par ordre croissan...C possible? Quesque t'en pense?Merci de ton aide +++

jack · Answer

Hello! en testant mon appli access je me suis rendu compte d'un probleme : en fait il est possible qu'il y é plusieur fois les mm valeur dans le champs1 et le champs2 , et que seule la valeur du champs3 différe...Quand je génére le tableau sous excel, il me rajoute une ligne lorsque les champs1 et 2 st les mm (cki me fait un tableau un peu fouilli)Tout ceci, c'est parce que mon champs1 c le num de la semaine ; le champs2  un travail précis et le champs3 une case a cocher (qd le travail é fait). Or, il peu arriver qu'un mm travail soit fait a plusieurs semaines (ex sem 1-15-50) dc il faudrai que lorsque je génére le tableau sous excel, dans le k ou un travail a été fait plusieur fois a plusieur semaine d'intervalle que cela reste sur une ligne (ex:                                                semaine1                    5             15changement charbons moteur              oui                         oui            ouiAvez vous compris? Suis je assez clair?Es-il possible de remédier a ce probleme?Merci de votre aide

Utilisateur anonyme · Answer

Salut,de simple requête dans access te permettrons de gérertout ça. Ordre croissant, dédoublement de valeur !en fait je ne vais pas coder tout ton appli. Je te donne desexemples pour te mettre sur la piste mais je ne peux fairele travail pour toi !Lupin

jack · Answer

Slt pr le classement par ordre ca c bon mé c pr le probleme de dédoublemen la j'ai besoin daide...Comen je peux faire?mici de ton aide a+

jack · Answer

Slt lupin! Dans mon appli il me reste a regler le probleme des dédoublemen de valeurs, ca je ne c pa tro comen faire...
Par contre je n'ai plus ton adresse pr tenvoyer mon appli...
Tu pouré me la redonner stp?
merci a+

Générer tableau excel a partir donées access

22 réponses