Discussion :

[MelkInarian]

Bonjour à toutes et à tous ;
Mon problème du jour : Sous [D5] et [Xls 2000].
J’ai 2 classeurs Excel contenant des données compatibles.
Je souhaite mettre le 2ème à jour à partir des données du 1er.
Je passe mon appli sous Delphi car il y a 6 utilisateurs possibles et Excel n’autorise qu’un accès en écriture à la fois.
Les utilisateurs laissent souvent l’appli ouverte sans forcément saisir des données d’où cause de soucis.
Je copie les données utiles des 2 feuilles dans 2 variants (qui sont en fin de compte 2 tableaux de variants puisqu’ils contiennent chacun plusieurs milliers de cellules).
Je les ai déclarés ainsi :

Code :

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

1
2
vMSExcel, vXLClasseurs, vXLClasseur,
   vFeuille, Etendue1, Etendue2, Cellule1     : variant;

Et mon problème est là :
Comment accéder ensuite aux éléments composant les tableaux de variants pour pouvoir les traiter ?
J’ai vainement essayé avec une affectation du style :

Code :

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

Cellule1 := Etendue1.cells[‘A2’];

Dans l’espoir de récupérer la valeur ainsi :

Code :

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

MaValeur := Cellule1.Value ;

Mais une EOleError se produit avec le message ‘Le Variant ne référence pas un objet Automation’.

J’en ai déduit que c’est le type d’accès qui n’est pas bon mais je n’en suis pas sûr !
Si l’un des Maîtres de la programmation lit ce message, je serais fort aise de recevoir un coup de main.
Un apprenti qui peine seul le soir au fond des bois.

[Eric Boisvert]

Je suis pas certain d'avoir tout compris ce que tu explique...
mais si tu veux 2 feuille identique à la fin...
pourquoi ne pas simplement faire un copier coller?

Code :

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

1
2
3
4
5
6
7
8
 
 
//Active le bonne onglet
ExcelWorkSheet1.Activate;
//Selectionne toute les cellules
ExcelWorkSheet1.Cells.Select; 
//Copier coller dans le 2eme onglet
ExcelWorkSheet1.Cells.Copy( ExcelWorksheet2.Range['A1','A1']);

[MelkInarian]

Je suis pas certain d'avoir tout compris ce que tu explique...
mais si tu veux 2 feuille identique à la fin...
pourquoi ne pas simplement faire un copier coller?

Mille pardons, je n'ai pas été assez clair.
Dans l'une des tables il y a beaucoup plus de données (lignes) que dans l'autre mais dans la seconde il y a plus de champs (colonnes). En fait la première (qui est celle ou je vais chercher les données à l'origine) est enrichie par un déversement automatisé. La seconde est enrichie manuellement par des saisies de dates d'intervention. Périodiquement (par clic bouton) je veux contrôler la table 1 qui est susceptible d'avoir évolué même pour des enregistrements déjà dans la table 2. Je souhaite donc:
Ouvrir table 1
Ouvrir table 2
pour chaque enregistrement de table 1 rechercher s'il existe un enregistrement correspondant dans table 2
Si c'est le cas:
Comparer tous les champs communs (autres que des dates). s'il y a divergence:
On affiche une boite permettant de choisir ce que l'on souhaite conserver.
Comparer tous les champs dates communs.
s'il y a divergence:
Si le champ dans le fichier table 2 n'est pas vide on le conserve.
Si le champ dans le fichier table 2 est vide on le remplace.
Voici le baratin que j'avais écris comme "cahier des charges" à ma fonction.
Est-ce plus clair?
Merci

[Eric Boisvert]

essaie plutot cette syntaxe:

Code :

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

1
2
3
4
 
//var Cellule1:variant;
Cellule1:=ExcelWorkSheet1.Range['A1','A1'];
MaValeur:=Cellule1.Value;

[MelkInarian]

essaie plutot cette syntaxe:

Code :

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

1
2
3
4
 
//var Cellule1:variant;
Cellule1:=ExcelWorkSheet1.Range['A1','A1'];
MaValeur:=Cellule1.Value;

Je suis donc obligé de garder les 2 classeurs ouverts pendant le temps de traitement.
J'espérais pouvoir faire tout le traitement sur les variants et ensuite rouvrir les classeurs pour sauvegarder les modifications.
Mais quand il faut, il faut!

Merci Eric Boisvert