Discussion :

[ericdev67]

Bonjour,

Afin d'écrire dans un classeur fermé, j'utilise ce code :

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
Sub AjoutEnregistrement()
  repertoire = ThisWorkbook.Path & "\"
  Set cnn = New ADODB.Connection
  fichier = repertoire & "ADOsource.xls"
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fichier & ";Extended Properties=Excel 8.0;"
  Set rs = New ADODB.Recordset
  rs.Open "SELECT * from [Feuil1$A1:L1000]", cnn, adOpenDynamic, adLockOptimistic
  rs.AddNew
  rs(0).Value = Workbooks("Ajout enregistrements.xls").Sheets("feuil1").Cells(1, 1)
  rs(1).Value = Workbooks("Ajout enregistrements.xls").Sheets("feuil1").Cells(1, 2)
 rs(2).Value = Workbooks("Ajout enregistrements.xls").Sheets("feuil1").Cells(1, 3)
 
 
  rs.Update
  rs.Close
  cnn.Close
End Sub

mais dans ma cellule C1, j'ai un texte de plus de 256 caractères, et donc lorsque j'essaye de l'écrire dans le fichier fermé, le code bloque en disant "Le champ est trop petit pour accepter la quantité de données, ...".

Donc avant de me lancer dans un code qui "séparerait" mon texte en plusieurs cellule (je pense qu'en faisant une boucle avec NBCAR et STXT, je peux "découper" mon texte), je souhaitais savoir s'il n'y avait pas une autre solution....

En vous remerciant,

[Invité]

il faut formater les colonnes de ton fichier ADOsource.xls en texte avec retour ligne et l'enregistrer!

si tu ne format pas tes colonnes (Texte,numérique,Date, Oui/Non) tu laisses ADO faire le mauvais choix!

[Kimy_Ire]

Bonjour ericdev67,

Je ne comprends pas bien la limite des 256 caractères ?
Il est vrai que j'ai très rarement utilisé le ADODB.Connection mais je ne vois pas la différence que cela pourrait avoir...
En effet, la limitation du nombre de caractères dans une cellule Excel est de 32 767.

J'ai peut-être mal compris quelque chose.

Cordialement,
Kimy

[ericdev67]

Merci Kimy_Ire,

Oui, je sais, même si je suis en Excel 2003, je peux mettre 32000 carctères, mais c'est quand je l'exporte avec ADO que vient le problème...

Merci rdurupt, encore et toujours...merci,

J'ai essayé ton conseil, car je pense bien qu'il s'agit d'un problème de format, j'ai donc fait : mais ça ne fonctionne pas...dans le doute, j'ai mis le même format pour mes 2 fichiers (ajout et ADO), marche pas...j'ai essayé avec "standard" car j'avais vu dans un post, que le format texte pouvait poser problème...mais idem, ça ne fonctionne pas...

merci pour ton aide,

[Invité]

Je vais tenter de mettre en place une plateforme pour tester!

Tes champs ont une entête se colonne?

Code :

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

1
2
sql= "insert into [myonglet$] ([Nom],[Commande]) Values ('toto','titi')
Cn.execute sql

[ericdev67]

Merci rdurupt,

Non, il n'y avait pas de nom de champ, j'ai en rajouté pour voir, mais idem, ça ne fonctionne pas.

Merci pour ton aide,

[Invité]

L'oublis pas HDR=YES ;

Oui pour les fichiers.

[ericdev67]

Ok, merci rdurupt,

mais tu verras que j'ai modifié le code en allant sur la ligne 2 pour chercher les données, donc HDR=YES utile ?

Ci joint les fichiers test,

Merci pour ton aide,

[Invité]

Bonjour,
Je me suis battu hier toute la soirée avec Ado.
Si je place un roman en ligne 2, je peux inséré un roman sinon erreur, on voit bien qu'Ado fait l'apprentissage!

Mais je cherche encore!

[ericdev67]

Merci rdurupt,

J’ai essayé aussi plusieurs choses sans succès...on dirait qu’ADO à un problème au niveau de la mémoire et qu’il n'arrive pas à restituer le roman lol

Merci pour ton aide,

[Invité]

Ado analyse les 8 premières lignes si c'est un mémo alors il accepte les mémos!

C'est pour cela que je parlais du format, mais ça marche pas pour la taille!
Si dans les 8 lignes il y a un texte de plus de 255 lors il accepte!

[ericdev67]

Merci rdurupt,

Les 8 premières lignes ?, mais je n'ai qu'une ligne ?
A moins que tu parles de lignes à l'intérieur de la cellule...auquel cas, il faudrait agrandir la ardeur de la colonne...ça je n'ai pas essayé. .. (suis sur tablette, mais dans 1h, j'essaye sur PC...)

Merci pour ton aide,

[Invité]

Non je parle le ligne dans le tableau Excel, si tu n'as que les entêtes de colonnes ou qu'une ligne avec 25 caractères dans la cellule il va refuser de charger 750 caractères!

Il semblerait quand fonction du driver le fonctionnement soit différent!

Je suis sur qu'il soit possible de contourner le problème!

http://www.developpez.net/forums/d71...e/#post4167212

[ericdev67]

merci rdurupt,

Effectivement, j'ai essayé (en élargissant la colonne) et cela n'a pas fonctionné..

J'ai essayé aussi l'idée du lien que tu m'as envoyé (=visu des 8 premières lignes), j'ai donc mis en C1 "textetextetexte,etc...jusqu'à 1000 caractères, pour essayer de "forcer" le format par défaut, et cela n'a pas fonctionné....

Par contre, je ne pourrais pas passer par les clefs de registres : au boulot, je n'y ai pas accès, car non administrateur...

Merci pour ton aide,

[Invité]

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fichier & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"""

[ericdev67]

Merci rdurupt,

J'ai copié/collé ton code, et j'ai un message d'erreur me disant : "Mise à jour impossible, la base de donnée ou l'objet est en lecture seule"....dans le doute, j'ai tout fermé, redémarré l'ordi, et lorsque je lance la macro, même message.....

Il bloque au niveau de

Code :

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

rs.AddNew

Apparemment, c'est au niveau de

Code :

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

IMEX=1

que se situe le problème, car quand je fais IMEX=0 le code me remet l'ancien message d'erreur...(=taille)

Merci pour ton aide,

[Invité]

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
Sub AjoutEnregistrement()
  repertoire = ThisWorkbook.Path & "\"
  Set cnn = New ADODB.Connection
  Fichier = repertoire & "ADOsource.xls"
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=YES; """
  Dim cm As New ADODB.Command
  With cm
        .ActiveConnection = cnn
        .CommandText = "INSERT INTO [Feuil1$] ([Nom],[Prénom],[texte]) Values (?,?,?)"
        .CommandType = adCmdText
        .Parameters.Append .CreateParameter("@Nom", adLongVarChar, adParamInput, 250, ThisWorkbook.Sheets("feuil1").Cells(2, 1))
        .Parameters.Append .CreateParameter("@Prénom", adLongVarChar, adParamInput, 250, ThisWorkbook.Sheets("feuil1").Cells(2, 2))
        .Parameters.Append .CreateParameter("@texte", adLongVarChar, adParamInput, 30000, ThisWorkbook.Sheets("feuil1").Cells(2, 3))
       .Execute
    End With
End Sub

le problème est que on doit entrer un long string dans une cellule!

[ericdev67]

Super merci rdurupt,

Tout fonctionne parfaitement et je crois avoir compris ton code : tu définis le nombre de caractères de la cellule (ici 30000, un vrai roman...).

Je ne connaissais pas la possibilité de pré-formater la taille des cellules. Je recommande même ta réponse dans les "Contributions" car lorsque je cherchais sur G, j'ai vu de nombreux messages, sans réponses...

Et merci pour cette nouvelle instruction

Code :

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

"INSERT INTO [Feuil1$] ([Nom],[Prénom],[texte]) Values (?,?,?)"

j'ai vu que dans le dossier démo tu avais juste mis le Nom, et donc avec ton code, je comprends mieux la logique (notamment si je dois rajouter des colonnes)

merci,

Merci pour ton aide,

A+ pour de prochaines aventures,

[AlainTech]

Ado analyse les 8 premières lignes si c'est un mémo alors il accepte les mémos!

Bonjour,

Petite précision:
ADO va assigner à chaque champ (colonne) le format majoritaire des 8 premières lignes.
Si on met des valeurs de format identique dans les 5 premières, on est certain qu'ADO fera le bon "choix".

[Invité]

si il mets 0 il le ferra sur toutes la colonne mais le temps de réaction risque de allonger!