Manip de fichier excel

Messages postés
8
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2006
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
"Salut !



 



Je cherche à manipuler un classeur de calcul Excel
depuis Visual Basic 6. Celui contient plusieurs feuilles de formules et des
macros qui automatisent certains calculs impossibles à faire
autrement.




L'interface contient des zones de saisies de
valeurs qui lorqu'on clique sur un bouton sont transmises au fichiers excel, et
utilisées pour les calculs.




Les résultats des calculs sont alors renvoyés à
l'interface qui les affiche dans  des zones de textes.



 



Seulement je pèche pour faire ces manipulations,
l'instruction Workbooks.open filename := "blablabla.xls" ne semble pas
fonctionner....




Quelles instructions utiliser pour ouvrir, et
fermer le fichier Excel ?




Pour écrire et lire des données dans ce même
fichier ?




Pour éxécuter les macros du fichier ?



 



Un grand merci d'avance...... :)




Darta"



 


 


 



Xavier ARNAUD



 

Nouveau : Site perso photographie
[javascript:ol('http://www.darta.20mn.com'); http://www.darta.20mn.com]

5 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Depuis VB6, Une fois la référence Microsoft Excel 9.0 Object Library Ajoutée. (ou equivaent)

1 - Quelles instructions utiliser pour ouvrir, et fermer le fichier Excel ?

Dim XlApp As New Excel.Application 
Dim XlWBook As Excel.Workbook 

Set XlWBook = XlApp.Workbooks.Open("C:\blabl\abla.xls") 

'[Toutes les modifs]

'Fermeture du classeur
Call XlWBook.Close(True) 
'Ou False si Tu ne veux pas sauvegarder les modif

'Quitte Excel
Call XlApp.Quit 
'Destruction des objets
Set XlWBook = Nothing 
Set XlApp = Nothing 

2 - Pour écrire et lire des données dans ce même fichier ?
Dim CelVal As String 
'lecture de données:
'Pour A1 de la feuille NomDeLaFeuille
CelVal = XlWBook.Worksheets("NomDeLaFeuille").Range("A1").Value  'Ou .Text
'Ecriture
XlWBook.Worksheets("NomDeLaFeuille").Range("A1").Value = CelVal 

3- Pour éxécuter les macros du fichier ? => J 'vais voir essaie deja tout ca

@+,   Ju£i?n
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

pour le 3/, perso je n'ai jamais réussi, la seule façon que j'ai trouvé, c'est en contourant par l'instruction OnTime, je lui disais la procédure à exécuter à maintenant + 1 seconde.

L'aide de vb donne une syntaxe pour l'exécution d'une macro, qui chez moi n'a jamais fonctionné.

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
8
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2006

merci à vous... pourrais-tu m'en dire un petit peu plus sur ta technique du "ontime", Mortalino, stp ?
Messages postés
8
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2006

En fait.... ces instructions ne semblent pas marcher :-(...
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Dur dur le retour de vacances....
> dartagnian81: Expliques un peu mieux lorsque tu dis "ne semblent pas marcher".

@+,   Ju£i?n