Ouverture d'un fichier excel avec le VBA (Erreur 424)

Bomahz Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Bomahz Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Tout à l'heure mon code marchait parfaitement pour ouvrir une feuille d'Excel. J'ai voulu reprendre à zéro et donc supprimer ma bibliothèque de macro pour en re-créer une.

J'ai copié mon code, mais malheureusement il ne fonctionne plus j'ai l'erreur 424 (Object requis). Voici mon bout de code : 

Sub CATMain()

    Dim Excel As Object
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    Excel.Visible = True
    Set wb = Workbooks.Open("D:\UTBM\Printemps\CP84\Projet\Dim.xlsx")
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
    
End Sub

Je précise que je travail depuis le VBA de Catia. Ma première étape est d'ouvrir mon fichier Excel puis l'utiliser pour piloter Catia. Mais la première étape ne fonctionnant guère...je viens à vous.

Merci d'avance :)

Ps : Je début en VBA
A voir également:

6 réponses

Réponse 1 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

Sub CATMain()

    Dim Excel As Object
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    Excel.Visible = True
    Set wb = Excel.Workbooks.Open("D:\UTBM\Printemps\CP84\Projet\Dim.xlsx")
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
    
End Sub
0
Réponse 2 / 6
Bomahz Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Désolé mais ce code ne marche toujours pas j'ai l'erreur suivante :

Run-time error '429'
ActiveX component can't create object

Est ce que le fait de copier/coller peut influencer ? ^^

Edit : J'ai trouvé la source du problème qui était le GetObject 

Sub CATMain()

Dim Excel As Object
    Set Excel = CreateObject("Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    Excel.Visible = True
    Set wb = Excel.Workbooks.Open("D:\UTBM\Printemps\CP84\Projet\Dim.xlsx")
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
    
End Sub

Mais j'ai maintenant une autre question. Comment réussir à utiliser cet Excel avec le vba ?
Je m'explique, j'ai une dizaine de ligne pour chaque ligne j'ai 3 coordonnées (x,y,z) que j'aimerais utiliser pour des cotes dans Catia. Le soucis c'est que je ne sais pas comment lui dire d'aller lire tout ça dans excel en passant par le VBA

Par exemple, pour dire ma longueur j'ai : 
length1.Value = 60#

Au lieu de 60, j'aimerais lui dire d'aller prendre tel case dans tel ligne et tel colonne dans mon excel
0
Réponse 3 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,



'exemple pour cellule A1:

length1.Value = wbk.Range("A1")

ou

length1.Value = wbk.Cells(1, 1)

A+
0
Réponse 4 / 6
Bomahz Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, mais j'imagine qu'il faut que je définisse la cellule ou la plage dans lequel je dois chercher ?

Car j'ai l'erreur 424 (Objet requis)


Edit, j'ai : 

Dim length1 As Length
Set length1 = constraint5.Dimension

length1.Value = cells(2, 2).Value

Mais il me dit que la fonction cells n'est pas difinie, un peu d'aide ? :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Vous lisez ce que j'ecris ????????
0
Réponse 6 / 6
Bomahz Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Oui ça marche pas, je peux donc vous retourner la question...

Edit :Okay autant pour moi, j'ai vraiment mal lu vous aviez bien raison ^^'
Merci bien et désolé !
0