J'ai crée une macro sous excel 97. Cette dernière marchait parfaitement. Mais lorsque je passe sur une version supérieur d'EXCEL, j'obtient une erreur.
En effet, j'utilise la fonction Mid(string, start[, length]).
Elle marchait très bien sous 97, mais avec Excel XP et 2003, un message d'erreur apparait :" Projet ou bibliothèque introuvable".
Je ne sais pas comment faire pour résoudre ce problème?
Code :
Sub création_listing_fiches()
Dim fiche As New Collection
Dim rub As New rubrique
Dim b As Range, c As Range
Dim num As Integer
Dim t As String
'initialisation du listing
For num = 1 To listing_fiches.Count
listing_fiches.Remove (1)
Next num
'initialisation de b à la première fiche
Set b = Worksheets("index" ).Range("Numero_fiche" ).Offset(1, 0)
Do While Not (b.Value = "" )
Set c = Worksheets("index" ).Range("Numero_fiche" )
'initialisation de la fiche
Set fiche = Nothing
Do While Not (c.Value = "" )
Set rub = Nothing
rub.Nom = c.text
t = Mid(c.Name.Name, 7)
Set rub.position = Range(t)
Set rub.contenu = Worksheets("index" ).Cells(b.Row, c.Column)
je ne sais pas comment accéder à la liste des références, j'ai beau chercher dans l'aide il n'est pas mentionné comment ouvrir cette liste, et je ne la trouve pas dans les menus affichage, édition....
Ok merci beaucoup.
En fait c'était une bibliothèque Matlab qui éxistait sur mon ancien pc et par sur le nouveau, qui générait des conflits.
Je l'ai enlevé et tout marche correctement.
encore merci
