Discussion :

[chebmo90]

bonjour, En fait j'ai une applivation en VB.net et dans un module je veux ecécuter une macro dans un fichier Excel mais le problème c'est cette macro execute d'autre macro donc du coup il me remet un message derreur et me stope l'exécution .comment je peux faire?
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
Sub ModifierFeuilleExcel()
 
        'Déclaration des variables 
        Dim xlApplication As Object
 
        xlApplication = CreateObject("excel.application")
 
        With xlApplication
 
            .Workbooks.Open("C:\Documents and Settings\A2H16152\Bureau\FichierTestTesVis.dis-SBC.xls")
            .sheets("Importation").Range("J5") = NbreEchanti.Text
            .sheets("Importation").Range("I8") = DispMoteur.Text
 
            Dim i As Integer
 
            .sheets("Importation").Range("P17") = TextBoxKX.Text
            .sheets("Importation").Range("Q17") = TextBoxKY.Text
            .sheets("Importation").Range("R17") = TextBoxKZ.Text
 
            'lancement de la macro dans le fichier excel ouvert
            .Application.run("Macrok")
 
            'lancement de calcul de dispertion
            .Application.run("MacroCalDis")
 
            .Save()
            .Quit()
        End With
 
    End Sub

voilà l'exception :

Exception de HRESULT : 0x800A9C68

Merci pour votre aide .

[Chris@Xerox]

Bonjour,

Ton problème ne viendrait-il pas du fait que MacroCalDis commence alors que Macrok n'a pas encore fini?

[chebmo90]

Merci pour ta réponse , Je ne pense pas car quand je débogue il passe trés bien l'éxecution de la première macro "MacroK" et puis quand il lance la deuxieme il palnte ? "on me disant qu'un classeur n'existe pas ou il été modifié ou ..."

[chebmo90]

En plus je vien d'essayer la 2eme macro toute seule mais il me fait la meme erreur.
voilà l'erreur :

"ATPVBAEN.XLA" est introuvable, vérifiez que l'orthographe du nom de classeur ou la validité de l'emplacement ...

[Chris@Xerox]

Ce ne serait pas ATPVBAEN.XLS au lieu de ATPVBAEN.XLA ?

[chebmo90]

pourquoi c'est quoi la différence ?

[chebmo90]

car en fait dans l'espace de travail j'ai le code des macros de mon fichier XSL mais la deuxieme macro utilise une autre makro qui est dans un autre module qui s'appelle "ATPVBAEN.XLS (ATPVBAEN.XLA)" je ne sais que ca veux dire mais bon ?
Vous avez compris maintenent

[chebmo90]

donc quand je l'appel dans mon code que la ma 2eme macro il retrouve pas ATPVBAEN.XLA cella qui est dans un autre projet ou module séparement mais je ne vois pas comment il me fait sa car lui il execute sa automatiquement. je ne sais pas?

[Chris@Xerox]

Je ne m'y connais pas du tout en complément excel (fichiers .xla) mais le problème vient peut-être de là.

As-tu mis cet import?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Microsoft.Office.Interop.Excel

J'ai vu, sur le net, la possibilité de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.AddIns().Installed = True

juste après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With xlApplication

C'est sans certitude.

[chebmo90]

oui merci pour ta réponse, mais en fait moi j'ai peut pas ajouter le import car quand je fait microsoft. il me trouve pas l'office je sais pas dailleurs pourquoi ?

[Hinault Romaric]

Faudra d'abord referencer la DLL dans ton projet. Avant de faire l'import

[chebmo90]

et comment je peux faire sa ajouter la dll de mon projet XSL ou vb?

[Hinault Romaric]

recherche

Microsoft.Office.Interop.Excel.dll

Sur ta machine elle est créer automatquement lors de l'installation d'excel ensuite tu l'ajoute comme refrence dans ton projet VB.net

[Sankasssss]

recherche


Sur ta machine elle est créer automatquement lors de l'installation d'excel ensuite tu l'ajoute comme refrence dans ton projet VB.net

Elle se trouve automatiquement dans la liste de dll quand on clique sur référence=>ajout pas besoin de faire de recherche

[chebmo90]

Merci pour vos réponse .En fait je l'ai pas trouvé quand j'ai fait la manipulation réferance puis ajouter je l'a trouve pas ??

[chebmo90]

maintenznt j'execute le fichier xsl sans l'importation, mais j'ai un petit problème quand je veux écexuter une macro il m'affiche cet erreur ? voir piece jointe

[Sankasssss]

Elle se trouve dans les COM : Microsoft Excel 12.0 Object Library

EDIT : j'avais pas vu ton second message...

REDIT : Pas de pièce jointe...

[chebmo90]

voilà l'erreur voir ci joint

[chebmo90]

ATPVBAEN.XLA' introuvable, vérifirz que l'othographe du nom de classeur et la validité de m'emplacement.

Si vous essayez d'ouvrir le fichier à partir de la liste des fichiers les plus récents, assurez-vous que le fichier n'a pas été renommé, déplacé ou supprimé.

Voilà le message d'erreur mais pourtant ma macro supplémentaires existe dans un dossier :"C:\Program Files\Microsoft Office\Office\Macrolib\Analyse\ATPVBAEN.XLA"
merci pour votre compréhension !!

[Sankasssss]

tu donnes bien le nom complet vers le fichier : C:\Program Files\Microsoft Office\Office\Macrolib\Analyse\ATPVBAEN.XLA
???

EDIT :
dans le code que tu donnais tu montrais ce chemin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Workbooks.Open("C:\Documents and Settings\A2H16152\Bureau\FichierTestTesVis.dis-SBC.xls")

car l'erreur est explicite, il ne trouve pas le fichier...