Discussion :

[Sythris]

Bonjour,

J'essaye depuis ce matin de copier le contenu d'un fichier .xls vers un autre pour mettre à jour les données qui y sont déjà.
Mais le problème est qu'une fois le traitement fini le second fichier n'a pas été modifié.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
// Déclaration des variables
nIDFichierSource est un entier
sChaîneLueSource est une chaîne
nIDFichierDestinataire est un entier
sChaîneLueDestinataire est une chaîne
clDestination est un objet c_Excel
i est un entier
 
// Ouverture via la classe c_Excel
clDestination:Ouvrir(gsCheminDestinataire)
clDestination:SelectionnerFeuille("Feuil5")
 
// Initialisation du pointeur
i = 2
 
// Ouverture du fichier destinataire
nIDFichierDestinataire = fOuvre(gsCheminDestinataire,foLecture)
SI nIDFichierDestinataire <> -1 ALORS
 
	// Lecture du fichier destinataire
	sChaîneLueDestinataire = fLitLigne(nIDFichierDestinataire)
	TANTQUE sChaîneLueDestinataire <> EOT
 
		// Ouverture du fichier source
		nIDFichierSource = fOuvre(gsCheminSource,foLecture)
		SI nIDFichierSource <> -1 ALORS
 
			// Lecture du fichier source
			sChaîneLueSource = fLitLigne(nIDFichierSource)
			TANTQUE sChaîneLueSource <> EOT
 
				// Test pour trouver les deux lignes se correspondant dans chaque fichier
				SI ExtraitChaîne(sChaîneLueSource,2, ";") = ExtraitChaîne(sChaîneLueDestinataire,2, ";") ALORS
 
					// Test pour détecter si il y a besoin d'une modification
					SI ExtraitChaîne(sChaîneLueSource,5, ";") <> ExtraitChaîne(sChaîneLueDestinataire,5, ";") ALORS
 
						//Affectation des valeurs du fichier source dans le fichier destinataire
 
						clDestination:EcrireXY(ExtraitChaîne(sChaîneLueSource,5, ";"),5,i)
						clDestination:EcrireXY(ExtraitChaîne(sChaîneLueSource,6, ";"),6,i)
						clDestination:EcrireXY(ExtraitChaîne(sChaîneLueSource,7, ";"),7,i)
						//clDestination:EcrireValeur("E"+i, ExtraitChaîne(sChaîneLueSource,5, ";"))
						//clDestination:EcrireValeur("F"+i, ExtraitChaîne(sChaîneLueSource,6, ";"))
						//clDestination:EcrireValeur("G"+i, ExtraitChaîne(sChaîneLueSource,7, ";"))
 
					FIN
				FIN
				// Ligne suivante fichier source
				sChaîneLueSource = fLitLigne(nIDFichierSource)
			FIN
		SINON
			Erreur("Une erreur a été détectée pendant la récupération des données.")
		FIN
		// Fermeture du fichier source
		fFerme(nIDFichierSource)
 
		// Ligne suivante fichier destinataire
		sChaîneLueDestinataire = fLitLigne(nIDFichierDestinataire)
 
		// Incrémentation du pointeur
		i++
	FIN
 
	Info(gsCheminDestinataire,"a été mis à jour avec succès")
 
SINON
	Erreur("Une erreur a été détectée pendant la récupération des données.")
FIN
 
// Fermeture du fichier destinataire
fFerme(nIDFichierDestinataire)
 
// Fermeture du fichier de classe
clDestination:Fermer()
 
// Fermeture de l'application
Ferme(FEN_MAJ)

Etant donné que je ne reçois aucun message d'erreur je pencherais pour une mauvaise utilisation de la fonction EcrireXY mais je n'arrive toujours pas à trouver de solution.

Si quelqu'un a une solution je suis preneur !

Cordialement.

[tatayo]

Bonjour,
Un fichier excel n'est pas un simple fichier texte, donc je ne pense pas que fouvre/flitligne soit la bonne méthode pour les lire.
Regarde plutôt du côté des fonctions xls*.
De plus, j'ai du mal à comprendre la logique de ton code, vu que tu ouvres le fichier destination avec fouvre, et avec la classe excel...

Tatayo.

[Sythris]

Merci de m'accorder du temps.

J'avais déjà utilisé fouvre et flitligne pour récupérer des données dans un fichier .csv donc je pensais que je pourrais les réutiliser sur un .xls.

Pour le mélange entre la classe excel et les fonctions fichiers c'est tout simplement que je ne maîtrise pas assez la classe excel et que j'ai du mal à trouver des explications.

Cordialement.

[hpascal]

Bonjour

Si tu ouvres le fichier avec fOuvre les méthodes de c_Excel vont échouer (à vérifier)

Dans les méthodes de cette classe il y a un QUAND EXCEPTION, ajoute y l'affichage du message d'erreur
Un truc du style :

Code :

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

1
2
3
QUAND EXCEPTION
   SI EnModeTest() ALORS Erreur(ExceptionInfo())
   ...

Tu sauras alors rapidement où est ton problème, bien qu'on le devine (voir message de tatayo) : on ne lit pas un fichier Excel avec fouvre/flitligne, ce n'est pas un fichier texte

[djejackk]

Bonjour,

Perso, je n'utilise pas la classe cExcel, mais directement les types et fonctions qui vont bien dans WinDev.

Petit tour sur F1 vite fait, on trouve ça : http://doc.pcsoft.fr/fr-FR/?10000174641000000000000
"Le code suivant permet de parcourir toutes les cellules des différentes feuilles d'un fichier XLS."

En adaptant un peu (après avoir regardé les exemples qui vont bien et lu un peu la doc), ça devrait être un jeu d'enfant !

Cordialement

[frenchsting]

Pour le parcours, les fonctions xls suffisent. Par contre, pour l'écriture dans un fichier excel, il faut passer par la classe (je ne l'ai jamais utilisée directement) ou par l'activeX (là, je me débrouille plutôt bien ).

Dans les 2 cas, c'est la même chose : l'un est en objet, l'autre en code "normal".

[Sythris]

Bonjour,

J'ai enfin réussi à trouver une solution, j'ai transformé mon premier fichier .xls (celui dans lequel je récupère mes données) en .csv pour pouvoir utiliser ExtraitChaîne().
Ensuite j'utilise la classe c_Excel pour les insérer dans mon second fichier qui lui est resté en .csv.
Le tout fonctionne parfaitement.

Merci à tous pour vos réponses qui m'ont aidé à trouver cette solution !

Bonne continuation à vous !

Sythris

[gancau]

Bonjour
l'interêt de la classe c_excel n'est-il pas de rester en xls. si tu as des fichiers en csv, il est inutile de les ouvrir comme cela. un simple fouvre avec les paramètres d'écriture et des boucles suffirait, non ?

Gancau

[frenchsting]

C'est clair que c'est bcp plus simple d'utiliser les fonctions sur les chaines que d'utiliser les fonctions xls/activex si tu restes en mode texte (csv).