Ouvrir une feuille excel

Ouvrir une feuille excel - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2006 à 20:43:59    

Bonjour,
voila je vais devoir effectuer un stage dans un ptit mois et je derais certainement utiliser le VBA pour manipuler des feuilles excel, donc j'essaye de voir un peu comment ça fonctionne mais j'ai fait un exemple tout simple et j'ai une erreur, voici le code source :

Code :
  1. Sub Ouvrir()
  2.     Dim appexcel As Excel.Application
  3.     Dim wbexcel As Excel.Workbook
  4.     Set appexcel = CreateObject("Excel.Application" )
  5.     appexcel.Visible = True
  6.     Set wbexcel = appexcel.Workbooks.Open("C:\Stage\test.xls" )
  7. End Sub


Voici le message d'erreur : Erreur d'exécution '91' : Variable objet ou variable de bloc With non définie
 
Voila, j'espère que vous pourrez m'aider

Reply

Marsh Posté le 17-03-2006 à 20:43:59   

Reply

Marsh Posté le 17-03-2006 à 21:17:56    

Tu n'aurais pas oublié d'inclure la référence de Microsoft Excel (ou Office) ? J'ai pas VB sous la main, je ne sais plus dans quel menu trouver ça... (peut-être Outils > Références...)

Reply

Marsh Posté le 17-03-2006 à 21:23:34    

non j'ai bien ajouter la bonne bibliothèque

Reply

Marsh Posté le 17-03-2006 à 21:58:41    

Ton chemin est correct? Il ne manquerait pas un morceau du type:
Documents and Settings\Administrateur\Mes documents\ même s'il est vrai que tu aurais plutôt un message d'erreur qui dirait fichier introuvable?
 
 

Reply

Marsh Posté le 18-03-2006 à 10:13:31    

Non le chemin est bon j'ai bien vérifier, j'ai même essayé de mettre un chemin faut mais ça ne change pas le message d'erreur.

Reply

Marsh Posté le 18-03-2006 à 10:44:54    

Salut hacksi,
Tu peux éventuellement essayer avec :

Code :
  1. Set appexcel = New Excel.application


Autres question conne mais tu n'as pas précisé dans quelle application tu travaillais en VBA...
 
@+

Reply

Marsh Posté le 18-03-2006 à 10:50:41    

Ok je vais essayer.
Je suis sous access 2003

Reply

Marsh Posté le 20-03-2006 à 19:00:36    

Ok merci cette solution fonctionne :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed