Excel en Base de données, devenir fou?

Bonjour,

Voila plusieurs semaines que je suis confronté à ce problème.

J'utilise deux feuilles excel comme base de données.
L'une fonctionne au poil, super rien à dire.

Mais lorsque j'ai ajouté la seconde j'ai été confronté à plusieurs soucis.

Les requête ne fonctionne pas si dans mes cellules j'ai des chiffres.

J'ai placé mes cellules en "Texte" car elle peuvent contenir du texte+des chiffres ou juste des chiffre.

Voici ma requete :

Code:

---

1 2 3 4

NomModif = "1" Requete = "SELECT Description FROM [TableModif$] WHERE Numero_Version='" & NomModif & "'" Rst.Open Requete, Cn, adOpenStatic

---

J'ai l'erreur sur cette dernière ligne qui dit :

Type de données incompatible dans l'expression du critère.

Je deviens "Fou" car sur l'autre feuilles j'ai le même type de données et les requetes fonctionnent très bien...

Merci de votre aide.

Bonjour.

Juste une idée, remplacer

Code:

---

WHERE Numero_Version

---

par

Code:

---

WHERE Cstr(Numero_Version)

---

PGZ

En gros la ligne serait :

Code:

---

1 2	Requete = "SELECT Description FROM [TableModif$] WHERE CStr(Numero_Version)='" & NomModif & "'" Rst.Open Requete, Cn, adOpenStatic

---

???
Mais le CStr n'est pas reconnu par SQL si???

J'pense qu'il y à un truque que j'ai pas pigé...

Merci beaucoup en attendant.

Bonjour,

Nouvelle erreur.

Ta methode fonctionne si la valeur recherchée est de type "Nombre", si j'ai du texte ça échoue.

J'ai une erreur :

Utilisation Incorrecte de Null

Je ne comprend vraiment plus rien...

Voici un bout de mon fichier qui illustre très bien mon soucis...

C'est à ne rien comprendre...

Merci beaucoup de votre aide.

salut,
il est possible que ton champ Numero_Version soit vide pour un ou plusieurs enregistrements.
Essaie de passer l'erreur en utilisant Nz()

Code:

---

Requete = "SELECT Description FROM [TableModif$] WHERE CStr(Nz(Numero_Version,''))='" & NomModif & "'"

---

Bonjour,

Avec un petit subterfuge

Code:

---

Requete = "SELECT Description FROM [TableModif$] WHERE CStr(""_"" & Numero_Version)='_" & NomModif & "'"

---

Tu dis

Je dis que ça ne fonctionne toujours pas :?

Je ne comprend vraiment rien du tout...

Vous avez essayé sur mon fichier?

Bonjour
Je prends le POST en cours de route.
Je viens de faire toute une série de test pour identifier le problème et quoique l'on fasse sur la variable, le problème reste identique.

J'ai toutefois trouvé une astuce de contournement du problème.
Avant l'exécution de la requête, je converti la colonne A en texte.
D'après mes tests cela fonctionne, mais cela ne nous dit pas d'où vient le problème.:roll:
Le code de conversion

Code:

---

1 2 3 4

Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 2), TrailingMinusNumbers:=True

---

J'espère que cela aidera ;)

Merci beaucoup pour cette réponse qui fonctionne...

Mais c'est curieu comme problème...

Surtout que même si je place ma colone entière en "Texte" ce la ne fonctionne pas...

Donc merci pour ce petit bout de code que je place avant la requete !
Mais apparement il suffit d'executer ce code une seul fois...

Si quelqu'un connait une explication au problème... Merci à lui !

L'explication est la suivante.
Lorsqu'Excel traite une feuille comme une base de données, il va essayer de "deviner" le type de données dans chaque colonne.
Pour ce faire, il va analyser les 8 premières valeurs de chaque colonne est prendre le type dominant.
Dans le cas du fichier joint, dans la colonne A, il y a 4 nombres, 2 textes et le reste est vide.
Le type dominant est donc "nombre". Toute tentative d'utiliser une syntaxe propre au type texte provoquera une erreur.

Ah malin excel !!!

Merci beaucoup !