Bonjour à tous,

Comme cité dans le titre du topic j'ai une erreur de type 9 qui apparaît lors de l'exécution de mon code.
Celui ci a pour but d'aller chercher une chaîne de caractère dans le fichier excel s'appellant maListe(Compteur) - cette liste recense tous les noms des ficheirs qui me seront nécessaires - , dans la feuille Dépenses prévisionnelles et dans la cellule c6.
La valeur doit alors être attribuée à la feuille Armines à la cellule (I,6+k).

J'ai envisagées plusieurs solutions(vues sur internet) dont l'ADO mais cette solution ne marche que si j'ai une base.dbf ce qui n'est pas le cas...

Pour info le classeur que je cherche à atteindre se trouve dans le même répertoire que le fichier courant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
'Affectation du nom du porteur
 
With ThisWorkbook.Sheets("ARMINES").Cells(6 + k, 9)
   temp = Workbooks(maListe(Compteur)).Sheets("Dépenses prévisionnelles").Range("C6").Value               
   If temp = "" Then
      ThisWorkbook.Sheets("ARMINES").Cells(6 + k, 9).Value = "non renseigné"
      Else: ThisWorkbook.Sheets("ARMINES").Cells(6 + k, 9).Value = temp
   End If
End With
Merci d'avance!