IdentifiantMot de passe
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

copier une feuille graphique vers un autre classeur en vba


Sujet :

Macros et VBA Excel

  1. 04/03/2011, 16h29 #1
    rob1son76
    rob1son76 est déconnecté
    Membre habitué
    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Janvier 2010
    Messages : 302
    Points : 185
    Points
    185
    Par défaut copier une feuille graphique vers un autre classeur en vba
    Bonjour,

    Je voudrai copier mes feuilles graphique d'un classeur excel vers un autre classeur excel.

    Voici mon code:

    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
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Sub Bouton34_QuandClic()
 
If Sheets("Recup").Cells(2, "AA").Value <> Null Then
ans = Sheets("Recup").Cells(2, "AA").Value
Else
ans = Format(Now(), "yyyy") + 0
End If
 
r = InputBox("Saisissez ou modifiez le chemin d'accès et le nom du fichier excel", "Un titre", "R:\Public\CMT-Usine\GOSC\KPI Quentin\apres\REND- " & ans & " pour export.xls")
r2 = Split(r, "\")
u = UBound(r2)
 
 
Dim exc As New Excel.Application
 
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "1er trimestre"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "2ème trimestre"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "destruction"
Sheets("destruction").Select
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add
 
 
Sheets("Feuil9").Select
Sheets("Feuil9").Name = "3ème trimestre"
Sheets("Feuil8").Select
Sheets("Feuil8").Name = "4ème trimestre"
Sheets("Feuil7").Select
Sheets("Feuil7").Name = "total"
Sheets("Feuil6").Select
Sheets("Feuil6").Name = "litrage boisson ES"
Sheets("Feuil5").Select
Sheets("Feuil5").Name = "suivi L.U"
Sheets("Feuil4").Select
Sheets("Feuil4").Name = "LU stretch"
Sheets("Graph8").Select
Charts("Graph8").Name = "Groupe 1"
Charts("Graph7").Select
Charts("Graph7").Name = "Groupe 2"
Charts("Graph6").Select
Charts("Graph6").Name = "Groupe 3"
Charts("Graph5").Select
Charts("Graph5").Name = "Groupe 4"
Charts("Graph4").Select
Charts("Graph4").Name = "Groupe 5"
Charts("Graph3").Select
Charts("Graph3").Name = "Groupe 6"
Charts("Graph2").Select
Charts("Graph2").Name = "USINE"
Charts("Graph1").Select
Charts("Graph1").Name = "Graph mini"
 
Sheets("destruction").Delete
 
 
ActiveWorkbook.SaveAs Filename:=r, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
 
 
Workbooks("REND xxxx.XLS").Worksheets("1er trimestre").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("1er trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("2ème trimestre").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("2ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("3ème trimestre").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("3ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("4ème trimestre").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("4ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("total").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("total").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("litrage boisson ES").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("litrage boisson ES").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("suivi L.U").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("suivi L.U").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("LU stretch").Activate
    Cells.Select
    Selection.Copy
 
Workbooks(r2(u)).Worksheets("LU stretch").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 1").Activate
 
    Charts("Groupe 1").Select
    Selection.Copy
 
Workbooks(r2(u)).Charts("Groupe 1").Activate
    ActiveChart.Paste
 
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
 
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 2").Activate
 
    Charts("Groupe 2").Select
    Selection.Copy
 
Workbooks(r2(u)).Charts("Groupe 2").Activate
    ActiveChart.Paste
 
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
 
 
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 3").Activate
 
    Charts("Groupe 3").Select
    Selection.Copy
 
Workbooks(r2(u)).Charts("Groupe 3").Activate
    ActiveChart.Paste
 
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
 
end sub

    Le début marche très bien mais il bloque à la ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.Copy
    du groupe 3.
    Il me l'a fait aussi au groupe 2 puis après sans réelle raison il a bien copié le groupe 2 mais pas le groupe 3.


    J'ai donc pensé que le presse papier était plein mais même en le vidant ca ne marche pas.

    Quelqu'un peu m'aider svp?

    Merci
    Répondre avec citation Répondre avec citation   0  0
  2. 04/03/2011, 17h53 #2
    rob1son76
    rob1son76 est déconnecté
    Membre habitué
    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Janvier 2010
    Messages : 302
    Points : 185
    Points
    185
    Par défaut
    Bon j'ai trouvé la solution.
    Voici mon code:

    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
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    Sub Bouton34_QuandClic()

If Sheets("Recup").Cells(2, "AA").Value <> Null Then
ans = Sheets("Recup").Cells(2, "AA").Value
Else
ans = Format(Now(), "yyyy") + 0
End If

r = InputBox("Saisissez ou modifiez le chemin d'accès et le nom du fichier excel", "Un titre", "R:\Public\CMT-Usine\GOSC\KPI Quentin\apres\REND- " & ans & " pour export.xls")
r2 = Split(r, "\")
u = UBound(r2)


Dim exc As New Excel.Application

Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "1er trimestre"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "2ème trimestre"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "Graph mini"
Sheets("Graph mini").Select
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Charts.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add
Sheets.Add


Sheets("Feuil9").Select
Sheets("Feuil9").Name = "3ème trimestre"
Sheets("Feuil8").Select
Sheets("Feuil8").Name = "4ème trimestre"
Sheets("Feuil7").Select
Sheets("Feuil7").Name = "total"
Sheets("Feuil6").Select
Sheets("Feuil6").Name = "litrage boisson ES"
Sheets("Feuil5").Select
Sheets("Feuil5").Name = "suivi L.U"
Sheets("Feuil4").Select
Sheets("Feuil4").Name = "LU stretch"
Sheets("Graph7").Select
Charts("Graph7").Name = "Groupe 1"
Charts("Graph6").Select
Charts("Graph6").Name = "Groupe 2"
Charts("Graph5").Select
Charts("Graph5").Name = "Groupe 3"
Charts("Graph4").Select
Charts("Graph4").Name = "Groupe 4"
Charts("Graph3").Select
Charts("Graph3").Name = "Groupe 5"
Charts("Graph2").Select
Charts("Graph2").Name = "Groupe 6"
Charts("Graph1").Select
Charts("Graph1").Name = "USINE"

ActiveWorkbook.SaveAs Filename:=r, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


Workbooks("REND xxxx.XLS").Worksheets("1er trimestre").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("1er trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("2ème trimestre").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("2ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("3ème trimestre").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("3ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("4ème trimestre").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("4ème trimestre").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("total").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("total").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("litrage boisson ES").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("litrage boisson ES").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("suivi L.U").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("suivi L.U").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("LU stretch").Activate
    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("LU stretch").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 1").Activate

    Charts("Groupe 1").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 1").Activate
    ActiveChart.Paste
    
    'OpenClipboard 0
    'EmptyClipboard
    'CloseClipboard

 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 2").Activate

    Charts("Groupe 2").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 2").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 3").Activate

    Charts("Groupe 3").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 3").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 4").Activate

    Charts("Groupe 4").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 4").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 5").Activate

    Charts("Groupe 5").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 5").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("Groupe 6").Activate

    Charts("Groupe 6").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("Groupe 6").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Charts("USINE").Activate

    Charts("USINE").Select
    ActiveChart.ChartArea.Copy

Workbooks(r2(u)).Charts("USINE").Activate
    ActiveChart.Paste
    
 '-----------------------------------------------------------------
Workbooks("REND xxxx.XLS").Worksheets("Graph mini").Activate

    Cells.Select
    Selection.Copy

Workbooks(r2(u)).Worksheets("Graph mini").Activate
    ActiveSheet.Paste
    

Application.CutCopyMode = False

Workbooks("REND xxxx.XLS").Close False
End Sub
    en rouge la correction qui vaut pour tous les groupes.
    Mon programme marche parfaitement avec Excel 2003 mais pas avec Excel 2007.
    Il me marque qu'une série ne peut avoir plus de 32000 points lors de la copie de chaque graphique.
    S'avez vous pourquoi?
    Et comment y remédier?

    Merci
    Répondre avec citation Répondre avec citation   0  0
ActualitésFAQs OFFICETUTORIELS OFFICELIVRES OFFICESOURCES VBAOFFICE 2010
« Discussion précédente | Discussion suivante »

Discussions similaires

  1. Copier une feuille excel à partir d'un classeur fermé vers le classeur actif
    Par Ma_Mariem dans le forum Excel
    Réponses: 15
    Dernier message: 23/05/2013, 19h33
  2. [Toutes versions] Copier une feuille excel vers un classeur pour un archivage par date
    Par Enguerrand.P dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 10/05/2013, 14h39
  3. [WD17] Copier feuille excel vers un autre classeur‎
    Par THOMAS Patrice dans le forum WinDev
    Réponses: 4
    Dernier message: 30/05/2012, 15h17
  4. Copier des données d'une feuille excel vers plusieurs autres
    Par LeeBamboo dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 25/08/2008, 15h46
  5. copier une feuille excel vers un autre fichier excel en access VBA
    Par acbdev dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/03/2008, 09h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo