Discussion :

[johan0510]

Bonjour,

Je souhaite récupérer les données d'un fichier WinDev dans un fichier Excel.

Voici mon 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
18
19
20
21
22
 
FichierXLS est un xlsDocument
FichierXLS = xlsOuvre(sRépertoire + "\test.xlsx", xlsEcriture)
iTaille est un entier = 100
i est un entier = 2
 
HLitRecherchePremier(Clients, NumeroClient, [Facture.NumeroClient])
 
TANTQUE HTrouve(Clients)
 
xlsAjouteFeuille(FichierXLS,Test,1)
FichierXLS[1, "A"] = "Numero Client"
FichierXLS[1, "B"] = "Nom Client"
 
POUR i = 2 A iTaille
FichierXLS[i, "A"] = Clients.NumeroClient
FichierXLS[i, "B"] = Clients.NomClient
HLitSuivant(Clients, NumeroClient)
 
FIN
xlsSauve(FichierXLS)
FIN

J'incrémente iTaille à 100 par défaut.

Je ne sais pas comment faire pour lui dire d'arrêter le traitement lorsque toutes les données du fichier WinDev ont été traitées.

Avez vous une idée ?

Merci pour votre aide.

[ErwanA]

Bonjour,

Je rajouterais cette ligne de code

Code :

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

si pas Htrouve(Clients) ALORS SORTIR

soit

Code :

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

1
2
3
4
5
6
7
8
POUR i = 2 A iTaille
si pas Htrouve(Clients) ALORS SORTIR
 
FichierXLS[i, "A"] = Clients.NumeroClient
FichierXLS[i, "B"] = Clients.NomClient
HLitSuivant(Clients, NumeroClient)
 
FIN

[johan0510]

Bonjour ErwanA,

D'accord du coup je met seulement :

Code :

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

iTaille est un entier

Merci je vais tester.

[mail.spam]

bonjour,

Tu peux simplement incrémenter itaille dans ton tantque

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
FichierXLS est un xlsDocument
FichierXLS = xlsOuvre(sRépertoire + "\test.xlsx", xlsEcriture)
iTaille est un entier = 2
 
SI HLitRecherchePremier(Clients, NumeroClient, [Facture.NumeroClient]) ALORS
 
	xlsAjouteFeuille(FichierXLS,Test,1)
	FichierXLS[1, "A"] = "Numero Client"
	FichierXLS[1, "B"] = "Nom Client"
	TANTQUE HTrouve(Clients)
		iTaille++
		FichierXLS[iTaille, "A"] = Clients.NumeroClient
		FichierXLS[iTaille, "B"] = Clients.NomClient
		HLitSuivant(Clients, NumeroClient)
	FIN
	xlsSauve(FichierXLS)
FIN

[johan0510]

Bonjour mail.spam,

J'ai repris ta solution et cela fonctionne correctement.

Idem pour ErwanA.

Merci à vous !

[ErwanA]

Je n'ai p-e pas compris le code mais pour moi iTaille=100 permet d'avoir des feuilles excel de 100 clients maximum.

[johan0510]

Je n'ai p-e pas compris le code mais pour moi iTaille=100 permet d'avoir des feuilles excel de 100 clients maximum.

Oui c'était bien pour cela à la base, mais je voulais que ça s'arrête automatiquement lorsqu'il y a plu de données dans le fichier WinDev

[laurent30s]

Perso j'aurais fait une requête pour avoir les colonnes souhaitées dans l'ordre souhaité.
En suite je l'aurais fait afficher dans une table cachée (en dehors de la fenêtre)
Pour finir un simple TableVersExcel() et le tour est joué...