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 :
- Function Principal4UO()
- Dim chemin As String 'Chemin d'acces au fichier source
- chemin = "S:\FDD\New FDD\OUTIL EXPLOITATION\01 - OUTIL\06 - LOT PILOTE\02 - Livrables\04 - Livrables Post MEP\"
- Dim ClasseurATraiter As String 'fichier source
- ClasseurATraiter = "Mapping_0114.xls"
- Dim appliExcel As New Excel.Application
- Dim classeur As Excel.Workbook
- 'Dim feuille As Excel.Worksheet
- appliExcel.Visible = False
- appliExcel.Workbooks.Open (chemin & ClasseurATraiter)
- Workbooks(ClasseurATraiter).Worksheets("Organisation" ).Activate
-
- Call XML(ClasseurATraiter, "Organisation", "A" ) 'avec les paramètres
-
- classeur.Close 'fermeture du classeur
- appliExcel.Quit 'fermeture d'excel
- 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 :
- DLV1 = Workbooks(ClasseurATraiter).Sheets(FeuilleATraiter).Columns(Lettre2NumCol(colonneref)).Find("", , , , xlByRows, xlNext).Row - 1
|
Avez vous une idée?