Erreur d'exécution 432 Nom du fichier ou de la classe introuvabl

Bonjour

Je tiens d'abord à signaler que je suis novice en programmation macro sous excel

J'utilise un fichier excel avec des macros qui fonctionnait sous 2003 mais bug sous 2007

Voici le début du codage :

Sub Sam2()
'
' EXECUTION_GENERALE Macro
'
Dim obj, objxl As Object ' Variables d' objets Excel

Dim MyData As DataObject
Dim src, source, nb_lignes, nb_lines, i, j, k As Integer
Dim xls_file, xls_path, dif_file, dif_path, nom_classeur, txt, nv As String
Dim colonne(15) As String ' sert pour "conversion" du dif par rechercher/remplacer (",","."...)
Dim coldates(10) As String ' sert pour formatage des dates
Dim colheures(10) As String ' sert pour formatage des heures
Dim import As Boolean
Dim copier_formules As Boolean
Set MyData = New DataObject ' Sert au vidage du presse-papier avant fermeture dif

copier_formules = False

Application.ScreenUpdating = False
Application.DisplayAlerts = False


xls_file = ActiveWindow.Caption ' Récupération du nom du fichier XLS en cours (--> permet le renommage)

'Identification du fichier dif:
nom_classeur = VBA.Left$(xls_file, Len(xls_file) - 4)
dif_file = nom_classeur & ".dif"
xls_path = ActiveWorkbook.FullName
dif_path = VBA.Left$(xls_path, Len(xls_path) - 4) & ".dif"

Set objxl = GetObject(dif_path)

Je cherche à ouvrir un fichier DIF et le copier dans le ficher XLS en cours d'ouverture.
Les fichiers sont dans le même repertoire.
Quand j'arrive sur la dernière ligne j'ai un message d'rreur:
Erreur d'exécution 432
Nom du fichier ou de la classe introuvable lors de l'opération
Automation

Merci de votre aide