Discussion :

[yabiyou]

Bonjour,


Je suis débutant en VBA... ça fait depuis hier en fait lol

Je souhaite récupérer des données d'un fichier texte et les tracer dans un graphe nuage de points.

Pour l'instant j'ai écrit le code suivant:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Macro1()
 
'Récupérationd du fichier et importation
 
fichier = InputBox("entrez le nom du fichier")
ChDir "C:\Labview Fred"
Workbooks.Open Filename:=fichier
 
Attenuateur = InputBox("entrez la valeur de l'aténuateur")
 
Pertes_cable = InputBox("entrez la valeur des pertes câbles")
 
Frequence = Cells(1, 1)
 
Cells(1, 6) = "PIN corrigé (dBm)"
Cells(1, 7) = "POUT corrigé (dBm)"
 
A = 2
Do Until Cells(A, 1) = ""
    Cells(A, 6) = Cells(A, 1) - Pertes_cable
 
A = A + 1
Loop
 
B = 2
Do Until Cells(B, 1) = ""
    Cells(B, 7) = Cells(B, 2) + Attenuateur
 
B = B + 1
Loop
 
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
 
'Mon programme ne marche pas à partir de là:
ActiveChart.SeriesCollection(1).XValues = "=fichier!R2C6:R12C6"
ActiveChart.SeriesCollection(1).Values = "=fichier!R2C7:R12C7"
 
    ActiveChart.SeriesCollection(1).Name = "=""tata"""
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphique"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "tata"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Pin (dBm)"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Pout (dBm)"
    End With
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = True
        .HasMinorGridlines = True
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = True
        .HasMinorGridlines = True
    End With
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
 
'
End Sub

En gros mon programme marche si je lui rentre directement le nom du fichier que j'ai sélectionné (ici "test2") à la ligne:
ActiveChart.SeriesCollection(1).XValues = "=test2!R2C6:R12C6"
Le problème est que je ne vais pas rentrer à chaque fois dans le soft le nom du fichier dans cette ligne...

Quelqu'un aurait'il une idée?

Merci

[House MD]

Dans

ActiveChart.SeriesCollection(1).XValues = "=fichier!R2C6:R12C6"

fichier est considéré comme une chaine de caractères.

Il faut l'extraire :

ActiveChart.SeriesCollection(1).XValues = "=" & fichier & "!R2C6:R12C6"

ou qqchose d'approchant.

[yabiyou]

C'est exactement ça!!

Merci pour ta réponse super rapide