Discussion :

[MFDev]

Oui, cela marche, mais uniquement avec des valeurs Chaînes...
varOleStr = 8, mais un nombre = 5.
Et varNull donne 1, alors qu'une cellule vide donne 0...
j'ai modifié la boucle comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
		while vType <> 0 do 	// varNULL do //les colonnes
			begin
				repeat
						Valeurs.Cells[j,i] := MaFeuille.Cells.Item[i,j].Value;
						i:=i+1;
						//Range := Format('%s%d:%S%d',[Chr(65+i),i,Chr(65+j),j]);
						//vType := VarTYpe(MAFeuille.Range[Range].Value);
						vType := VarTYpe(MaFeuille.Cells.Item[i,j].Value);
				Until vType = 0;	// varNULL;
				j:=j+1;
				i:=1;
				vType := VarTYpe(MaFeuille.Cells.Item[i,j].Value);
			end;

Ce que je ne comprends pas c'est pourquoi il n'y a plus d'erreur de conversion lors de la copie...
Fabrice

[Caine]

Oui, effectivement, merci pour cette modification.

Dans le cas où vtype n'est pas correct, l'appel à la méthode Value déclenche une exception de type OleVariant incorrect.

Pour éviter ça, j'ai donc pensé à un code défensif: Savoir en amont si le type permet l'utilisation de Value.