EXPORT TABLE ACCESS VERS EXCEL

Signaler
Messages postés
62
Date d'inscription
jeudi 18 avril 2002
Statut
Membre
Dernière intervention
29 septembre 2004
-
Messages postés
10
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
6 janvier 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6238-export-table-access-vers-excel

Messages postés
10
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
6 janvier 2009

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
vraiment ce code il m 'a aidie bcp et je te suite une bonne chance une 2 eme fois merci
Messages postés
6
Date d'inscription
jeudi 29 novembre 2007
Statut
Membre
Dernière intervention
3 décembre 2007

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.
Messages postés
6
Date d'inscription
jeudi 29 novembre 2007
Statut
Membre
Dernière intervention
3 décembre 2007

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
Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008

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

qu'est ce que je dois faire SVP?!
Afficher les 8 commentaires