EXPORT TABLE ACCESS VERS EXCEL

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 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 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: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.