Macro appelant un fichier .xls annexe -> Pb d'accès aux données

Macro appelant un fichier .xls annexe -> Pb d'accès aux données - VB/VBA/VBS - Programmation

Marsh Posté le 10-12-2007 à 15:30:20    

Bonjour,
 
J'ai développé une macro qui effectue certain traitement sur un fichier excel séparé.
Lorsque ce fichier excel est ouvert, tous les traitements s'effectuent correctement.
Naturellement lorsque ce document n'est pas ouvert, j'obtiens une "erreur "9":  L'indice n'appartient pas à la sélection"
 
Je souhaite donc pouvoir ouvrir ce document excel automatiquement afin de pouvoir avoir accès à l'ensemble des données qu'il contient pour effectuer le traitement mais je n'y parvient pas.
J'ai essayé avec le code suivant:
 

Code :
  1. Function Principal4UO()
  3. Dim chemin As String 'Chemin d'acces au fichier source
  4.     chemin = "S:\FDD\New FDD\OUTIL EXPLOITATION\01 - OUTIL\06 - LOT PILOTE\02 - Livrables\04 - Livrables Post MEP\"
  6. Dim ClasseurATraiter As String 'fichier source
  7.     ClasseurATraiter = "Mapping_0114.xls"
  9. Dim appliExcel As New Excel.Application
  10. Dim classeur As Excel.Workbook
  11. 'Dim feuille As Excel.Worksheet
  13.     appliExcel.Visible = False
  14.     appliExcel.Workbooks.Open (chemin & ClasseurATraiter)
  15.     Workbooks(ClasseurATraiter).Worksheets("Organisation" ).Activate
  16.    
  17.     Call XML(ClasseurATraiter, "Organisation", "A" ) 'avec les paramètres
  18.    
  19.     classeur.Close 'fermeture du classeur
  20.     appliExcel.Quit 'fermeture d'excel
  22. End Function


Le classeur s'ouvre bien et est visible si je mets l'option True mais j'obtiens toujours cette erreur dès lors que je cherche à lire (dans une autre fonction) des données dans ce classeur excel.
J'ai essayer d'activer ce classeur mais toujours pareil.

Code :
  1. DLV1 = Workbooks(ClasseurATraiter).Sheets(FeuilleATraiter).Columns(Lettre2NumCol(colonneref)).Find("", , , , xlByRows, xlNext).Row - 1


Avez vous une idée?

Reply

Marsh Posté le 10-12-2007 à 15:30:20   

Reply

Marsh Posté le 12-12-2007 à 13:58:20    

UP !!!
J'ai pas bien expliqué ? ^^

Reply

Sujets relatifs:

Leave a Replay

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