Erreur d'execution '432'

[ofouquay]

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
'
'On Error Resume Next
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 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

 

[ofouquay]

Re : Erreur d'execution '432'

Bonjour

Désolé, j'ai oublié d'écrire le code complet de l'erreur

Erreur d'execution 432
nom du fichier ou de la classe introuvable lors de l'opération
Automation

 

[Dranreb]

Re : Erreur d'execution '432'

Bonsoir
Mettez Option Explicit en tête de vos modules: Variable non déclarée auraut été plus clair !

Dim xls_file, xls_path, dif_file, dif_path, nom_classeur, txt, nv As String
…
GetObject(dif.Path)

À noter: dans la déclaration, seul nv est déclaré As String, les autres qui précèdent, faute de spécification, sont assumés As Variant.

Cordialement.

 

[ofouquay]

Re : Erreur d'execution '432'

Bonjour

Merci d'avoir regardé mon souci et si j'ai bien compris c'est un pb de déclaration de variable

J'ai donc modifié comme suit


Dim MyData As DataObject
Dim src, source, nb_lignes, nb_lines, i, j, k As Integer
Dim xls_file, xls_path, dif_file, nom_classeur, txt, nv As String
Dim dif_path As String

mais j'ai tjs le message d'erreur quand j'arrive à la ligne
Set objxl = GetObject(dif_path)

Olivier

Bonsoir
Mettez Option Explicit en tête de vos modules: Variable non déclarée auraut été plus clair !

Dim xls_file, xls_path, dif_file, dif_path, nom_classeur, txt, nv As String
…
GetObject(dif.Path)

À noter: dans la déclaration, seul nv est déclaré As String, les autres qui précèdent, faute de spécification, sont assumés As Variant.

Cordialement.