Discussion :

[Jokarie]

Bonjour tous le monde,


J'ai suivie le tuto de SkylRoad (ici) pour l'import de donnée d'un fichier excel fermé.

Cependant, l'import fonctionne bien, mais les colonnes de ma base de donnée qui ne comporte que des valeurs numériques n'ont pas d'entêtes
quand je les importe dans ma feuille active.
Lorsque j'écris dans cette base dans les colonnes concernées (Valeur uniquement numérique) et que je réimporte dans mon classeur actif, les valeurs ne s'affichent pas et mes entêtes non plus.

Je vous montre ci après les colonnes génantes (Entêtes remplie en vert) :

BASE DE DONNEE

CLASSEUR ACTIF APRES IMPORT


Rien y fait, j'ai essayé de changer le format des colonnes en Texte, Standard, Nombre mais sur mon classeur actif mes entêtes ne s'affichent pas et les nouvelles informations que je rentre dans ma base non plus.

Auriez vous une idée ?

Je vous remercie par avance.

[Slooby]

Bonjour,

J'ai déjà eu ce même problème.
Je pense que c'est dû au fait que ta connexion dans un classeur fermé se comporte comme un accès à une base de donnée.
C'est à dire qu'il considère ton classeur comme une base, et ton onglet comme une Table.

Or, dans une table SQL, le type des champs est définit à la création de la table. C'est à dire que si tu as une colonne "Prenom", tous les champs seront des VARCHAR (ie String), si tu as le champs "Age", ça sera un numérique.

Or là, dans ton classeur Excel c'est fort probable que pour une même colonne tu ai plusieurs type différents. Tu peux avoir un nombre, puis un texte, etc... De ce fait, ton RecordSet lancé dans ta macro ne se comporte pas comme tu le souhaite.

Il reconnait le type supposé de la colonne, mais si à une certaine ligne tu as une cellule qui diffère, là ton RecordSet bug. C'est pour ça qu'il ne te renvoie rien pour certaines cellules.

La solution: Faire un bon vieux couper/coller ?

Slooby

[Jokarie]

Bonjour Slooby,


Merci pour ta réponse. Du coup j'ai réussi à bidouiller en bouclant sur toutes les cellules de ma base de données. J'ai mis la valeur dans un String
puis j'ai changé le format de la cellule en texte et j'ai recopié ma variable dans la cellule. J'ai l'indice vert en haut à gauche d'erreur de formule qui s'affiche mais
j'ai plus de problèmes pour l'import de ma base de données dans mon classeur.

Je m'attends maintenant à d'autre surprises, les bases de données c'est nouveau pour moi .

Bien à toi,

Jokarie.

[Invité]

Bonsoir,
Avec ça plus de problème!

Code :

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

1
2
3
4
5
With Cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & Fichier & ";Extended Properties=""Excel 12.0 Xml;IMEX=1;"""
        .Open
    End With

[Invité]

Bonjour,

J'ai déjà eu ce même problème.
Je pense que c'est dû au fait que ta connexion dans un classeur fermé se comporte comme un accès à une base de donnée.
C'est à dire qu'il considère ton classeur comme une base, et ton onglet comme une Table.

Or, dans une table SQL, le type des champs est définit à la création de la table. C'est à dire que si tu as une colonne "Prenom", tous les champs seront des VARCHAR (ie String), si tu as le champs "Age", ça sera un numérique.

Or là, dans ton classeur Excel c'est fort probable que pour une même colonne tu ai plusieurs type différents. Tu peux avoir un nombre, puis un texte, etc... De ce fait, ton RecordSet lancé dans ta macro ne se comporte pas comme tu le souhaite.

Il reconnait le type supposé de la colonne, mais si à une certaine ligne tu as une cellule qui diffère, là ton RecordSet bug. C'est pour ça qu'il ne te renvoie rien pour certaines cellules.

La solution: Faire un bon vieux couper/coller ?

Slooby

Bonjour,
Pour information, une connexion Ado considère toujours un classeur fermé comme un base de données. Si la feuille n'a pas d'entête de colonnes, ado lui en affectera une par défaut! (F1, F2, F3, etc...). En ce qui concerne le type de valeur, Ado procède par échantillonnage, il évalue les 5 premières valeurs et déclare qu'elles son texte numérique et autre, en fonction de cela, les valeurs texte passe à la trappe si la colonne est considérées comme numérique.

Pour éviter ça il faut lui dire que tu te fous !

( IMEX=1; )

[Slooby]

Bonjour rdurupt,

En pratique j'utilise:

Code :

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

1
2
3
4
5
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ExternalWB_FullName & "';Extended Properties='Excel 12.0;HDR=Yes;IMEX=1;Readonly=Yes';"
 
// avec ExternalWB_FullName un String qui contient le chemin complet de mon classeur a ouvrir

La propriété IMEX est bien égale à 1, mais j'ai quand même le soucis de "recordSet vide" pour chaque ligne qui n'a pas le type attendue.

Tu n'as jamais eu de soucis toi ?

Slooby

[Invité]

Je t'avouerais que non, et vu que te fais les choses comme il faut, je suis perplexe!

[Jokarie]

Bonjour rdurupt,

Excellent, ça fonctionne correctement pour moi, j'ai remplacé le format de mes colonnes numérique au format standard pour essayer et l'import fonctionne très bien.

Je vous remercie pour vos réponses.