FORUM WINDEV

Bonjour à tous ! Je viens une nouvelle fois poster pour demander de l'aide.
J'aimerai pouvoir écrire des données dans un fichier excel déja existant.
Par exemple j'aimerai écrire des données provenant de mon fichier "structures" sur la page2 de mon classeur excel, qui possède déja des données existantes sur la page1.

J'ai vu sur la plupart des forums un code similaire à celui ci:

Code: Tout sélectionner

// Création de objets automation dynamiques
MaFeuilleXLS est un objet Automation dynamique

// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
   // Récupération de l'instance de Excel existante
   MaFeuilleXLS = ObjetActif("Excel.Application")
SINON
   // Allocation de l'objet automation "MaFeuilleXLS"
   MaFeuilleXLS = allouer un objet Automation "Excel.Application"
FIN

// Excel devient invisible
MaFeuilleXLS>>Visible = faux
// Ouverture d'un classeur d'Excel
MaFeuilleXLS>>Workbooks>>Add()
// Affectation de plusieurs valeurs
i est entier sans signe sur 2 octets
i=2
MaFeuilleXLS>>Range("A"+2)>>Value ="valeur1"
MaFeuilleXLS>>Range("B"+2)>>Value ="valeur2"
nbre_lignes, inter est entier
QUAND EXCEPTION DANS
   nbre_lignes=TableOccurrence(table)
   TANTQUE i<=nbre_lignes
                MaFeuilleXLS>>Range("A"+i)>>Value =table[i,x]
                i++
                fin
FIN
MaFeuilleXLS>>Visible = Vrai


Le problème est qu'il crée un nouveau classeur excel et qu'il ne permet pas d'en ouvrir un ancien.
J'espère avoir été assez explicite, merci d'avance !

Bonjour,
Essayez cette ligne :
MaFeuilleXLS>>Workbooks(index)>>Activate

Bonne continuation

Merci pour cette première réponse, je vais tester cette ligne, le seul pb est à koi correspond la variable index ?
index = xlsOuvre("nomfichier.xls") ?

problème résolu, il suffit en fait de tout simplement spécifier le chemin d'accès au fichier à la ligne :

Code: Tout sélectionner

MaFeuilleXLS>>Workbooks>>Add()


Ce qui donne quelquechose qui ressemble à ca :

Code: Tout sélectionner

MaFeuilleXLS>>Workbooks>>Add(fRepEnCours() + "\Nomdufichier.xls")


Merci quand même pour votre aide.
PS:le code windev/excel est identique à celui pour vb/excel, il suffit de changer tout les "." par des ">>".
bonne journée[/quote]