Format de cellule Excel

Version imprimable

Bonjour à Tous et à Toutes
Lors de l'exportation des données de ma table vers Excel, certaines des colonnes apparaissent au format standard dans la cellule (du fichier Excel)correspondant à la colonne (Du champ Table)
je voudrais pouvoir modifier le format de la cellule en format texte. Quel Propriété ou fonction dois-je utiliser ?
Merci.

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 MonFichierXLS est un xlsDocument nomClient est une chaîne = SAI_IMMATRICULATION + "_" + SAI_Effet NomFichierXLS est une chaîne = SysRep(srMesDocuments) + "\" + nomClient + ".xlsx" i est un entier SI PAS fFichierExiste(NomFichierXLS) ALORS TableVersExcel(TABLE_Demande,NomFichierXLS,taAvecMiseEnForme) MonFichierXLS = xlsOuvre(NomFichierXLS, xlsEcriture) MonFichierXLS..NomFeuille = "demande" POUR i = 1 À 48 SELON i CAS 2,3,4,5,39 : MonFichierXLS[2,i] = DateVersChaîne(TABLE_Demande[1,i],"JJ/MM/AAAA") AUTRE CAS : MonFichierXLS[2,i] = TABLE_Demande[1,i] FIN FIN // Changer le format de toutes le Cellules de la feuille en format Texte xlsSauve(MonFichierXLS) xlsFerme(MonFichierXLS)

18/03/2023, 12h03
Voroltinquo

Bonjour,
Essaye de passer par la propriété type de la propriété CelluleDéfaut d'une variable xlsColonne
18/03/2023, 15h20
SINTECH

Ok j'essaye pour voir ce que ca donnera
Merci beaucoup

1 pièce(s) jointe(s)

Voici mon code modifié

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
MonFichierXLS est un xlsDocument
nomClient est une chaîne = SAI_IMMATRICULATION + "_" + SAI_Effet
NomFichierXLS est une chaîne = SysRep(srMesDocuments) + "\" + nomClient + ".xlsx"
i est un entier

SI PAS fFichierExiste(NomFichierXLS) ALORS 
	TableVersExcel(TABLE_Demande,NomFichierXLS,taAvecMiseEnForme)
	MonFichierXLS				= xlsOuvre(NomFichierXLS, xlsEcriture)
	MonFichierXLS..NomFeuille	= "demande"
	
	POUR i = 1 À 48
		SELON i
			CAS 2,3,4,5,39 : MonFichierXLS[2,i] = DateVersChaîne(TABLE_Demande[1,i],"JJ/MM/AAAA")
			AUTRE CAS      : MonFichierXLS[2,i] = TABLE_Demande[1,i]		
		FIN
	FIN
	// COde de modification du format des cellules
	maCellule est un xlsCellule
	maCellule..Type = xlsTypeChaîne
	maligne est un xlsLigne
	maligne..CelluleDéfaut = maCellule
	MonFichierXLS..Ligne[2] = maligne
	
	xlsSauve(MonFichierXLS)
	xlsFerme(MonFichierXLS)
FIN

FIN

et voici l'erreur généré
Pièce jointe 635994

18/03/2023, 20h15
tbc92

Il y a la propriété macellule.masquewd qui est faite pour ça.
MAIS
Je ne comprend pas la question. Tu veux appliquer le format 'Chaine'. Ca veut dire quoi ? Pour les nombres, les dates , les durées, appliquer un format nombre spécifique, je vois parfaitement ce que ça veut dire, mais le format chaine, pour moi, ça ne veut rien dire.
19/03/2023, 01h26
SINTECH

En fait pour être plus précis, après exportation des données dans mon fichier Excel, certaines cellules sont au format "Standard"
je voudrais que toutes mes cellules (la ligne entière ) du fichier Excel créées soient au format "Texte"
19/03/2023, 13h45
tbc92

Je pense que tu confonds format et type de données. Et je pense que ton besoin, c'est sur des cellules qui contiennent des nombres, par défaut, les nombres sont cadrés à droite, et tu veux qu'ils soient cadrés à gauche (je le dis de façon basique, c'est plus profond que ça).
ça ressemble à un problème de format de cellule, mais ce n'est pas un problème de format de cellule.
Le format d'une cellule, ça impacte uniquement l'affichage.
Si une cellule A1 contient le nombre 1, et si dans la cellule d'à coté on met la formule "=somme(A1)" ,on aura le nombre 1. Peu importe le format de la cellule A1, on aura ce résultat.
Et si dans cette cellule A1, on a le texte "1", et si dans la cellule d'à coté on met la formule "=somme(A1)" ,on aura le nombre 0.

Toi, tu veux du texte, tu veux que la fonction somme ne voit pas cette cellule comme un nombre, mais comme une chaine.
Idem, les fonctions comme recherchev (ou vlookup) ne savent pas trouver une chaine "1" si le fichier contient le nombre 1, et inversement non plus.

En tout cas, c'est comme ça que j'interprète ton besoin.

Du coup, au moment d'écrire ton fichier, il faut que tu ajoutes une apostrophe devant les cellules concernées : MonFichierXLS[2,i] = "'" + TABLE_Demande[1,i]
19/03/2023, 15h09
SINTECH

2 pièce(s) jointe(s)

Ok je vais illustrer mon problème à travers deux captures d'écran.

1- Voici le résultat obtenu après exportation de mes données dans mon fichier Excel

Pièce jointe 636022

2- Voici le résultat souhaitée pour chaque cellule

Pièce jointe 636023

Je ne trouve pas de fonctions ou propriété pouvant modifier le format de cellule standard (par défaut) en format Texte (souhaité)
Merci pour vos conseils
20/03/2023, 08h47
tbc92

Si tu modifies une cellule (en écrivant par exemple 5.50) et qu'ensuite tu modifies son format en format texte, c'est trop tard. Quand tu saisis 5.50, Excel le convertit aussitôt en 5.5, et si tu le passes en format texte, tu auras 5.5.
Donc il faudrait inverser les instructions.
Mais de toutes façons, le type étant en lecture seule, impasse.
J'ai joué avec OpenOffice (directement, sans passer par Windev) pour tester ce format texte. J'ai nettement l'impression que ça revient à convertir le contenu de la cellule de nombre (ou date) en texte. Et donc, ce que je proposais hier 13h45 est la bonne solution : MonFichierXLS[2,i] = "'" + TABLE_Demande[1,i]
09/06/2023, 09h06
SINTECH

Merci infiniment pour vos conseils
ca m'a beaucoup aidé
30/10/2024, 07h53
djgsi

Une solution plus générale

Citation:

Envoyé par SINTECH

Merci infiniment pour vos conseils
ca m'a beaucoup aidé

Ayant eu le même problème que toi, j'ai trouvé une autre solution si cela peut intéresser quelqu'un (pour d'autres formats aussi).
Il faut utiliser la propriété "..Masque" :

monXls[NumLig, NumCol]..Masque = "@" // Format Texte
monXls[NumLig, NumCol]..Masque = "0" // Format numérique sans chiffres après la virgule
monXls[NumLig, NumCol]..Masque = "0.00" // Format numérique avec 2 chiffres après la virgule
etc...

Pour en arriver à la j'ai tout simplement créé un fichier excel à la main, avec des cellules de différents formats.
Puis, par programmation, j'ai lu le masque renvoyé pour chaque type.
Si cela n'est plus d'actualité pour toi, cela pourrait aider d'autres personnes.

A bientôt.