Bonjour à tous,
Je rencontre un bugge dans mon programme, qui selon moi n'a aucun rapport avec mes instructions. Le code est le suivant :

feuilexcel1 représent un classeur Excel d'étalonnage pour un produit étalon.
feuilexcel2 est la base de données de ces étalons, dont la colonne B contient le nom des étalons (ce même nom est utilisé pour nommer les classeurs d'étalonnage)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i=5 to 316
If feuilexcel2.Worksheets("feuil1").range("B" & i).Value <> "" then 'sert à ignorer les cellules vides
feuilexcel1 = GetObject ("C:\Etalons\" & feuilexcel2.Worksheets("feuil1").range("B" & i).Value
feuilexcel2.Worksheets("feuil1").range("F" & i).Value = feuilexcel1.Worksheets("feuil1").range("A12").Value  
End if
Next
A la ligne : If feuilexcel2.Worksheets("feuil1").range("B" & i).Value <> "", j'ai le message d'erreur suivant : Le serveur RPC n'est pa disponible !!
Je ne vois pas le rapport entre mes instructions et le message d'erreur. Quelqu'un a-t-il une idée, merci d'avance.