Problème d'accés à un fichier source VBA

Salut tout le monde!

Je voudrais alimenter une combobox avec le nom de toutes les feuilles d'un classeur grâce au code suivant:

Dim xlapp As New Excel.Application
Dim xlbook As New Excel.Workbook

    Set xlbook = xlapp.Workbooks.Open("C:\Users\...\BaseDonnéesPesée.xls")
    Set mondico = CreateObject("Scripting.Dictionary")

    With xlbook
        For i = 1 To .Sheets.Count
            If Not mondico.Exists(.Sheets(i).Name) Then
                mondico.Add .Sheets(i).Name, .Sheets(i).Name
            End If
        Next i
    End With

    Application.DisplayAlerts = False
    xlbook.Close savechanges:=False
    Application.DisplayAlerts = True

    xlapp.Quit
    Set xlbook = Nothing
    Set xlsheet = Nothing

    With Me.NumCheptel
        .List = mondico.items
    End With

Cà marche trés bien pour un userform mais un autre me dit "Erreur execution 70, Accès refusé"

Qu'est ce qui se passe je vous le demande?

A L'AIDE! et à bientôt

Ce forum est vraiment trop fort!!

Il suffit que je mette mon problème en ligne pour que je le regarde et que je trouve la solution!

Alors je vais me répondre!

Greg, as-tu vérifié si tu n'as pas déjà entré une valeur dans la propriété rowsource de ton combobox? Si c'est le cas il ne te reste plus qu'à la supprimer et tout devrait rentrer dans l'ordre!

Dans l'attente de te relire!

AAAAHHHHH effectivement!

J'avais nommé une plage que j'avais mis manuellement dans la propriété rowsource!!!!

Merci encore et à bientôt!!

Rechercher des sujets similaires à "probleme acces fichier source vba"