Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 22:28:13

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

+ de logiciels à télécharger

1 464 879 membres
377 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 022 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXPORT TABLE ACCESS VERS EXCEL

Information sur la source

Catégorie :Base de Donnees Niveau : Débutant Date de création : 23/02/2003 Date de mise à jour : 23/02/2003 18:21:15 Vu / téléchargé: 18 832 / 3 120

Auteur : PatriceVB

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

9,50 / 10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Ce code utilise une technique parmi d'autres pour exporter une table d'une base access vers un fichier excel. Il utilise pour cela ADOX.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

ExportDB.vbp 1 155 octets
ExportDB.vbw 55 octets
FrmGeneral.frm 4 663 octets
FrmGeneral.frx1 090 octets

Télécharger le zip

Sources du même auteur

SAISIE SEMI-AUTOMATIQUE

CHEMIN BASE COURANTE ACCESS

MISE À JOUR STRUCTURE BASE ACCESS AVEC ADOX

POUR LES ACCROS DE CODES-SOURCES

BDR FACILE : MODULE DE CLASSE

Toutes les sources de PatriceVB

Sources de la même categorie

GESTION DE VIDEOTHÈQUE par johndave

GESTIONNAIRE DE FICHIERS VIDEOS par jcslider

RECUPERER ET AFFICHER LES MESSAGES D'INFORMATION ET D'ERREUR... par braidas

GESTION DE BIBLIOTHÉQUE par smaili

GESTION DE VENTE AUTO par promarc

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de nikko le 25/06/2003 11:42:32

Je ne trouve pas de doc sur l'imporation/exportation de tables en VB. A en croire la doc on ne peux que lier les tables...!

Peut-tu me filer un tuyau ?

Commentaire de max_95 le 23/12/2003 15:24:42

Lorsque je clique sur importer, il y e une erreur qui apparait avec comme code d'erreur:
Run-time error '9':
Subscript out of range

Et le débugger pointe sur:
Private Sub CmdOK_Click()

(Ln55, Col45) With obj.ActiveWorkbook.Worksheets("Feuil1")

Why?

Commentaire de Thalyee le 07/10/2005 21:11:17

Ok pour moi , je pense qu'il y a plus
simple mais en attendant ca fonctionne
super et ça dépanne bien de trouver des
gens qui transmettent un peu de leur savoir
aux autres qui galèrent .Genre un peu plus
de mecs comme toi et ça irais moins mal

merci encore

Commentaire de monsar01 le 11/07/2006 20:20:23

Bonjour,

La source est bonne et m'a beaucoup aidé , si tu peux l'ameliorer , elle sera encore plus bonne , courage et merc pour tout.
A bientöt

Commentaire de basamir le 01/12/2007 17:18:56

j'obtiens l'erreur de compilation suivante:
Type défini par l'utilisateur non défini

qu'est ce que je dois faire SVP?!

Commentaire de rachija le 03/12/2007 10:10:40

Bonjour,
je pense qu'il faut ajouter ces deux references :
Microsoft ADO Ext.2.8 for DDL and security
Microsoft Activex Data Objects 2.0 library

Menu/projet/references
bonne chance

Commentaire de rachija le 03/12/2007 10:22:38

Bonjour,
Je viens de télecharger ce projet et ça marche bien
uniquement si le nombre des colonnes de la table Access à exporter est <26(colonnes de A à Z en excel)
si le nombre >=26 ça donne une erreur d'exécution.(puise que le code ascii de AA est différent de ascii(91).
j'ai modifié le code comme suivant :
With obj.ActiveWorkbook.Worksheets("Feuil1")
    'LIGNE DES NOMS DE CHAMPS
    While i <= mytable.Columns.Count - 1
        Set mycolumn = mytable.Columns(i)
        var = ascii + i
        If var < 91 Then
            lib = Chr(var) & "1"
            .Range(lib) = mycolumn.Name
            colonnes(i) = mycolumn.Name

            i = i + 1
        Else

            lib = "A" & Chr(ascii + i - 26) & "1"
            .Range(lib) = mycolumn.Name
            colonnes(i) = mycolumn.Name
            i = i + 1
        End If
        .Range(lib).Font.Bold = True

        ReDim Preserve colonnes(i)

    Wend

    'CONTENU
    myrc.Open mytable.Name, myconnection, adOpenDynamic, adLockPessimistic
    If Not myrc.BOF Then myrc.MoveFirst
    'myrc.MoveFirst
    cu_ligne = 2
    mymax = UBound(colonnes) - 1

    While Not myrc.EOF
        For i = 0 To mymax
            var = ascii + i
            If var < 91 Then
                lib = Chr(ascii + i) & Trim(Str(cu_ligne))
                .Range(lib) = "" & myrc(colonnes(i))
            Else
                lib = "A" & Chr(ascii + i - 26) & Trim(Str(cu_ligne))
                .Range(lib) = "" & myrc(colonnes(i))

            End If
        Next
        cu_ligne = cu_ligne + 1
        myrc.MoveNext
    Wend
End With
ca marche bien pour l'exportation, le seul problème c qu'il ne commence pas avec le premier champ de la table access (code par exemple), si quelqu'un peux m'aider je le serai reconnaissante.