Discussion :

[osia1]

Bonjour, voila quand je veux faire une exportation d'une de mes table vers une feuille excel j'ai une erreur 3163 "Le champ est trop petit pour accepter la quantité de données que vous voulez ajouter. Essayez d'insérer ou de coller moins de données." J'ai compris l'erreur mais le problème c'est qu'il me fait cet erreur alors que ce qui a été rentré dans la table vient d'une feuille excel donc je ne vois pas pourquoi il me dit ça...

Merci

[le_niak]

Salut,

Quel est le type de ton champs access?

[osia1]

de type texte de taille 255 donc normalement si j'ai réussi à l'importer il ne devrait pas y avoir de problème...

edit: ce qu'il me trouve trop long c'est ça:
"ASSO GROUPEMENT DES INGENIEURS DES TRAVAUX DE LA CONSTRUCTION DE CACHAN"

[le_niak]

C'est pas les guillemets qui posent pb?

[osia1]

ya pas de guillements, je les ai mise là sur le forum pour bien distinguer mais non il n'y a pas de guillemets...

[le_niak]

ok

Tu peux mettre ton code d'exportation vers Excel. SVP

[osia1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim tare as Database
set tare = CurrentDb
Dim aha as DAO.Recordset
Set aha = tare.OpenRecordset ("Exportation_BDD")
Dim titeuf
titeuf = 0
Do Until aha.EOF
 titeuf = titeuf+1
aha.MoveNext
Loop
aha.Close
If(titeuf = 0) Then
   MsgBox "Le resultat ....",vbInformation, "....."
Else
   DoCmd.RunMacro ("Exportation")
  MsgBox "Le fichier a été....." & titeuf & "resultats", vbInformation, "......"
End If

[le_niak]

Il faudrait que tu mettes aussi le code de ta macro "Exportation".

Merci

[osia1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function exportation()
On Error GoTo exportation_Err
DoCmd.OutputTo acTable, "Exportation_BDD", "MicrosoftExcelBiff8(*.xls)", "", False, "",0
exportation_Exit:
Exit Function
exportation_Err:
MsgBox Error$
Resume exportation_Exit
End Function

[le_niak]

Je seche un peu...

[osia1]

c'est pour ça je solicité l'aide de quelqu'un parce que je ne comprenais pas... étant donné que la limite de access en texte est la même que excel c'est a dire 255 je ne comprenais pas...

[mikeGo20]

Essaie avec la commande TransferSpreadsheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DoCmd.TransferSpreadsheet acExport, 8, "Exportation_BDD", NomFichierExcell, True, ""

[osia1]

merci masi toujours la même erreur mais cette fois sur un attribut de type memo, pas très pratique cette programmation made in windows

[mikeGo20]

merci masi toujours la même erreur mais cette fois sur un attribut de type memo, pas très pratique cette programmation made in windows

Tu as donc un champ de type Mémo dans ta table ??

si c'est le cas, regarde si possibilité de remplacer par un Type Texte ....

ça pourrait peut-être régler le tout ....

[osia1]

Le problème c'est que si je met un champ texte je vais perdre des données....

[osia1]

Finalement j'ai mis un champ texte mais rien n'y fait toujours la même erreur...

[osia1]

es-ce que le fait que quasiment tout soit écrit en majuscule peut provoquer l'erreur

[Jean-Philippe André]

salut,
et si au lieu de faire un export par ces fonctions là tu passais par un CopyFromRecordset dans un fichier Excel ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim XlApp as New Excel.Application
Dim XlWbk as Workbook
Dim XlWsh as Worsheet
Dim RS as DAO.RecordSet
set XlApp = New Excel.Application
Set XlWbk = XlApp.Workbooks.Add
Set XlWsh = XlWbk.Worsheets.Add
Set RS = CurrentDb.OpenRecordSet("SELECT * FROM MaTable")
XlWsh.Range("A1").CopyFromRecordset RS
XlWbk.SaveAs "C:\temp\Fichier.xls"
XlWbk.Close
XlApp.Quit

[osia1]

Access me dit qu'il ne connait pas le type Excel.Application... mauvais signe ça

[Jean-Philippe André]

pardon,
ajoute la référence Excel dans ton projet