Discussion :

[Matmal11]

Bonjour,

Je suis actuellement en train de développer une macro afin de lire des données dans un fichier et les écrire dans des cellules données.
Je lis mon fichier, et enregistre chaque valeur nécessaire dans une matrice.

Je veux par exemple, écrire les valeurs suivantes dans les cellules correspondantes:

mat(1) --> cell(3,2)
mat(2) --> cell(3,4)
mat(3) --> cell(3,5)

et bien d'autres encore...

J'ai essayé de déclarer un objet Worksheet comme ca:

Code :

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

1
2
Dim mafeuille As Worksheet
Set mafeuille=ActiveWorkSheet

J'ai également essayé ca:

Code :

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

1
2
Dim mafeuille As Excel.WorkSheet
Set mafeuille As ActiveWorkSheet

mais j'ai le message suivant qui apparait:

Type de donnée WorkSheet inconnue

Je ne sais pas comment faire, pouvez-vous maiguiller s'il vous plait?

Je travaille sous Linux Solaris 2.10 avec Staroffice 8.

Merci
Mat

[ThierryAIM]

Je pense que ce sujet aura plus de chance ici

[Matmal11]

J'ai trouvé la solution,

Il faut déclarer le document, la feuille et la cellule comme objet:

Code :

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

1
2
3
Dim document As Object
Dim mafeuille As Object
Dim cell As Object

Ensuite on défini chacune des variables ainsi:

Code :

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

1
2
3
4
5
doc = StarDesktop.CurrentComponent
mafeuille = doc.sheets(0)
cell = mafeuille.GetCellByPosition(a,b)
cell.String = "Salut"
cell.Value = 1

Voila,
@++
Mat