Activesheet : mettre à jour une feuille active d'excelRésolu

Question

Bonjour!

je dois mettre à jour des infos les infos d'une feuille excel active mais je rencontre une difficulté. 

J'ai un problème avec la fonction activesheet! Quelqu'un peut il me dire ce qui ne va pas dans mon code?

Merci d'avance

Voici le code! 

'Définir la variable InvDrawDoc comme le fichier actif *.idw
     Dim InvDrawDoc As DrawingDocument
     Set InvDrawDoc = InvApp.ActiveDocument
                    
'Définir la variable InvSheet comme la feuille active du fichier *.idw
     Dim InvSheet As Sheet
     Set InvSheet = InvDrawDoc.ActiveSheet
     
'Définir la variable InvList comme la liste de pièce de la feuille active
     Dim InvList As PartsList
     Set InvList = InvSheet.PartsLists.Item(1)


'Définir la variable XlsApp comme l'application excel
     Dim XlsApp As Application
     Set XlsApp = Excel.Application
     
     With XlsApp
               'Définir la variable  XlsClass comme le classeur Excel
               Dim XlsClass As Workbook
               Set XlsClass = .Workbook
               
               With XlsClass
                     'Définir la variable XlsSheet comme la feuille active d'Excel
                     Dim XlsSheet As Sheet
                     Set XlsSheet = .ActiveSheet
               End With
     End With

SiD





SiD

cs_Orohena · Accepted Answer

Bonjour Sid

Cela vient peut-être de la ligne Set XlsClass = .Workbook
Peux-tu essayer Set XlsClass = .ActiveWorkbook

Amicalement

Activesheet : mettre à jour une feuille active d'excel

1 réponse

Votre réponse

Discussions similaires