• S'inscrire
  • Affichage des résultats 1 à 6 sur 6

    Discussion: exporter table access sous ...

    1. #1
      hakim
      Guest

      Par défaut exporter table access sous ...

      svp comment exporter une table access sous forme *.xls ou *.dbf avec le code vb via une connection odbc et merci

    2. #2
      x_octet
      Guest

      Par défaut

      Exemple

      Pour pouvoir faire fonctionner Excel depuis Access, il faut intégrer à l'application la bibliothèque des objets du
      Tableur.


      Code:
      Function TransfertExcelAutomation()
      Dim xlApp As Excel.Application
      Dim xlSheet As Excel.Worksheet
      Dim xlBook As Excel.Workbook
      Fonction d'export via Automation
      Dim I As Long, J As Long
      Dim t0 As Long, t1 As Long
      t0 = Timer
      Dim rec As Recordset
      Set rec = CurrentDb.OpenRecordset("Clients", dbOpenSnapshot)
      'Initialisations
      Set xlApp = CreateObject("Excel.Application")
      Set xlBook = xlApp.Workbooks.Add
      'Ajouter une feuille de calcul
      Set xlSheet = xlBook.Worksheets.Add
      xlSheet.Name = "Tutoriel"
      ' le titre
      ' écriture dans la cellule de ligne 1 et de colonne 1
      xlSheet.Cells(1, 1) = "Export d'une table Access"
      ' les entetes
      ' .Fields(Index).Name renvoie le nom du champ
      For J = 0 To rec.Fields.Count - 1
      xlSheet.Cells(2, J + 1) = rec.Fields(J).Name
      ' Nous appliquons des enrichissements de format aux cellules
      With xlSheet.Cells(2, J + 1)
      .Interior.ColorIndex = 15
      .Interior.Pattern = xlSolid
      .Borders(xlEdgeBottom).LineStyle = xlContinuous
      .Borders(xlEdgeBottom).Weight = xlThin
      .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
      .HorizontalAlignment = xlCenter
      End With
      Next J
      ' recopie des données à partir de la ligne 3
      I = 3
      Do While Not rec.EOF
      For J = 0 To rec.Fields.Count - 1
      ' .Fields(Index).Type renvoie le type du champ
      ' si c'est un Texte (dbText) nous insérons "'" pour
      ' qu'il soit reconnu par Excel comme du Texte
      If rec.Fields(J).Type = dbText Then
      xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
      Else
      xlSheet.Cells(I, J + 1) = rec.Fields(J)
      End If
      Next J
      I = I + 1
      rec.MoveNext
      Loop
      ' code de fermeture et libération des objets
      xlBook.SaveAs "D:\Temp\Feuille.xls"
      xlApp.Quit
      rec.Close
      Set rec = Nothing
      Set xlSheet = Nothing
      Set xlBook = Nothing
      Set xlApp = Nothing
      t1 = Timer
      Debug.Print I & " enregistrements", Format(t1 - t0, "0") & " secondes"
      End Function
      :KKDS

      Enjoy

    3. #3
      X_badr-revolution_X
      Guest

      Par défaut

      merciiiiiiiiiiiiiiiiiiiiii

    4. #4
      hakim
      Guest

      Par défaut merci beaucoup tanjawi

      "svp comment exporter une table access sous forme *.xls ou *.dbf avec le code vb via une connection odbc et merci".
      j'utilise connection adodc et je veut exporter des tables via cette con
      et d'autre part importer le contenue d'autres tables pour ajouter (concatener) au contenue d'autres. merci encors

    5. #5
      x_octet
      Guest

      Par défaut

      :GFDS

      look
      charger votre base de donne ou votre table sur un tableau et oblier la connection avec elle
      et exporter le avec la methode suivent :

      http://drq.developpez.com/vb/tutoriels/Excel/Chapitre3/

    6. #6
      AZKRI
      Guest

      Par défaut

      <center> :hyju Merci Pour Votre Participation :hyju

      :hyju :hyju

      **** Et On éspére D'autres Sujets de Votre Part ****

      :hyju www.ista4all.com :hyju

      *** Copyright © 2006 ***

      *** Tous droits réservés pour Issam ***

      *** ISTA AL MAJD, RABAT ***

      *** Et tous les membres de ista4all.com ***

      *** mon msn ***

      *** Webmaster@ista4all.com ***
      <center>

      <center></center>

    Discussions similaires

    1. Réponses: 4
      Dernier message: 30/10/2008, 17h52
    2. Intérêt de SQL. (tout sur SQL)
      By AZKRI in forum Forum Base De données & Analyse
      Réponses: 5
      Dernier message: 29/04/2006, 11h30
    3. cours de base de donnees bien detaille : )
      By safae in forum Forum Base De données & Analyse
      Réponses: 5
      Dernier message: 07/03/2006, 23h29
    4. Adressage IP et Masques Sous Reseau (Cours 6)
      By AZKRI in forum Forum Réseaux
      Réponses: 1
      Dernier message: 14/01/2006, 12h12
    5. Adressage IP et Masques Sous Reseau (Cours 5)
      By AZKRI in forum Forum Réseaux
      Réponses: 0
      Dernier message: 20/12/2005, 21h48

    Règles de messages

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •  

    Forum Ti9ni n'est responsable d'aucun accord commercial ou coopératif entre les membres
    Chaque personne assume la responsabilité de la direction de la vente, l'achat, l'accord et l'information de sa position
    Les commentaires publiés ne représentent pas l'opinion de Forum Ti9ni et nous n'en assumons aucune responsabilité (et l'auteur est responsable de la publication)