VBA Access probleme de renvoi

VBA Access probleme de renvoi - VB/VBA/VBS - Programmation

Marsh Posté le 18-06-2007 à 11:17:54    

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

Code :
  1. Public Function MacroTest(c As Integer) As Workbook
  3. 'Déclarations des variables
  4. Set xls = New Excel.Application
  5. Dim name As String
  6. Dim Classeur As Workbook
  7. 'Ouverture du tableau Excel
  8.     xls.Visible = True
  9.     Set Classeur = xls.Workbooks.Open("D:\Test\e_analyse_croisée_Test.xls" )
  10. ...
  11. Set MacroTest = Classeur


Reply

Marsh Posté le 18-06-2007 à 11:17:54   

Reply

Marsh Posté le 18-06-2007 à 12:01:55    

je vois pas l'intéret de ta macro en fait...
tu peux expliciter un peu stp ?

Reply

Marsh Posté le 18-06-2007 à 13:25:05    

ma macro ouvre un objet Excel.Application elle créer un classeur que je renvoi le truc c'est que apres lorsque j'ai des action a faire dans un autre module, je ne vais pas ouvrir de nouveau un objet Excel.Application.

Reply

Marsh Posté le 18-06-2007 à 13:26:42    

et pourquoi ne passes tu pas en parametre dans ta première fonction appelante un path pour enregistrer ton document, que tu utilises à nouveau dans les autres fonctions de traitement.

Reply

Marsh Posté le 18-06-2007 à 13:30:43    

sinon quelqu'un peut m'expliquer les byref
Losque je marque ca pkoi il attend un "=" dans ma fonction principale??

Code :
  1. Public Sub Macro1(ByRef wbfile As Excel.Workbook, Byref xls as Excel.application)


Message édité par darkspoilt le 18-06-2007 à 13:36:48
Reply

Marsh Posté le 18-06-2007 à 13:39:19    

je n'utilise pas les path car je débute en VBA

Reply

Marsh Posté le 18-06-2007 à 13:45:23    

vire le public
 
le path, ce n'est rien qu'un string  :love:  
tu te créer une variable
temp = format(now(),"ddMMyyyyhhmmss" ) & ".xls"
tu balances
Ma_sub_de_traitement(temp)

Reply

Marsh Posté le 18-06-2007 à 13:51:05    

oui mais ca changera pas grand chose a mon probleme

Reply

Marsh Posté le 18-06-2007 à 13:55:22    

voila ma ligne d'entrée

Code :
  1. module2.Macro1(wbfile,appli)


 
et mon code complet
 

Code :
  1. Option Compare Database
  3. Option Explicit
  5. Public Sub Macro1(wbfile As Workbook, xls As Excel.Application)
  7. '
  8. ' Macro1 Macro
  9. ' Macro enregistrée le 14/06/2007 par
  10. '
  12. '
  13.     Dim graph As Chart
  14.     Set graph = wbfile.Charts.Add
  15.    
  17.     graph.SeriesCollection(1).ChartType = xlColumnStacked
  18.     graph.SeriesCollection.NewSeries
  19.     graph.SeriesCollection(1).XValues = "=R_analyse_croisée!R3C2:R4C10"
  20.     graph.SeriesCollection(1).name = "=R_analyse_croisée!R53C1"
  21.     graph.SeriesCollection(2).XValues = "=R_analyse_croisée!R3C2:R4C10"
  22.     graph.SeriesCollection(2).name = "=R_analyse_croisée!R54C1"
  23.     graph.SeriesCollection(3).XValues = "=R_analyse_croisée!R3C2:R4C10"
  24.     graph.SeriesCollection(3).Values = "=R_analyse_croisée!R48C2:R48C10"
  25.     graph.SeriesCollection(3).Select
  26.     graph.SeriesCollection(3).ChartType = xlXYScatter
  27.     With graph.SeriesCollection(3).Border
  28.         .Weight = xlHairline
  29.         .LineStyle = xlNone
  30.     End With
  31.     With graph.SeriesCollection(3)
  32.         .MarkerBackgroundColorIndex = xlAutomatic
  33.         .MarkerForegroundColorIndex = xlAutomatic
  34.         .MarkerStyle = xlNone
  35.         .Smooth = False
  36.         .MarkerSize = 5
  37.         .Shadow = False
  38.     End With
  39.     graph.SeriesCollection(3).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
  40.     graph.SeriesCollection(3).DataLabels.Select
  41.     graph.SeriesCollection(3).Points(1).DataLabel.Left = 50
  42.     graph.SeriesCollection(3).Points(1).DataLabel.Top = 158
  43.     graph.SeriesCollection(3).Points(2).DataLabel.Left = 114
  44.     graph.SeriesCollection(3).Points(2).DataLabel.Top = 76
  45.     graph.SeriesCollection(3).Points(3).DataLabel.Left = 178
  46.     graph.SeriesCollection(3).Points(3).DataLabel.Top = 64
  47.     graph.SeriesCollection(3).Points(4).DataLabel.Left = 243
  48.     graph.SeriesCollection(3).Points(4).DataLabel.Top = 23
  49.     graph.SeriesCollection(3).Points(5).DataLabel.Left = 306
  50.     graph.SeriesCollection(3).Points(5).DataLabel.Top = 45
  51.     graph.SeriesCollection(3).Points(6).DataLabel.Left = 371
  52.     graph.SeriesCollection(3).Points(6).DataLabel.Top = 148
  53.     graph.SeriesCollection(3).Points(7).DataLabel.Left = 436
  54.     graph.SeriesCollection(3).Points(7).DataLabel.Top = 123
  55.     graph.SeriesCollection(3).Points(8).DataLabel.Left = 504
  56.     graph.SeriesCollection(3).Points(8).DataLabel.Top = 328
  57.     graph.SeriesCollection(3).Points(9).DataLabel.Left = 569
  58.     graph.SeriesCollection(3).Points(9).DataLabel.Top = 312
  59.     With graph.SeriesCollection(2).Border
  60.         .Weight = xlThin
  61.         .LineStyle = xlAutomatic
  62.     End With
  63.     graph.SeriesCollection(2).Shadow = False
  64.     graph.SeriesCollection(2).InvertIfNegative = False
  65.     With graph.SeriesCollection(2).Interior
  66.         .ColorIndex = 37
  67.         .Pattern = xlSolid
  68.     End With
  69.     graph.SeriesCollection(2).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
  70.     With graph.SeriesCollection(1).Border
  71.         .Weight = xlThin
  72.         .LineStyle = xlAutomatic
  73.     End With
  74.     graph.SeriesCollection(1).Shadow = False
  75.     graph.SeriesCollection(1).InvertIfNegative = False
  76.     With graph.SeriesCollection(1).Interior
  77.         .ColorIndex = 10
  78.         .Pattern = xlSolid
  79.     End With
  80.     graph.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
  81.     With graph.PlotArea.Border
  82.         .ColorIndex = 16
  83.         .Weight = xlThin
  84.         .LineStyle = xlContinuous
  85.     End With
  86.     With graph.PlotArea.Interior
  87.         .ColorIndex = 2
  88.         .PatternColorIndex = 1
  89.         .Pattern = xlSolid
  90.     End With
  91.     With graph.SeriesCollection(3).DataLabels.Border
  92.         .Weight = xlHairline
  93.         .LineStyle = xlNone
  94.     End With
  95.     graph.SeriesCollection(3).DataLabels.Shadow = False
  96.     graph.SeriesCollection(3).DataLabels.Interior.ColorIndex = xlNone
  97.     graph.SeriesCollection(3).Points(2).DataLabel.Select
  98.     graph.SeriesCollection(3).Points(1).DataLabel.Select
  99.     graph.SeriesCollection(3).DataLabels.AutoScaleFont = True
  100.     With graph.SeriesCollection(3).DataLabels.Font
  101.         .name = "Arial"
  102.         .FontStyle = "Gras"
  103.         .Size = 10
  104.         .Strikethrough = False
  105.         .Superscript = False
  106.         .Subscript = False
  107.         .OutlineFont = False
  108.         .Shadow = False
  109.         .Underline = xlUnderlineStyleNone
  110.         .ColorIndex = 3
  111.         .Background = xlAutomatic
  112.     End With
  113.     graph.SeriesCollection(2).DataLabels.AutoScaleFont = True
  114.     With graph.SeriesCollection(2).DataLabels.Font
  115.         .name = "Arial"
  116.         .FontStyle = "Gras"
  117.         .Size = 10
  118.         .Strikethrough = False
  119.         .Superscript = False
  120.         .Subscript = False
  121.         .OutlineFont = False
  122.         .Shadow = False
  123.         .Underline = xlUnderlineStyleNone
  124.         .ColorIndex = xlAutomatic
  125.         .Background = xlAutomatic
  126.     End With
  127.     graph.SeriesCollection(1).DataLabels.AutoScaleFont = True
  128.     With graph.SeriesCollection(1).DataLabels.Font
  129.         .name = "Arial"
  130.         .FontStyle = "Gras"
  131.         .Size = 10
  132.         .Strikethrough = False
  133.         .Superscript = False
  134.         .Subscript = False
  135.         .OutlineFont = False
  136.         .Shadow = False
  137.         .Underline = xlUnderlineStyleNone
  138.         .ColorIndex = xlAutomatic
  139.         .Background = xlAutomatic
  140.     End With
  141.     graph.Legend.LegendEntries(3).Delete
  142.     graph.Legend.Left = 35
  143.     graph.Legend.Top = 25
  144.     graph.Legend.Width = 99
  145.     graph.Legend.Width = 107
  146.    
  147. End Sub


Message édité par darkspoilt le 18-06-2007 à 14:00:08
Reply

Marsh Posté le 18-06-2007 à 14:02:16    

a quoi ca te sert de renvoyer le workbook ? tu te contentesde l'enregistrer dans ta fonction précédente, et tu l'ouvres à nouveau dans ta 2e fonction...

Reply

Marsh Posté le 18-06-2007 à 14:02:16   

Reply

Marsh Posté le 18-06-2007 à 14:11:44    

justement je veux pas l'enregister

Reply

Marsh Posté le 18-06-2007 à 14:27:09    

même en temporaire ? tu peux faire un .delete à la fin sinon... :pt1cable:

Reply

Marsh Posté le 18-06-2007 à 14:31:48    

non mais c'est bon je fais un wall macro ca marche nikel juste dans ma macro1
cette ligne ne fonctionne pas et je ne sais pas pkoi

Code :
  1. xls.wbfile.Worksheet("R_analyse_croisée" ).Range("A1" ).Select

Reply

Marsh Posté le 18-06-2007 à 14:35:36    

un s a worksheets peut être ?

Reply

Marsh Posté le 18-06-2007 à 14:37:05    

non ce n'est pas ca

Reply

Marsh Posté le 18-06-2007 à 14:48:43    

personne peut m'aider??

Reply

Marsh Posté le 18-06-2007 à 15:09:46    

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é

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed