Discussion :

[chito79000]

Bonjour à tous,

J'ai un petit soucis sur mon code VBA, voici un extrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set O1 = Workbooks("Fichier 1.xlsx")
Set O2 = Workbooks("Fichier 2.xls")

Cela me note un erreur "l'indice n'appartient pas à la selection".

[Philippe Tulliez]

Bonjour,
Ce message signifie que l'élément indicé (le nom entre guillemets) ne fait pas partie de la collection (ici les classeurs ouverts dans l'instance en cours).
Il faut donc d'abord ouvrir les classeurs.

[chito79000]

Bonjour,

Le souci c'est que le fichier est ouvert

[Philippe Tulliez]

Bonjour,

Le souci c'est que le fichier est ouvert

Peut-être pas dans la même instance d'excel que ton classeur où est écrite ta procédure.
Insère ces lignes avant la ligne où tu as l'erreur et regarde si les classeurs sont repris dans la liste qui s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim wkb As Workbook, txt As String
 txt = "Liste des classeurs ouverts" & vbCrLf
 For Each wkb In Workbooks
  txt = txt & vbCrLf & wkb.Name
 Next
 MsgBox txt