Migration Excel13 vers Excel21 - Erreur '91
Bonjour,
Je début une activité VBA de migration d'outils Excel version 2013 vers version 2021. J'ai un programme qui fonctionne correctement sur 2013 et 2016 mais une fois arrivé sur 2021 j'ai cette erreur '91' erreur d'exécution : variable objet ou variable de bloc With non définie.
J'ai cherché sur internet je pense avoir compris que ca pouvait être un soucis de déclaration ou qu'un objet reçoit une valeur Nothing. Mais dans mon cas, sachant qu'il fonctionne sur d'autres versions j'ai du mal à comprendre le soucis. J'aurais besoin de votre aide surtout pour la compréhension.
Voici la fonction:
Public Sub A429_Jitters_Local()
'
' A429_Jitters Macro
'
Dim wbMaster As Workbook
Application.ScreenUpdating = False
Set wbMaster = ActiveWorkbook
' Process files
Process thePath:=Application.ActiveWorkbook.Path
' Create the report
CreateReport (Application.ActiveWorkbook.Path)
' Close the application
' Application.ActiveWorkbook.Close
Application.Quit
End SubL'erreur se trouve sur cette ligne :
Process thePath:=Application.ActiveWorkbook.PathJe modifie mon post pour ajouter la fonction Process où thePath est une variable locale :
Private Sub Process(thePath As String)
' Create the list of files
Set Collect = New Collection
Dim csvFile, localPath As String
localPath = thePath & "\D-TOOL_FILES"
csvFile = Dir(localPath & "\Document_*_Conversions.csv")
Do While csvFile <> ""
Collect.Add csvFile
csvFile = Dir
Loop
' enumerate each file from the collection and process it
Dim cFile As Variant
For Each cFile In Collect
ProcessSheet myFileName:=localPath & "\" & cFile ' , BusSpeed:=Speed
Next
End SubMerci d'avance pour votre aide
Bonjour AM31 et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum qui vous aidera dans vos demandes et réponses sur ce forum
- Quelques fonctionnalites du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Concernant votre demande, merci de joindre un fichier anonymisé si possible, il manque 2 fonctions à ce que vous avez donné
Merci pour votre participation
Cordialement