VBA acess probleme de renvoirRésolu

Question

Bonjour
j'ai un probleme de renvoie 
Pour le moment ma fonction renvoie le classeur mais j'aimerais aussi renvoyer l'objet Excel.Application (car si je l'ouvre deux fois ca va pas le faire) donc je vois pas comment envoyer les deux en meme temps pour l'instant ma fonction est constitué kom cela
Merci d'avance


Public Function MacroTest(c As Integer) As Workbook


'Déclarations des variables
Set xls = New Excel.Application
Dim name As String
Dim Classeur As Workbook
'Ouverture du tableau Excel
    xls.Visible = True
    Set Classeur = xls.Workbooks.Open("D:\Test\e_analyse_croisée_Test.xls")
 ...
Set MacroTest = Classeur

jrivet · Accepted Answer

Salut,
Comme l'a dit [auteurdetail.aspx?ID=647037 mortalino], parfois il faut décomposer
Alors essaie peu être
xls.Workbooks("e_analyse_croisée_Test.xls").Activate
xls.ActiveWorkbook.Worksheets("R_analyse_croisée").Select
xls.ActiveSheet.Range("A1").Select, ----
[code.aspx?ID=41455 By Renfield]

Si la encore cela ne fonctionne pas... Bah je ne sais pas. es tu sûr de tout les noms utilisés?
@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
(soit dit en passant=> ICI)

Pour ce nouveau problème, tu as plein de possibilités.

- Soit tu passes un parametre de type Excel.Application a ta procédure (et tu l'affecte à l'intérieur de cette dernière).
- Soit tu ne retournes QUE l'objet XLS (sachant que de toute facon l'objet Classeur sera accessible dans la collection WorkBooks de l'objet XLS)
- Soit tu déclares l'objet XLS dans un module en ttn que variable PUBLIC ce qui te permettra de l'avoir n'importe où.

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

sinon quelqu'un peut m'expliquer les byref
Losque je marque ca pkoi il attend un "=" dans ma fonction principale??
Public Sub Macro1(ByRef wbfile As Excel.Workbook, ByRef xls As Excel.Application)

jrivet · Answer

Salut,
C'est la Ligne d'appel qu'il faut montrer 
DE plus le ByRef est inutile puisque par défaut un paramtre est passé par ref en VBA (si toutefois tu es bien en VBA)

la demande de "=" essaie de faire Call Macro1(P1, P2) 

(soit dit en passant=> [infomsg_PROBLEME-METHODE-OBJET_965739.aspx#3 ICI)] (*2)

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

la ligne d'appel c'est tou simplement 

module2.Macro1(wbfile,appli)

et quand je tape entrée pour aller a la ligne suivante il me dis qu'il faut un "="

darkspoilt · Answer

et voila mon code entier

Option Compare Database


Option Explicit


Public Sub Macro1(wbfile As Workbook, xls As Excel.Application)


'
' Macro1 Macro
' Macro enregistrée le 14/06/2007 par
'


'
    Dim graph As Chart
    Set graph = wbfile.Charts.Add
    
 
    graph.SeriesCollection(1).ChartType = xlColumnStacked
    graph.SeriesCollection.NewSeries
    graph.SeriesCollection(1).XValues = "=R_analyse_croisée!R3C2:R4C10"
    graph.SeriesCollection(1).name = "=R_analyse_croisée!R53C1"
    graph.SeriesCollection(2).XValues = "=R_analyse_croisée!R3C2:R4C10"
    graph.SeriesCollection(2).name = "=R_analyse_croisée!R54C1"
    graph.SeriesCollection(3).XValues = "=R_analyse_croisée!R3C2:R4C10"
    graph.SeriesCollection(3).Values = "=R_analyse_croisée!R48C2:R48C10"
    graph.SeriesCollection(3).Select
    graph.SeriesCollection(3).ChartType = xlXYScatter
    With graph.SeriesCollection(3).Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With graph.SeriesCollection(3)
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
    graph.SeriesCollection(3).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    graph.SeriesCollection(3).DataLabels.Select
    graph.SeriesCollection(3).Points(1).DataLabel.Left = 50
    graph.SeriesCollection(3).Points(1).DataLabel.Top = 158
    graph.SeriesCollection(3).Points(2).DataLabel.Left = 114
    graph.SeriesCollection(3).Points(2).DataLabel.Top = 76
    graph.SeriesCollection(3).Points(3).DataLabel.Left = 178
    graph.SeriesCollection(3).Points(3).DataLabel.Top = 64
    graph.SeriesCollection(3).Points(4).DataLabel.Left = 243
    graph.SeriesCollection(3).Points(4).DataLabel.Top = 23
    graph.SeriesCollection(3).Points(5).DataLabel.Left = 306
    graph.SeriesCollection(3).Points(5).DataLabel.Top = 45
    graph.SeriesCollection(3).Points(6).DataLabel.Left = 371
    graph.SeriesCollection(3).Points(6).DataLabel.Top = 148
    graph.SeriesCollection(3).Points(7).DataLabel.Left = 436
    graph.SeriesCollection(3).Points(7).DataLabel.Top = 123
    graph.SeriesCollection(3).Points(8).DataLabel.Left = 504
    graph.SeriesCollection(3).Points(8).DataLabel.Top = 328
    graph.SeriesCollection(3).Points(9).DataLabel.Left = 569
    graph.SeriesCollection(3).Points(9).DataLabel.Top = 312
    With graph.SeriesCollection(2).Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    graph.SeriesCollection(2).Shadow = False
    graph.SeriesCollection(2).InvertIfNegative = False
    With graph.SeriesCollection(2).Interior
        .ColorIndex = 37
        .Pattern = xlSolid
    End With
    graph.SeriesCollection(2).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    With graph.SeriesCollection(1).Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    graph.SeriesCollection(1).Shadow = False
    graph.SeriesCollection(1).InvertIfNegative = False
    With graph.SeriesCollection(1).Interior
        .ColorIndex = 10
        .Pattern = xlSolid
    End With
    graph.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
    With graph.PlotArea.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With graph.PlotArea.Interior
        .ColorIndex = 2
        .PatternColorIndex = 1
        .Pattern = xlSolid
    End With
    With graph.SeriesCollection(3).DataLabels.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    graph.SeriesCollection(3).DataLabels.Shadow = False
    graph.SeriesCollection(3).DataLabels.Interior.ColorIndex = xlNone
    graph.SeriesCollection(3).Points(2).DataLabel.Select
    graph.SeriesCollection(3).Points(1).DataLabel.Select
    graph.SeriesCollection(3).DataLabels.AutoScaleFont = True
    With graph.SeriesCollection(3).DataLabels.Font
        .name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
        .Background = xlAutomatic
    End With
    graph.SeriesCollection(2).DataLabels.AutoScaleFont = True
    With graph.SeriesCollection(2).DataLabels.Font
        .name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    graph.SeriesCollection(1).DataLabels.AutoScaleFont = True
    With graph.SeriesCollection(1).DataLabels.Font
        .name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    graph.Legend.LegendEntries(3).Delete
    graph.Legend.Left = 35
    graph.Legend.Top = 25
    graph.Legend.Width = 99
    graph.Legend.Width = 107
    
End Sub

jrivet · Answer

Salut,

(soit dit en passant=> [infomsg_PROBLEME-METHODE-OBJET_965739.aspx#3 ICI)] (*3)

Code total inutile:

C'est bien ce que je te dis

essaie  Call Macro1(P1, P2) 

il te suffisais de l'adapter en 

Call module2.Macro1(wbfile,appli)
OU bien alors ceci module2.Macro1 wbfile,appli

Ceci ne sont pas des erreurs de programme mais des erreurs de syntaxe...
@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

Merci ca marche bien
mais j'ai un souci dans ma macro1 le code d'endessous ne veut pas s'exécuter

xls.wbfile.Worksheet("R_analyse_croisée").Range("A1").Select

jrivet · Answer

Re,
(soit dit en passant=> [infomsg_PROBLEME-METHODE-OBJET_965739.aspx#3 ICI)](*4)

1°)
Note: IL faut que tu prennes en considération les réponses que l'on te donnes 
Dans l'autre discution je te disais "Tout simplement parceque Classeur n'est pas un objet appartenant à l'objet xls."
Et toi tu ne trouves rien de mieux que de remettre xls.wbfile ... ca rime à quoi... De plus il faut que tu comprennes qu'une fois instantier wbfile est un objet classeur donc inutile de mettre xls. 

2°) Worksheet n'existe pas mais en revanche WorksheetS
 Oui
Mias ca tu peux le voir avec la liste déroulante qui apparait lorsque tu tapes wbfile. (et non xls.wbfile.)

Encore une fois c'est de la syntaxe (et aussi de la logique, et ca tu ne pourras pas y couper, tu dois l'apprendre.)

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

personne peut m'aider??

jrivet · Answer

Re,
Non mais tu te fou de moi la???? 

Tu vois pas mes messages, tu ne sais pas lire, Tu n'es pas capable d'essayer.... Qu'est ce qui t'arrives???? tu peux au moind prendre la peine de me dire si ce que je te dis te fais avancer ....

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

j'ai fais 
wbfile.Worksheet("R_analyse_croisée" ).Range("A1" ).Select 
mais cela ne fonctionne pas il me met propriété ou méthode non géré

darkspoilt · Answer

excuse moi j'avais pas vu ton post avantde faire la relance pour tant j'avais fais la mise a jour de la page désolé

jrivet · Answer

Re,
Quel post tu n'avais pas vu celui qui disait 
 Worksheet n'existe pas mais en revanche WorksheetS
 Oui
Mais ca tu peux le voir avec la liste déroulante qui apparait lorsque tu tapes wbfile. (et non xls.wbfile.)

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Arg, que du bonheur à lire...
C'est marrant, j'ai vu que Julien répétait Plusieurs fois ses réponses (sur Call, ou bien le S de Sheets). Bref, DarkSpoilt, vérifie dans tes syntaxes le S dans WorkSheets

Pis faut penser à mettre des MsgBox pour vérifier ton travail.

exemple, avant de faire
wbfile.WorksheetS("R_analyse_croisée" ).Range("A1" ).Select 

Tu mets 
Msgbox wbfile.Name
Msgbox wbfile.Worksheets("R_analyse_croisée").Range("A1").Value

Et vois déjà si t'as bien des retours de valeurs.
Pis le coup de 
wbfile.WorksheetS("R_analyse_croisée" ).Range("A1" ).Select 
Faut peut-être le décomposer, des fois (ne me demande pas pourquoi, j'en sais rien) ca ne prends pas :
wbfile.WorksheetS("R_analyse_croisée" ).Select
wbfile.Range("A1" ).Select 

Mais autant référencer la feuille :
Dim MaFeuille As Sheet

Set MaFeuille =  wbfile.Worksheet S ("R_analyse_croisée" )

MaFeuille.Range("A1").Select

@++ 

<hr size ="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

darkspoilt · Answer

Quand je dis c'est bizare c'est regarde


ca fonctionne


    [cpp]Set appli = New Excel.Application
    Set wbfile = MacroTest(c, appli)
    appli.Range("A1").Select  
    Module2.Macro1 wbfile 


ca fonctionne pas


 Set appli = New Excel.Application
    Set wbfile = MacroTest(c, appli)  
    Module2.Macro1 wbfile 
    appli.Range("A1").Select


et vous avez vu mon code macro 1
je ne comprends pas pkoi si quelqu'un a un explication a me donner je suis tout ouie.
Merci d'avance

mortalino · Answer

Si j'ai bien suivi :
Public Sub Macro1(ByRef wbfile As Excel.Workbook, ByRef xls As Excel.Application)

Donc quand tu dis :
ca fonctionne

    [cpp]Set appli = New Excel.Application
    Set wbfile = MacroTest(c, appli)
    appli.Range("A1").Select  
    Module2.Macro1 wbfile 

Impossible..., tu n'as passé qu'un paramètre à Macro1, VB te détecte automatiquement une erreur. Ou alors, tu as changé ta procédure mais tu ne nous a pas averti.

Bref, très très lourd à suivre ton problème, avec tes bouts de code à droite à gauche

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jrivet · Answer

Salut,
De toute facon lorsuqe l'on veux piloter Excel, le mieux (a mon avis) reste tout de meme l'option des variables Public dans un Module plutot que de les passer en paramtre, les retourners, etc... du coup tout le monde s'y perd.

Un Objet XlsApp de typ Excel.Application, Un ou plusieur Objets de Type Workbook (quoique la encore pas nécessaire puisque accessible de puis l'objet XlsApp)

Ce qu'il faut avant d'aller plus loin[auteurdetail.aspx?ID=423548  darkspoilt] , c'est vraiment que tu te penches sur la syntaxe.

Enfin ce n'est que mon avis.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
PS OUBLIE: Merci  [auteurdetail.aspx?ID=647037 mortalino] ()

@+: Ju£i?n
Pensez: Réponse acceptée

darkspoilt · Answer

non j'avais oublié un bout

Module2.Macro1 wbfile, appli

mias ca ne fonctionne pa de toute maniere et jen e comprends pas pourquoi car dans ma macro1 je ne touche pas a appli

mortalino · Answer

C'est un plaisir Julein 

D'ailleurs, c'est pour ça que j'avais pas répondu à l'origine ici, mais tu as touché dans le mille Julien, : ...que de les passer en paramtre, les retourners, etc... du coup tout le monde s'y perd.

Absolument d'accord, il y a des méthodes 100 plus simples (et qui ne plantent pas  )
L'objet en paramètre, à ce niveau là, totalement inutile.

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

darkspoilt · Answer

meme avec ca
xls.Workbooks("e_analyse_croisée_Test.xls").Worksheets("R_analyse_croisée").Range("A1").Select
cela ne fonctionne pas il met la methode select de la classe range a échoué

mortalino · Answer

Et comme ça :

Dim xlApp As New Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.WorkSheet

Set xlBook = xlApp.WorkBooks.Open("C:\Chemin\e_analyse_croisée_Test.xls")
Set xlSheet = xlBook.Sheets("R_analyse_croisée")

xlSheet.Range("A1").Select

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

darkspoilt · Answer

la derniere solution est la bonne j'ai essayé la précédente cela ne fonctionne pas

jrivet · Answer

Salut,
(soit dit en passant => [infomsg_PROBLEME-METHODE-OBJET_965739.aspx#3 ICI)] (*5) (ca devient lourd non?)

Alors est que l'on peux estimer que ton problème est résolu?

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Lol, il n'a peut-être pas compris...

DarkSpoilt, cela veut dire que t'as ouvert un autre sujet (cf. Liens proposé par Julien [5 fois, au passage])
et qu'il serait bon, soit de le continuer si ton problème n'est pas résolu, soit d' "Accepter" la réponse qui t'a aider. Et oui, ce bouton la n'est pas pour faire zoli 

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jrivet · Answer

Salut,
(soit dit en passant =  > [infomsg_PROBLEME-METHODE-OBJET_965739.aspx#3 ICI)] (*6)

NOn  [auteurdetail.aspx?ID=423548 darkspoilt] , est un habitué maintenant, mais il à pris hélas de très mauvaise habitude
Et je pense qu'au contraire il comprends très bien mais s'en balance simplement... Il à réussi à énervé [auteurdetail.aspx?ID =2359 Renfield]à force de poster dans lasection inadéquate.
pour preuve de son manque de respect total envers le Forum et ces membres (lire les topics c'est mieux pour cerner le personnage):
- TOUT COMMENCE AVEC ceci: Manque le réponse acceptée, il reposte encore, il se mélange DEJA) et déjà je lui disait: "
                
                Salut,
De rien.
Si ton problème est résolu appuie sur réponse acceptée sur le ou les post qui ont pu t'aider.
(même si c'est un de tes post)
cela indiquera mieux que le problème est résolu sans avoir à tout lire
"

- On Continue avec: la il reposte (sujet précédent) mais  on le lui dit tout comme tu lui dit [auteurdetail.aspx?ID= 647037 mortalino] : "Bah t'as le droit de dire ce qui a été fait pour que cela fonctionne,
c'est je pense, la moindre des choses, ainsi que de remercier les
membres qui ont tenté de t'aider...

Et quand tu auras mis le pourquoi du comment, accèpte cette réponse, ce bouton n'est pas là pour faire joli !" (Etaient la:  [auteurdetail.aspx?ID=999867 Nicko11, ] [auteurdetail.aspx?ID =999867 ]mortalino, [auteurdetail.aspx?ID= 647037  ]cavo789 
             , et moi meme)

- Discution ouverte, même pas revenu (Etaient la:[auteurdetail.aspx?ID =17710 Exploreur],  [auteurdetail.aspx?ID= 2359 Renfield, ][auteurdetail.aspx?ID=2359 ] [auteurdetail.aspx?ID=999867 Nicko11)] 
- Discution ouvert plus un post  (Etaient la:  [auteurdetail.aspx?ID =528680 Molenn],[auteurdetail.aspx?ID= 1074387 gordonbrown])
- LA EncorePas donné suite:(Etaient la:   [auteurdetail.aspx?ID=2359 Renfield],  et moi même)  NOTE: Cette discution est TRES TRES proche de celle ci, comme quoi tu n'apprends pas de tes erreurs.
- Ou ENCORE celle la ou 5
 membres se sont penchés sur son problème et lui presque 2 Heures après deigne enfin dire: "
                
                non mais c'est bon c'est résolu merci pour tout c'était une erreur de syntaxe."  = (COMME SOUVENT SOIT DIT EN PASSANT )(Etaient présents: [auteurdetail.aspx?ID= 2359 Renfield],  [auteurdetail.aspx?ID=647037 mortalino],  [auteurdetail.aspx?ID =17710 Exploreur], [auteurdetail.aspx?ID= 9517 JMO]
             et Moi Meme)
- OU encore celle ci :=> Apres trois pages de discution   "C'est bon j'ai résolu le probleme"   Mais personne ne sais comment (c'est frustrant quand tu essaie d'aider et qu'au final tu ne connais pas la solution utilisé(VIVE LE PARTAGE DE CONNAISSANCE NON?) (Etaient Présents: [auteurdetail.aspx?ID  =736628 chaibat05], [auteurdetail.aspx?ID= 439761 pseudoOM],  [auteurdetail.aspx?ID=17710 Exploreur],  [auteurdetail.aspx?ID =215115 cavo789], et Moi Meme) 
-ou bien 2 celle ci: pas de nouvelles   (Etaient présents  [auteurdetail.aspx?ID=6078 MPi] et moi meme )
- Celle la: PAS DE NOUVELLES (Etaient LA  [auteurdetail.aspx?ID =736628 chaibat05], [auteurdetail.aspx?ID=999867 Nicko11, ]et moi meme)

Et le pire c'est qu'il ne vas même pas réagir à ce dernier messages, il va continuer à poster ces questions , dans les sections inadéquates, trouver la solution, ne pas dire laquelle, ne pas respecter les membres....
d'ailleurs je n'ai pas encore vu les dernier messages aujourd 'hui, mais il est fort probable qu'il y en est un de lui. (pas grave Ctrl C+ Ctrl V de ce message ou bien je continuerais avec mes soit dit en passant)

@+: Ju£i?n
Pensez: Réponse acceptée

VBA acess probleme de renvoir

27 réponses

Votre réponse

Discussions similaires