automationn excel, Champ nombre reste en text ??? [À faire]

**mat_lefebvre** · 05/12/2003, 15h14

Re bonjour,
j'exporte via une automation des données dans un classeur excel. Puis avec du 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
MonFichier = "PREVTRESTIB.xls"
 
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True
 
'Ouvre MonFichier
MonXL.Workbooks.Open fileName:="C:\PROJET_MAT\" & MonFichier
 
MonXL.Sheets("BESOIN").Select
 
'Copie les valeurs
'MonXL.Range("A2").Value = Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules
...

Mais données son exporter sous format texte. POur que mon classeur marche , il faut que je les convertissent en nombre à la main . Est ce possible de le faire automatiquement ?

**m-mas** · 05/12/2003, 15h22

Tu es sûr que ça fonctionne pas comme ça ? si Champ1 contient une valeur numérique, Excel le prend bien en numérique et non en texte, ainsi tu pourras soustraire, additionner, ...

**mat_lefebvre** · 05/12/2003, 15h28

Envoyé par Morsi

Tu es sûr que ça fonctionne pas comme ça ? si Champ1 contient une valeur numérique, Excel le prend bien en numérique et non en texte, ainsi tu pourras soustraire, additionner, ...

Justement champ1 contient pas une valeur numérique, il contient le résultat d'une requete que je passe en paramêtre

Code :

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

1
2
3
4
5
 rs.Open "SELECT Sum(JALON.JALMONTANTTOTAL) AS TOTAL ... 
        If rs.EOF = True Then
        champ1= " "
        Else
      champ1= rs!TOTAL

Donc il le transforme en texte et quand je le mets dans excel , les valeurs s'affiche mais avec un icone en haut à droite qui me dit transformer en nombre. C justement ce que je veux eviter. Je veux que l'utilisateur ne fasse pas cette petite manipulation

**m-mas** · 05/12/2003, 15h31

utilise une fonction de conversion alors, CInt ou Cdbl, je ne suis pas sûr si le résultat sera adéquat, test et regarde un peu l'aide d'Access sur ces 2 fonctions.

**mat_lefebvre** · 05/12/2003, 15h56

J'ai essayer les deux et j'ai erreur de compatibilité de typre. Donc ca doit pas etre cela !!!

**m-mas** · 05/12/2003, 16h01

Code :

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

1
2
3
4
5
rs.Open "SELECT Sum(JALON.JALMONTANTTOTAL) AS TOTAL ... 
        If rs.EOF = True Then 
        champ1= " " 
        Else 
      champ1= rs!TOTAL

je ne comprend pas trés bien ton test

**mat_lefebvre** · 05/12/2003, 16h04

Si mon champ est vide ca evite une erreur, mais bon ca ca marche c plutot l'automatisation du convertir en nombre à la main que je cherche à stocker.

C vrai que je suis pas trop sur que je fais rapide avec mon test !!!

**m-mas** · 05/12/2003, 16h12

bon, je ne sais pas si c'est fin de semaine ou c'est moi !! tu teste sur le recordset ? c'est bien ça ? si c'est la fin ? alors que ton recordset retourne une somme

et en plus avant d'exporter tes données en texte et ensuite les convertir en nombre, tu peux convertir et ensuite exporter dans excel !!! donc si vide (comme tu le dis) tu met un 0 et non un " ".
je ne sais si je suis assez clair

**mat_lefebvre** · 05/12/2003, 16h13

Je viens de penser à un truc , mon erreur vient peut étre de la : je declare ma variable en string, mieux vaut que je la declare en nombre

Dim mois9_CHEQUES As String
remplacer par
Dim mois9_CHEQUES As Number
Mais declaration d'un nombre c comment car c pas number

**mat_lefebvre** · 05/12/2003, 16h23

Envoyé par Morsi

bon, je ne sais pas si c'est fin de semaine ou c'est moi !! tu teste sur le recordset ? c'est bien ça ? si c'est la fin ? alors que ton recordset retourne une somme

et en plus avant d'exporter tes données en texte et ensuite les convertir en nombre, tu peux convertir et ensuite exporter dans excel !!! donc si vide (comme tu le dis) tu met un 0 et non un " ".
je ne sais si je suis assez clair

Oula je t'arrette , tu t'acharne sur ma boucle mais c pas la qu'il faut regarder

c ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MonFichier = "PREVTRESTIB.xls" 
 
'Ouvre l'application Excel 
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan 
MonXL.Visible = True 'Rend Excel visible... 
MonXL.UserControl = True 
 
'Ouvre MonFichier 
MonXL.Workbooks.Open fileName:="C:\PROJET_MAT\" & MonFichier 
 
MonXL.Sheets("BESOIN").Select 
 
'Copie les valeurs 
'MonXL.Range("A2").Value = Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules

Champ1 c un nombre logiquement, et apres l'envoie dans excel il redevient texte et moi je veux pas de ca.
Or je viens dans le opst d'avant de remarquer que dans mes declaration je dis dim Champ1 as string. Donc c à ce moment la que je fais l'erreur de le remettre en format texte.
J'essaye donc de déclarer ma variable Champ1 en nombre

**m-mas** · 05/12/2003, 16h25

pour commencer, met juste ça:

Code :

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

Dim mois9_CHEQUES

et pour information sur les types il suffit d'explorer l'aide ou l'assistant de code quant tu fait As (nombre = Integer)

**mat_lefebvre** · 05/12/2003, 16h34

Quand je metcela, Dim mois9_CHEQUES : il me renvoie dans excel du texte
Qd je mets Dim mois9_CHEQUES as integer il me dire incompatibilité de type,
Alors je sais plus quoi faire

Code :

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

et pour information sur les types il suffit d'explorer l'aide ou l'assistant de code quant tu fait As (nombre = Integer)

j'avasi deja fait

**sinarf** · 05/12/2003, 18h36

Je te conseille de consulter les cours Visual Basic presentes sur le site en bas tu as 2 tutos.
En particulier, l'exellent Programmer efficacement avec Excel en VBA (pdf, 46 pages, 711 Ko)

**Arkham46** · 05/12/2003, 22h49

Pour changer le format d'une cellule :

Code :

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

MonXL.Range("A2").numberformat ="0"

**Ricou.13** · 05/12/2003, 22h57

Salut tout le monde,
j'ai egalement le meme probleme, en effet je fais une requete qui me sort une quantite de pieces consommées par fournisseur en gros ça fait ça:

Nom_Fournisseur | Qte
____________________

Four1 |10
Four2 |20

etc....

et lorsque je copie les données de cette requete dans excel, sur toutes les valeurs j'ai ce message qui dit que les nombres sont stockés sous forme de texte donc traitement impossible.
Pour cela je suis obligé de convertir toutes les colonnes a la main.
Ce que je comprends pas c'est que dans ma requete tous mes champs sont des entiers!!!

Est ce que vous auriez des infos sur ça?

Merci

**mat_lefebvre** · 09/12/2003, 09h01

J'ai essayer ca et lu ca :

Envoyé par Arkham46

Pour changer le format d'une cellule :

Code :

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

MonXL.Range("A2").numberformat ="0"

Je te conseille de consulter les cours Visual Basic presentes sur le site en bas tu as 2 tutos.
En particulier, l'exellent Programmer efficacement avec Excel en VBA (pdf, 46 pages, 711 Ko)

Mais rien à faire.
Je dois trouver avant ce soir et la vous êtes mon dernier recours !!

Je prie et je cherche !!

Merci [/code]

**mat_lefebvre** · 09/12/2003, 11h37

Envoyé par Morsi

utilise une fonction de conversion alors, CInt ou Cdbl, je ne suis pas sûr si le résultat sera adéquat, test et regarde un peu l'aide d'Access sur ces 2 fonctions.

J'ai trouver. Merci Morsi, tu avais raison. Pourtant j'avais tester mais je me souviens plus je l'ai peut être fais au mauvaise endroit

Je renvoyer du texte car ma requête selectionner un champ texte.

Avec la fonction INT ca evite cela.
Ma requête est donc

Code :

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

SELECT int(Sum(JALON.JALMONTANTTOTAL)) AS TOTAL, ...

Merci, vraiment grand merci

automationn excel, Champ nombre reste en text ??? [À faire]

Access

Discussions similaires

Partager

Partager