Erreur aléatoire

Bonjour,

J'ai une erreur aléatoire sur le code suivant... c'est pénible !

Dim BOM As Object                                                         ' Ouverture de BOM.xls

Set BOM = GetObject(, "Excel.Application")
If Err <> O Then
Set BOM = CreateObject("Excel.Application")
End If
On Error GoTo 0

BOM.Workbooks.Open FileName:=CheminProduct & "\" & NameFichierBom
BOM.Workbooks.Application.Visible = True

Set ExcelBom = Workbooks(NameFichierBom)                     'Activation Excel BOM.xls
Set ExcelBom = ActiveWorkbook

Sur cette ligne la :

Set ExcelBom = Workbooks(NameFichierBom) 

J'ai l'erreur suivante :

Comment puis-je stabiliser ce code ?

Merci par avance de vos réponse !

la variable "NameFichierBom" est égale à "BOM.xls".

Bonjour,

je ne suis pas très bon sur la gestions des classeurs, mais pour moi ActiveWorkBook est un objet qui cible le classeur actif, exemple ActiveworkBook.Name donnera le nom du classeur actif.

Votre ligne Set ExcelBom = ActiveWorkbook, je la remplacerais par : ExcelBom.Activate, ce qui je pense rendra actif le classeur correspondant à l'objet ExcelBom qui n'est autre que BOM.xls suite à la ligne de code : et ExcelBom = Workbooks(NameFichierBom).

T>out ceci à prendre avec des pincettes car je ne maitrise pas toute cette partie de codage VBA.

@ bientôt

LouReeD

Merci pour message mais non ça renvois le même message erreur...

J'avais prévenu, je ne maitrise pas trop cette partie !

Alors les deux dernières lignes ne servent à rien et on peut peut-être remplacer :

BOM.Workbooks.Open FileName:=CheminProduct & "\" & NameFichierBom
BOM.Workbooks.Application.Visible = True

Set ExcelBom = Workbooks(NameFichierBom)                     'Activation Excel BOM.xls
Set ExcelBom = ActiveWorkbook

Par :

BOM.Workbooks.Open FileName:=CheminProduct & "\" & NameFichierBom
BOM.Activate

@ bientôt

LouReeD