Mais ou est l'erreur ? 1004 .range _Global Résolu

Question

Bonjour,

erreur 1004  Cells _Global
Le problème ce situe dans la boucle For au niveau du activesheet Cells
Je ne vois pas ce qui bug.

Merci beaucoup pour vos lumières.

Private Sub service_box_Change()

    Elmt_projet.responsable_box.Clear
    
    If service_box = "Nom_du_service" Then
    
    ExcelFile = "c:\MONFICHIER.xls"
    Table = "Feuil1"
    Set xlAppList = CreateObject("Excel.Application")  'crée une instance excel
    Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "")    'ouvre ce fichier excel
    MyWorkbook.Sheets(Table).Select 'Selection la table
      
    For Each c In ActiveSheet.Range("L2", "L" & Trim(Str(Cells(65535, 1).End(xlUp).Row)))
        ' Trim(Str(Cells(65535, 1).End(xlUp).Row)) = Repère la dernière cellule remplie de la colonne
        Elmt_projet.responsable_box.AddItem Sheets(Table).Cells(c.Row, 12)
    Next

     'penser à refermer le classeur en l'enregistrant si il a été modifié
    MyWorkbook.Close savechanges:=True
    Set xlAppList = Nothing
    Set MyWorkbook = Nothing
    Excel.Application.Quit
    
    End If
End Sub

cazimiro · Answer

Bug avec CElls toujours pas résolu
une idée?

cazimiro · Answer

Please un petit coup de pouce?

cazimiro · Answer

1004 mais comment marche range, cell et cells???

cazimiro · Answer

Alors voyons quels informations je peux vous donner:

Clairement je suis perdu. la boucle for ne fonctionne pas
Il ne parcours pas le fichier pourtant il l'ouvre à la bonne feuille

le père · Answer

Bonjour,

aucun message d'erreur ? juste que le résultat n'est pas celui que tu veux ?

Mais ou est l'erreur ? 1004 .range _Global

5 réponses

Discussions similaires

Newsletters