Bonjour,
Je fais face à un problème de code que je n'arrive pas à résoudre. Je développe et exploite depuis quelques mois un fichier en vba. Le fichier fonctionne parfaitement sur le PC de développement mais dès que je bascule le fichier sur un autre PC, j'ai un erreur qui apparait : "Erreur 91: Variable objet ou variable de bloc with non définie".
Je vous colle dessous le bout de code:
- Sur le PC de développement, la feuille wksSynthèse s'affiche après exécution de la macro
- Sur deux autres PC, plantage du code, erreur 91 sur la ligne "oFeuilleDestination.activate"
PS: des variables sont déclarées en global
Option Explicit
Sub Import_AV()
Dim Ligne As Range
Dim oLigneDestination As ListRow
Dim oColDestination As ListColumn
Dim oLigneSource As ListRow
Dim oLigneCopie As ListRow
Dim dlg As Integer
Dim DerTransaction, DerFee, DerAmount, DerPrice As String
Dim Choix As Integer
Dim nLigne As Long
Dim Résultat As Long
Application.Calculation = xlCalculationAutomatic
'Déclaration workbook de destination
nomClasseurDestination = ThisWorkbook.Name
Set oClasseurDestination = Workbooks(nomClasseurDestination)
'Déclaration feuille de destination
Set oFeuilleDestination = getFeuilleNommée(oClasseurDestination, "wksSynthèse")
oFeuilleDestination.Activate
End Sub
Function getFeuilleNommée(nomClasseur As Workbook, NomFeuille As String) As Worksheet
On Error Resume Next
Set getFeuilleNommée = nomClasseur.Sheets(SheetName(ThisWorkbook, NomFeuille))
If getFeuilleNommée Is Nothing Then
getFeuilleNommée = ""
End If
End Function
Function SheetName(nomClasseur As Workbook, CodeName As String) As String
On Error Resume Next
SheetName = nomClasseur.VBProject.VBComponents(CodeName).Properties("Name").Value
End Function