Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2787 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Access probleme de renvoi

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Access probleme de renvoi

n°1576168
darkspoilt
Posté le 18-06-2007 à 11:17:54  profilanswer
 

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


mood
Publicité
Posté le 18-06-2007 à 11:17:54  profilanswer
 

n°1576205
jpcheck
Pioupiou
Posté le 18-06-2007 à 12:01:55  profilanswer
 

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

n°1576232
darkspoilt
Posté le 18-06-2007 à 13:25:05  profilanswer
 

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.

n°1576233
jpcheck
Pioupiou
Posté le 18-06-2007 à 13:26:42  profilanswer
 

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.

n°1576235
darkspoilt
Posté le 18-06-2007 à 13:30:43  profilanswer
 

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
n°1576238
darkspoilt
Posté le 18-06-2007 à 13:39:19  profilanswer
 

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

n°1576243
jpcheck
Pioupiou
Posté le 18-06-2007 à 13:45:23  profilanswer
 

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)

n°1576246
darkspoilt
Posté le 18-06-2007 à 13:51:05  profilanswer
 

oui mais ca changera pas grand chose a mon probleme

n°1576252
darkspoilt
Posté le 18-06-2007 à 13:55:22  profilanswer
 

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
n°1576264
jpcheck
Pioupiou
Posté le 18-06-2007 à 14:02:16  profilanswer
 

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...

mood
Publicité
Posté le 18-06-2007 à 14:02:16  profilanswer
 

n°1576272
darkspoilt
Posté le 18-06-2007 à 14:11:44  profilanswer
 

justement je veux pas l'enregister

n°1576285
jpcheck
Pioupiou
Posté le 18-06-2007 à 14:27:09  profilanswer
 

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

n°1576295
darkspoilt
Posté le 18-06-2007 à 14:31:48  profilanswer
 

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

n°1576301
jpcheck
Pioupiou
Posté le 18-06-2007 à 14:35:36  profilanswer
 

un s a worksheets peut être ?

n°1576303
darkspoilt
Posté le 18-06-2007 à 14:37:05  profilanswer
 

non ce n'est pas ca

n°1576306
darkspoilt
Posté le 18-06-2007 à 14:48:43  profilanswer
 

personne peut m'aider??

n°1576321
darkspoilt
Posté le 18-06-2007 à 15:09:46  profilanswer
 

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é


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Access probleme de renvoi

 

Sujets relatifs
VBA Access porbleme méthode objetProblème pour additionner des variables
[J2ME] Problème flux mjpegLe déroulement d'un menu qui passe sous un bloc, probléme!
Probleme avec HashmapProbléme VALUES formulaire
Problème avec le curseurProbleme session combiné aux frames
Access - Liste déroulantes Dépendantes ... 
Plus de sujets relatifs à : VBA Access probleme de renvoi

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.112 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR