Sujet Précédent Sujet Suivant

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

Fermé
Bomahz Messages postés 4 Date d'inscription jeudi 22 mai 2014 Statut Membre Dernière intervention 24 mai 2014 - 22 mai 2014 à 16:52
Bomahz Messages postés 4 Date d'inscription jeudi 22 mai 2014 Statut Membre Dernière intervention 24 mai 2014 - 24 mai 2014 à 15:26
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 17233 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 janvier 2025 1 712
23 mai 2014 à 15:16
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 jeudi 22 mai 2014 Statut Membre Dernière intervention 24 mai 2014
Modifié par Bomahz le 24/05/2014 à 11:23
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 17233 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 janvier 2025 1 712
24 mai 2014 à 12:44
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 jeudi 22 mai 2014 Statut Membre Dernière intervention 24 mai 2014
Modifié par Bomahz le 24/05/2014 à 13:47
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 17233 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 janvier 2025 1 712
24 mai 2014 à 15:24
Re,

Vous lisez ce que j'ecris ????????
0
Réponse 6 / 6
Bomahz Messages postés 4 Date d'inscription jeudi 22 mai 2014 Statut Membre Dernière intervention 24 mai 2014
Modifié par Bomahz le 24/05/2014 à 15:34
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