cs_nikko
Messages postés62Date d'inscriptionjeudi 18 avril 2002StatutMembreDernière intervention29 septembre 2004
-
25 juin 2003 à 11:42
gmailhind
Messages postés10Date d'inscriptionmercredi 30 avril 2008StatutMembreDernière intervention 6 janvier 2009
-
9 juil. 2008 à 16:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
gmailhind
Messages postés10Date d'inscriptionmercredi 30 avril 2008StatutMembreDernière intervention 6 janvier 2009 9 juil. 2008 à 16:50
merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
vraiment ce code il m 'a aidie bcp et je te suite une bonne chance une 2 eme fois merci
rachija
Messages postés6Date d'inscriptionjeudi 29 novembre 2007StatutMembreDernière intervention 3 décembre 2007 3 déc. 2007 à 10:22
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.
rachija
Messages postés6Date d'inscriptionjeudi 29 novembre 2007StatutMembreDernière intervention 3 décembre 2007 3 déc. 2007 à 10:10
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
basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008 1 déc. 2007 à 17:18
j'obtiens l'erreur de compilation suivante:
Type défini par l'utilisateur non défini
qu'est ce que je dois faire SVP?!
monsar01
Messages postés2Date d'inscriptionvendredi 7 avril 2006StatutMembreDernière intervention11 juillet 2006 11 juil. 2006 à 20:20
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
Thalyee
Messages postés26Date d'inscriptionmardi 22 octobre 2002StatutMembreDernière intervention14 mai 2006 7 oct. 2005 à 21:11
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
max_95
Messages postés9Date d'inscriptionmardi 23 décembre 2003StatutMembreDernière intervention 3 juin 2008 23 déc. 2003 à 15:24
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?
cs_nikko
Messages postés62Date d'inscriptionjeudi 18 avril 2002StatutMembreDernière intervention29 septembre 2004 25 juin 2003 à 11:42
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...!
9 juil. 2008 à 16:50
vraiment ce code il m 'a aidie bcp et je te suite une bonne chance une 2 eme fois merci
3 déc. 2007 à 10:22
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.
3 déc. 2007 à 10:10
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
1 déc. 2007 à 17:18
Type défini par l'utilisateur non défini
qu'est ce que je dois faire SVP?!
11 juil. 2006 à 20:20
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
7 oct. 2005 à 21:11
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
23 déc. 2003 à 15:24
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?
25 juin 2003 à 11:42
Peut-tu me filer un tuyau ?