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:

Ouverture d'un fichier excel avec le VBA (Erreur 424)
Fichier rar - Guide
Erreur 0x80070643 - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
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

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

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
24 mai 2014 à 12:44

Bonjour,

'exemple pour cellule A1:

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

ou

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

A+

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 ? :)

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

Posez votre question

Réponse 5 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
24 mai 2014 à 15:24

Re,

Vous lisez ce que j'ecris ????????

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é !

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters