vb6 et excel

Question

Je veux cr&#233;er une application qui me pemette de r&#233;cup&#233;rer des donn&#233;es dans des classeurs excel pour afficher des tableaux et effectuer des calculs de statistiques etc...

J'ai besoin d'aide pour coder une fonction  me permettant d'ouvrir tous les fichiers excel dans un dossier donn&#233;

voici un bout de code que j'ai tent&#233; de faire fonctionner: 

Private Sub Form_Load()
    
   Dim xls As Object


   Dim cpt As Integer
   Dim nomfichier As String
    
   
   'pour chaque fichier .xls de la filelist box "file1"
   For cpt = 1 To (File1.ListCount - 1)
   
       'l'adresse du fichier &#224; ouvrir
       File1.ListIndex = cpt
       nomfichier = File1.Path & "" & File1.FileName
       
       'ouverture du fichier .xls
       Set xls = CreateObject("Excel.application")
       Workbooks.open FileName:="nomfichier", editable:=False
               
   Next
      
End Sub

Je pense ke soit je m'y prend mal soit il y &#224; une erreur dans le code que je ne trouve pas je vous remercie de votre aide

cs_lim · Answer

enl&#232;ve les " de ta variable nomfichier 

Workbooks.open FileName:=nomfichier, editable:=False

car l&#224; tu lui demande d'ouvrir un fichier aui s'applle nomfichier et non pas le contenu de ta variable

@+
LIM

cs_Yoyo2B · Answer

va voir l&#224; : http://www.vbfrance.com/code.aspx?ID=32114
c pas exactement ce que tu cherche, mais dans la classe de y'a des instruction de manipulation d'objets excel, &#231;a devrait t'aider :)

happy coding ...

lololegrunt · Answer

=> lim: j'avais d&#233;j&#224; rep&#233;r&#233; cette erreur, toutefois ca ne marche pas mieux :-/
    l'erreur est: erreur 424 un objet est requis

=>Yoyo2B: je regarderais ca ce soir merci pour le lien

Vb6 et excel

3 réponses

Discussions similaires