Erreur d'execution 432 nom du fichier ou de la classe introuvable Automation

Question

Bonjour 
Avant tout désolé si le post n'est pas à la bonne place, je ne savais pas vraiment ou le poster.

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 "Erruer d'éxecution 432 nom du fichier ou de la classe introuvable 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

cs_Jack · Answer

Salut

Catégorie : c'est presque ça. --> VBA

Code : Utilise la coloration syntaxique = 3ème icone à droite

Il faut détailler ton code pour savoir que tu parles de Excel.

Impose-toi la déclaration obligatoire des variables (Options) et ajoute "Option Explicit" en tête de chaque page de code de ton projet.
Cela t'aurai permis de trouver cette erreur :
dif_Path et non dif.Path

Dim src, source, nb_lignes, nb_lines, i, j, k As Integer 
Hélas, ceci ne veut pas dire que chaque variable sera de type Integer.
Elle seront toutes du type Variant (indéfini) sauf la dernière qui sera bien un Integer.
Cela peut influencer le comportement de ton programme.
Il faut déclarer le type pour chaque variable :
Dim src As Integer, source As Integer, nb_lignes As Integer, nb_lines As Integer, i As Integer, j As Integer, k As Integer

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

cs_Jack · Answer

PS : Bannis définitivement l'usage de "On Error Resume Next" : Cela masque les erreurs.
Si tu l'utilises, c'est parce que l'instruction qui suit risque de provoquer un défaut. Ça peut arriver.
Mais aussitôt après avoir vérifié le code de défaut à la sortie de cette instruction, il faut immédiatement revenir à une gestion d'erreur classique :
Soit "On Error Goto monLabelErreur"
Soit "On Error Goto 0"

cs_Jack · Answer

Rappel : En VBA, donc 32 bits, les types Integer ne permettent le stockage de valeurs que de -32768 à +32767 (Voir Long plutôt)

MarcPL · Answer

Question déjà posée sur un autre forum.   Il y verra la réponse ...


___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !

ucfoutu · Answer

Bonjour,
Lorsque je lis des choses comme ces deux lignes qui se suivent :
Set objxl = GetObject(dif.Path)
Set objxl = Nothing 

Je me dis qu'il est super clair que celui qui a écrit cela ne sait même pas pourquoi il l'a écrit. Et je fuis.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_Jack · Answer

Oh oui, lol, j'avais même pas fait gaffe.
Amusant.

cs_MPi · Answer

Et pour utiliser le DataObject, il faut s'assurer de cocher la référence à Microsoft Forms 2.0 Object Library


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Erreur d'execution 432 nom du fichier ou de la classe introuvable Automation

7 réponses

Votre réponse

Discussions similaires