Bonjour  
je viens de récupérer un fichier avec des macros qui fonctionnaient sous 2003 mais bug sous 2007
Voici le début de la macro
 
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
 
' import = True ' si import=false on traite la liste en cours sinon on importe le dif
copier_formules = False
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
' If import = True Then
 
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)
Set objxl = Nothing
 
l'erreur "erreur d'execution 432 nom du fichier ou de la classe introuvable lorsde l'opération Automation "  s'affiche à l'avant dernière ligne (set objxl = Getobject(dif.path))
Je récupère un fichier .dif que je colle dans un fichier .xls
les 2 se trouvent dans le même répertoire
 
Merci de vore aide.
 
Olivier

Getobject(dif_path) plutôt non?
 
je dis peut être de la merde j'ai pas tout lu
 
edit : Si tu repasses un jour par là

 
           Bonjour.   Même en 2003 dans l'état cela ne peut fonctionner ‼   (et pour l'avoir vérifier)
           Effectivement, cela sent la coquille d'un copier / coller …