IdentifiantMot de passe
Loading...
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 :

Macros et VBA Excel: élémentaire ?


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Bonsoir,
    Je suis sûr que c'est enfantin mais je patauge. J'ai d'une part un fichier Word (pour tester le code j'ai pris un extrait des Misérables) et d'autre part une feuille Excel du classeur qui contient les macros. Objectif: copier le texte Word (disposé en colonne, 1 mot par ligne) et le coller dans la première colonne de la feuille Excel (1 mot par cellule). VBA me signale 2 types d'erreurs: "Objet requis" et "Variable non définie". Pourtant toutes mes variables sont définies et j'ai déclaré comme objets ce qui devait l'être. Enfin je crois Donc quelque chose m'échappe. 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
    Sub report_texte(ligne, colonne)
    Dim appWord As Object
    Dim Fermer_Word As Boolean
    Dim WordApp As Object
    Dim WordDoc As Object
     
    ligne = 1
    colonne = 1
     
     compteur = 0
     
     ' Créer une instance de Word
        On Error Resume Next
        Set appWord = GetObject("Word.Application") ' Vérif si Word est déjà ouvert
        If appWord Is Nothing Then
            Set appWord = CreateObject("Word.Application") ' Sinon, ouvrir une nouvelle instance
            'Fermer_Word = True
        End If
        On Error GoTo 0
     
    ' transférer le texte
        ' Ouvrir le document
        appWord.Documents.Open ("E2:\2_M_E_S__P_R_O_J_E_T_S\Périple\5eme_analyse\colonne_LES_MISÉRABLES.docx")
     
    WordDoc.GetObject ("E2:\2_M_E_S__P_R_O_J_E_T_S\Périple\5eme_analyse\colonne_LES_MISÉRABLES.docx")
    WordDoc.Copy                   'ici erreur variable non définie
    ThisWorkbook.Sheets("Hugo").Activate
    ActiveSheet.Visible = True
    Cells(1, 1).Select
    ActiveSheet.Paste
    End Sub
    En VBA, ça fait depuis 2006 que je débute, ceci explique cela. Merci à quiconque me tirera de cette impasse.
    Cordialement
    touche_a_tout

  2. #2
    Membre Expert Avatar de Nain porte koi
    Homme Profil pro
    peu importe
    Inscrit en
    Novembre 2023
    Messages
    934
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : peu importe

    Informations forums :
    Inscription : Novembre 2023
    Messages : 934
    Par défaut
    Hello,

    2 choses :
    1. pouvez vous fournir le fichier word pour que nous puissions tester ?
    2. sans aller bien loin dans votre code "E2:" c'est quoi ? parce que à ma connaissance une unité de disque est nommée avec une seule lettre et certainement pas de chiffre.

    Je terminerais par remplacer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    ThisWorkbook.Sheets("Hugo").Activate
    ActiveSheet.Visible = True
    Cells(1, 1).Select
    ActiveSheet.Paste
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ThisWorkbook.Sheets("Hugo").Cells(1, 1).Paste
    (à vérifier quand même) car il n'est pas nécessaire de sélectionner et ça évite les "clignotements" et autres affichages bizarres.
    JièL
    Membre des AMIS
    Anti Macro Inutilement Superfétatoire

  3. #3
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 159
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 159
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    par ailleurs, WordDoc n'est pas instancié par l'instruction Set

  4. #4
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    946
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 946
    Par défaut
    Salut, j'ai apporté quelques corrections, teste comme ceci:

    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
    Sub report_texte()
        Dim appWord As Object
        Dim WordDoc As Object
        Dim Fermer_Word As Boolean
        Dim Ligne As Long
        Dim Colonne As Long
        Dim Texte As String
        Dim Mots() As String
        Dim i As Long
     
        Ligne = 1
        Colonne = 1
        Fermer_Word = False
     
        On Error Resume Next
        ' Créer une instance de Word
        Set appWord = GetObject(, "Word.Application") ' Vérifie si Word est déjà ouvert
        If appWord Is Nothing Then
            Set appWord = CreateObject("Word.Application") ' Sinon, ouvrir une nouvelle instance
            Fermer_Word = True
        End If
        On Error GoTo 0
     
        Set WordDoc = appWord.Documents.Open("E:\2_M_E_S__P_R_O_J_E_T_S\Périple\5eme_analyse\colonne_LES_MISÉRABLES.docx")
     
        ' Lire le contenu du document
        Texte = WordDoc.Content.Text
        Mots = Split(Texte, " ")
     
        ' Transfert vers Excel
        With ThisWorkbook.Sheets("Hugo")
            For i = LBound(Mots) To UBound(Mots)
                .Cells(Ligne, Colonne).Value = Trim(Mots(i))
                Ligne = Ligne + 1
            Next i
        End With
     
        WordDoc.Close False
     
        If Fermer_Word Then appWord.Quit
     
        ' Libérer les objets
        Set WordDoc = Nothing
        Set appWord = Nothing
     
        MsgBox "Transfert terminé avec succès*!", vbInformation
    End Sub

  5. #5
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Merci à vous deux,
    Ce code est plein de fautes de frappe et d'incohérences. Le disque s'appelle E, bien entendu, "surnommé" Data2 (voilà le 2) parce que j'ai partitionné le disque d'origine. Incohérence: dans l'original il y a un underscore entre colonne et LES mais pas entre LES et MISÉRABLES. Certaines lettres sont accentuées, d'autres pas.
    J'ai fait ces corrections mais maintenant le code cycle à la ligne 23 et je dois faire un Ctrl_Alt/Del pour l'arrêter.
    J'ai fait le test avec les modifications de Franc mais ça cycle aussi, ligne 24.
    Après un Ctrl-Alt/Del j'ai remarqué que j'avais jusqu'à 4 mentions de Word; il semble donc que le code crée trop de documents Word mais je ne sais pas à quel stade.
    Le document "colonne_LES_MISÉRABLES.docx" est lourd et j'attends votre avis sur ce qui précède pour le joindre à un post.
    Merci de vous pencher sur mes barbouillages.
    Cordialement
    touche_a_tout

  6. #6
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Post Scriptum:
    Bonjour et merci à Franc, bien entendu.
    touche_a_tout

  7. #7
    Membre Expert Avatar de Nain porte koi
    Homme Profil pro
    peu importe
    Inscrit en
    Novembre 2023
    Messages
    934
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : peu importe

    Informations forums :
    Inscription : Novembre 2023
    Messages : 934
    Par défaut
    Citation Envoyé par touche_a_tout Voir le message
    Ce code est plein de fautes de frappe et d'incohérences.
    Donc il ne risque pas de fonctionner.

    Moi je veux bien VOTRE fichier Excel avec le code corrigé, et un extrait du fichier colonne_LES_MISÉRABLES.docx, pas besoin de la totalité.
    JièL
    Membre des AMIS
    Anti Macro Inutilement Superfétatoire

  8. #8
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Salut,
    Ton avatar qualifie parfaitement ma manière de coder, j'en suis conscient et ça ne s'améliore pas avec l'âge .
    Le code est un extrait, ça se voit. Il bloque sur l'antépénultième ligne.
    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
    Sub Prep_analyse_vocabulaire()
     
    Dim ligne, colonne As Integer
     
    'préparation du manus
    'Call corr_word
    'préparation des feuilles
    'Call suppr_feuilles_en_trop(Ligne, Colonne)
    'Call Cree_feuilles_tri(Ligne, Colonne)
    Call report_texte(ligne, colonne)
    'Call report_fragments(ligne, colonne)
    End Sub
     
    Sub report_texte(ligne, colonne)
    Dim appWord As Object
    Dim Fermer_Word As Boolean
    Dim WordApp As Object
    Dim WordDoc As Object
     
    ligne = 1
    colonne = 1
     
     
     ' Créer une instance de Word
        On Error Resume Next
        Set appWord = GetObject("Word.Application") ' Vérif si Word est déjà ouvert
        If appWord Is Nothing Then
            Set appWord = CreateObject("Word.Application") ' Sinon, ouvrir une nouvelle instance
            'Fermer_Word = True
        End If
        On Error GoTo 0
     
    ' transférer le texte
        ' Ouvrir le document
        appWord.Documents.Open ("E:\2_M_E_S__P_R_O_J_E_T_S\Périple<4eme_analyse\colonne_LES_MISÉRABLES.docx")
     
    Set WordDoc = GetObject("E:\2_M_E_S__P_R_O_J_E_T_S\Périple\4eme_analyse\colonne_LES_MISÉRABLES.docx")
    WordDoc.Copy             'erreur propriété ou méthode non gérée par cet objet
    ThisWorkbook.Sheets("Hugo").Cells(1, 1).Paste
    End Sub
    Le fichier Word est aussi un extrait. S'il est trop court, je peux y remédier.extrait_Lesmiserables.docx
    Merci de continuer ce pensum !
    Cordialement
    touche_a_tout

  9. #9
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    946
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 946
    Par défaut
    Nouvel essai, testé avec le docx que tu as fourni et ça fonctionne.

    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
    Sub report_texte()
        Dim appWord As Object
        Dim WordDoc As Object
        Dim Fermer_Word As Boolean
        Dim Ligne As Long
        Dim Texte As String
        Dim Lignes() As String
        Dim i As Long
     
        Ligne = 1
        Fermer_Word = False
     
        On Error Resume Next
        ' Créer une instance de Word
        Set appWord = GetObject(, "Word.Application") ' Vérifie si Word est déjà ouvert
        If appWord Is Nothing Then
            Set appWord = CreateObject("Word.Application") ' Sinon, ouvrir une nouvelle instance
            Fermer_Word = True
        End If
        On Error GoTo 0
     
        Set WordDoc = appWord.Documents.Open("E:\2_M_E_S__P_R_O_J_E_T_S\Périple\5eme_analyse\colonne_LES_MISÉRABLES.docx")
     
        Texte = WordDoc.Content.Text
     
        ' Remplacer tous les types de sauts de ligne par un format standard
        Texte = Replace(Texte, vbCrLf, vbLf) ' Remplace vbCrLf par vbLf
        Texte = Replace(Texte, vbCr, vbLf)   ' Remplace vbCr par vbLf
     
        ' Séparer le texte en lignes (utilise uniquement vbLf maintenant)
        Lignes = Split(Texte, vbLf)
     
        ' Transférer chaque ligne dans une cellule Excel
        With ThisWorkbook.Sheets("Hugo")
            For i = LBound(Lignes) To UBound(Lignes)
                If Trim(Lignes(i)) <> "" Then ' Ignorer les lignes vides
                    .Cells(Ligne, 1).Value = Trim(Lignes(i))
                    Ligne = Ligne + 1
                End If
            Next i
        End With
     
        ' Fermer le document Word
        WordDoc.Close False
     
        ' Fermer l'application Word si nécessaire
        If Fermer_Word Then appWord.Quit
     
        ' Libérer les objets
        Set WordDoc = Nothing
        Set appWord = Nothing
     
        MsgBox "Transfert terminé avec succès*!", vbInformation
    End Sub

  10. #10
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Bonsoir Franc et merci,
    Désolé, mais chez moi ça ne fonctionne pas. Ca cycle de nouveau, à la ligne 15 sauf erreur.
    Une précision: dans ta version du code, il reste une faute de frappe (à moi); le docx sur mon HD est au sous-répertoire 4eme et non 5eme analyse. Comme ça tourne sur ma machine, j'ai corrigé, ça m'a paru logique.
    Mais il faut m'expliquer un truc: tu parles du docx que j'ai fourni; j'ai contrôlé l'annexe du post en question, elle fait environ 13 Ko, c'est un extrait; le fichier entier qui est sur mon HD fait 53 Ko. Comment te l'es-tu procuré ?
    Une autre chose m'échappe: les deux fichiers docx sont déjà disposés en colonne, 1 mot par ligne, donc pourquoi fais-tu un split par lignes ?
    Merci de passer du temps sur cette bidouille, je n'imaginais pas qu'elle poserait autant de problèmes (et ce n'est pas fini, hélas)
    Cordialement
    touche_a_tout

  11. #11
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    946
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 946
    Par défaut
    J'ai simplement téléchargé l'extrait que tu as mis à disposition dans ton post #8. Dans ton document il y a des caractères invisibles qui perturbent la macro et qui font que tout le bloc de caractères se retrouve en cellule A1.
    Ensuite, j'utilise Replace pour unifier les caractères de séparation et ainsi récupérer les mots, sans espace vide, pour les aligner cellule par cellule. Pour mes tests, j'ai renommé ton fichier "Lesmiserables.docx" pour éviter tout problème potentiel de caractère accentué et autres signes spéciaux.
    Le résultat que j'obtiens est que chaque mot s'aligne une cellule en dessous de l'autre en partant de A1. C'est ce que j'ai compris que tu voulais, maintenant il est possible que j'aie mal compris.

    Nom : image.jpg
Affichages : 93
Taille : 29,3 Ko

  12. #12
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut Macros et VBA Excel: élémentaire ?
    Bonjour Franc et merci.
    Je vois ce que tu veux dire. En tout cas le résultat en colonne A est exactement ce que je cherchais mais je ne m'explique toujours pas ton split puisque mon docx était déjà en colonne un mot par ligne. Mais peu importe, le problème est: pourquoi est-ce que ça tourne en rond à l'infini sur ma machine à cause d'un "Set" puisque ton code est syntaxiquement irréprochable ? Grâce à "FermerWord = True" je n'ai plus qu'un fichier .docx à chaque exécution, c'est ok.
    Mais pour le reste je m'arrache les cheveux !
    Cordialement
    touche_a_tout

  13. #13
    Membre Expert Avatar de Nain porte koi
    Homme Profil pro
    peu importe
    Inscrit en
    Novembre 2023
    Messages
    934
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : peu importe

    Informations forums :
    Inscription : Novembre 2023
    Messages : 934
    Par défaut
    Franc complètera si besoin, mais Texte = WordDoc.Content.Text est une variable qui contient TOUT le texte de Word avec des caractères parasites.
    ce code remplace certains caractères parasites pas des vbLf
    Texte = Replace(Texte, vbCrLf, vbLf) ' Remplace vbCrLf par vbLf
    Texte = Replace(Texte, vbCr, vbLf) ' Remplace vbCr par vbLf
    et enfin
    Lignes = Split(Texte, vbLf)
    récupère dans une variable tableau chaque mot qui est ensuite distribué dans les lignes de la feuille Excel en évitant les lignes vides

    Si vous avez toujours des difficultés avec le mélange Word/Excel je vous propose une autre approche.
    Au lieu d'utilise un fichier .docx, enregistrez le en .txt
    Dans Word, Fichier, Enregistrer sous, choisir "Texte brut"
    Dans Excel, onglet Données, A partir d'un fichier texte/CSV, choisir le fichier, Importer
    A partir de là vous avez le choix de commencer un traitement dans Power Query en cliquant sur "Transformer les données" ou le traiter directement avec Excel en cliquant sur "Charger"

    L'avantage de passer par Power Query c'est que vous n'avez pas besoin de découper le fichier source en "mot", vous pourriez la faire directement dans Power Query
    JièL
    Membre des AMIS
    Anti Macro Inutilement Superfétatoire

  14. #14
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    946
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 946
    Par défaut
    Une cause possible est qu'une instance de Word tourne en arrière-plan quand tu lances la macro, vérifie avec le gestionnaire de tâches.
    Sinon je vois pas d'où peut venir le problème.

  15. #15
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut [XL-2016] Macros et VBA Excel: élémentaire ? Votre message
    Bonjour Nain_porte_koi et merci,
    Tout est clair maintenant et en plus, le code de Franc fonctionne. Maintenant je vais le réintégrer à mon app, dont il n'est qu'un des "épisodes", pour voir s'il fonctionne toujours.
    Merci à tous
    Cordialement
    touche_a_tout

  16. #16
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut [XL-2016] Macros et VBA Excel: élémentaire ?
    Bonjour Franc, Help !!
    Le code de ton post #9 fonctionnait à merveille jusqu'à hier soir et ce matin il bloque sur la ligne 15 avec le message "Un composant ActiveX ne peut pas créer d'objet". Pour moi c'est incompréhensible ! C'était une sub qui tournait comme une horloge et tout à coup ça ne marche plus. Je ne me rappelle pas avoir effectué un changement quelconque. As-tu une idée de ce qui se passe ?
    Merci d'avance.
    Cordialement
    touche_a_tout

  17. #17
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 159
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 159
    Billets dans le blog
    5
    Par défaut
    Bonjour,


    l'erreur signifie en gros que le composant n'arrive pas à créer l'objet représentant ton instance word.

    Essaye de passer en liaison précoce afin d'identifier la source potentielle :

    1) s'assurer que la référence "Microsoft Word xx.0 Object Library" est cochée (menu Outils >> Références)

    2) Modifier la déclaration des variables appWord et WordDoc comme ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim appWord as Word.Application
    Dim WordDoc as Word.Document

  18. #18
    Membre éclairé Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    528
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 528
    Par défaut [XL-2016] Macros et VBA Excel: élémentaire ?
    Bonjour et merci,
    En fait j'avais déplacé la moulinette en question à un autre endroit de la sub et, quand je l'ai remise à sa place initiale, le problème avait disparu. Il n'y a donc plus de souci. Merci à tous de vos interventions.
    Cordialement
    touche_a_tout

Discussions similaires

  1. Réponses: 2
    Dernier message: 27/09/2018, 02h49
  2. macros et vba excel envoi de mails multiples
    Par dembasba dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/09/2011, 22h41
  3. Macros et VBA Excel
    Par sousou94 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/09/2010, 17h59
  4. [VBA-E]Macros Et Vba Excell ?
    Par webconcept1 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 03/05/2007, 00h16

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