Discussion :

[Barbie123]

bonjours a tous ,

J'ai un compteur qui me donne les resultats des differents status dans une colonne.Exemple: .

Je voudrais avec une macro exporter ce tableau sur (dans) une nouvelle page et que dans cette nouvelle page il me creer un graphique ou je pourrais voir l'évolution des résultats . Il aurait environ un nouveau tableau (le meme avec d'autres chiffres) tous les jours.

J'attend vos commentaires merci d'avance.

[Access Newbie]

Bonjour,

Vous devriez enregistrer une macro pendant que vous faites "à la main" ce que vous voulez. Puis ensuite vous adaptez votre code.

[Barbie123]

Merci Access Newbie ,c'est aussi la solution que l'on ma conseillé et sa marche bien.

J'ai maintenant un projet un peu plus ambicieux:
Alors petite illustration :
http://imgur.com/FpYMK.jpg

Alors le tableau violet est dans un fichier différent de celui du tableau bleu+ le graphique.
Alors pour faire simple le tableau bleu devrais prendre pour chaques nouvelles dates , les valeurs de la colonne B du tableau violet et les mettres a la suite du tableau (bleu, a chaques fois dans une nouvelle colonne).

-Puis le graphique dois a chaques fois prendre la nouvelle colonne en compte pour que l'on puisse par exemple bien voir l'évolution sur 1 semaine.


je vous donne le code que j'ai fais "a la main "

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
Sub sebtest()
'
' sebtest Makro
' Makro am 16.06.2009 von Sebastian Lett aufgezeichnet
'
 
'
    Sheets("Data").Select
    Range("AC42:AD47").Select
    Selection.Copy
    Sheets("Tabelle3").Select
    Range("A16").Select
    ActiveSheet.Paste
End Sub
 
Sub sebtest_graphique()
'
' sebtest_graphique Makro
' Makro am 16.06.2009 von Sebastian Lett aufgezeichnet
'
 
'
    Range("D14:K21").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkersStacked
    ActiveChart.SetSourceData Source:=Sheets("Tabelle3").Range("D14:K21"), _
        PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle3"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

ps: Le fichier d'origine du tableau violet comporte la date dans le nom du fichier on pourrait peut etre dire que dès que le nom du fichier change et que l'on lance la macro il doit y avoir une nouvelle colonne dans le tableau bleu.

J'ai un peu de mal a expliqué ce que je veux j´espère vous arriverez a comprendre et a m'aider . bonne appetit

[DeaD78]

Salut,

En effet, l'enregistreur de macros est ton ami : Outils/Macros/Nouvelle Macro.

Tu fais ce que tu veux, tu arrêtes ton enregistrement et tu as ta macro. Une fois cela fait, reviens nous voir si tu n'arrives pas à adapter (si tu as besoin d'adapter )

Bonne chance.

EDIT : pourquoi je refresh jamais ? Ô pourquoi ?

[Access Newbie]

Bonjour,

Si je comprends bien, tu as un fichier par mois (dans l'exemple que tu donnes, ca fait 7 fichiers différents). Y a-t'il une règle de nommage de ces fichiers ? (un petit exemple de nom de fichier serait le bienvenu )
Sur quel "range" se situent les données ? Est-ce toujours le même ?

Ensuite tu veux que les données (ce qui est en dessous de la date) de chaque fichier viennent se coller automatiquement dans ton fichier ou il y a le tableau.

C'est bien ca ?

Enfin, concernant les intitulés, ils sont toujours rangés dans le même ordre ? (ready for SWC,not ready for SWC ...)

[Barbie123]

Bonjour Access Newbie,

Alors oui dans mon exemple sa serait comme si le tableau avait déja eu 7 fichiers différents , comme si 7 jours étaient déja passés (pas 7 mois ).

Y a-t'il une règle de nommage de ces fichiers

oui (pour le fichier d'origine des données) exemple :
PPP-Released_ZX_090513_MY22.xls
(090513 correspond a la date de création)

Sur quel "range" se situent les données ? Est-ce toujours le même ?

oui range AB

Ensuite tu veux que les données (ce qui est en dessous de la date) de chaque fichier viennent se coller automatiquement dans ton fichier ou il y a le tableau.

Oui je veux les données en dessous de la date mais aussi la date comme dans l'exemple et qu'il se colle dans le fichier ou il y a le tableau et le graphique et que le graphique le prenne directement en compte .

Enfin, concernant les intitulés, ils sont toujours rangés dans le même ordre ? (ready for SWC,not ready for SWC ...)

oui toujours

[Access Newbie]

Bonjour,

Désolé pour le temps que j'ai mis a répondre, j'ai pas mal de boulot en ce moment

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Function SearchFile(strDir As String, Optional strExt = "*.*") As String
'Retourne le nom des fichiers presents dans un dossier passe en parametre(strDir),
'en fonction de l'extension recherchée (strExt)
'La recherche ne se fait pas dans les sous répertoires
'Ex : filesToSearch = SearchFile("C:\","*.xls") -> on recherche toous les fichiers excel presents dans c:
'retourne un resultat de la forme fichier1;fichier2;....
 
On Error GoTo ErrSearchFile
 
Dim i As Integer
Dim file As String
 
    With Application.FileSearch
        .NewSearch
        .LookIn = strDir
        .FileName = strExt
 
            If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
                For i = 1 To .FoundFiles.Count
                    file = FileName(.FoundFiles(i))
                    SearchFile = SearchFile & file & ";"
                Next i
                SearchFile = Left(SearchFile, Len(SearchFile) - 1)
            End If
 
    End With
 
    Exit Function
 
ErrSearchFile:
    SearchFile = ""
    MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical
 
End Function
 
Function FileName(strFullPath As String) As String
'retourne un nom de fichier en fonction du chemin complet
 
Dim result As Variant
Dim i As Integer
 
result = Split(strFullPath, "\")
FileName = result(UBound(result))
 
End Function
 
Sub CopyDatas(strCurWorkBookName As String, strWorkBookPath As String)
'copie les données d'un classeur vers le classeur courant
 
Dim rRangeToCopy As Range
Dim iNumColonne As Integer
 
'copie des données
Workbooks.Open (strWorkBookPath)
rRangeToCopy = Range("B1:B6")
Workbooks.Close
 
Windows(strCurWorkBookName).Activate
iNumColonne = ActiveWorkbook.Sheets(1).Cells(1, 255).End(xlToRight).Column
ActiveWorkbook.Sheets(1).Cells(1, iNumColonne) = rRangeToCopy
 
End Sub
 
Sub main()
 
Dim strCurWorkBookName As String
Dim vAllFiles As Variant
Dim strDir As String
Dim i As Integer
 
'recupere le nom du workbook courant
strCurWorkBookName = ActiveWorkbook.Name
strDir = "Ton repertoire ou se situent les fichiers"
 
'recupere l'ensemble des fichiers
vAllFiles = SearchFile(strDir, "*.xls")
 
For i = LBound(vAllFiles) To UBound(vAllFiles)
    Call CopyDatas(strCurWorkBookName, vAllFiles(i))
Next i
 
End Sub

J'ai pondu ça vite fait, il est possible qu'il y ait des erreurs. Si tu pouvais envoyer 2 ou 3 fichiers exemple ca serait sympa (dénature les données).

PS : il ne faut pas que le fichier excel dans lequel est le programme se situe dans le meme repertoire que les fichiers a rechercher.

EDIT : j'ai corrigé quelques petits trucs, cf fichier joint il reste encore le probleme du graphique, je te laisse y reflechir tout seul (n'oublie pas que l enregistreur de macro est ton ami )