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 :

D’Excel vers word vba [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Formateur en informatique
    Inscrit en
    Novembre 2004
    Messages
    50
    Détails du profil
    Informations personnelles :
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2004
    Messages : 50
    Par défaut D’Excel vers word vba
    Bonjour à tous,

    Est-il possible de m'aider sur un point de blocage :

    j'ai un fichier Excel dans le quel il y a des graphiques et des listes variables.

    j'arrive à exporter les graphiques dans un fichier word dans le quel il y a des signets. cepandent, je n'arrive pas à transferer les listes.

    comment transférer toutes les listes de longueur variable d’une feuille de calcul vers word.

    Je vous remercie de m’orienter vers une solution.

    Cordialement

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Pour le transfert lui-même, un simple Copy dans Excel et Paste dans Word devrait suffire.

    Mais je suppose que ton problème consiste à sélectionner l'intégralité de ta liste.
    Pour ça, il y a plusieurs méthodes.

    Si ta liste est le seul élément de ton onglet, le plus simple est d'utiliser UsedRange.
    https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)

    Si ta liste est "compacte" (sans trous), tu peux utiliser CurrentRegion appliquer à la première cellule de ta liste.
    https://msdn.microsoft.com/fr-fr/lib...8(v=office.15)

    Sinon, il faudra passer par deux End (xlUp et xlToLeft) pour déterminer la dernière ligne et la dernière colonne de ta liste.
    https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)

  3. #3
    Membre confirmé
    Profil pro
    Formateur en informatique
    Inscrit en
    Novembre 2004
    Messages
    50
    Détails du profil
    Informations personnelles :
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2004
    Messages : 50
    Par défaut Transfer Tableaux Excel dans Word
    Bonjour,

    Merci de m'avoir répondu.

    J'ai des tableaux dans Excel dont les résultats sont traités par procédures VBA. j'ai nommé ces tableaux de Lite1 à Liste5.
    Je souhaite transférer ces tableaux dans un document Word en format .dotx existant. ce dernier contient des signets de (Liste1 à Liste5).
    j'arrive à récupérer la première liste mais je n'arrive pas à boucler pour passer de liste1 à 5. J'utilise cette procédure ci-dessous. Merci par avance de tes observations.

    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 UseWord_1()
        Dim Wd As Word.Application
        Dim strChemin As String
        Dim strNomTexteword As String
        Dim bkmSignet As Word.Bookmark
        Dim rngCellule As Range
        Dim Li As Long, Col As Long, i As Long
     
        strChemin = ThisWorkbook.Path & "\"
     
        'Instanciation de l'objet Wd
        Set Wd = New Word.Application
     
        Li = 1
        Col = 1
     
        'Travail dans word
        With Wd
     
     
            For Each rngCellule In _
                ThisWorkbook.Worksheets("RESULTAT").Cells(Li, Col).CurrentRegion.Cells
     
                For i =1 To 5
     
                Application.StatusBar = "Cr?ation en cours " & rngCellule.Value
                'Cr?ation d'un nouveau doc
                .Documents.Add Template:=strChemin & "target_File.dotx"
     
                'Traitement dans un nouveau Doc Word
                    With .ActiveDocument
                         .Bookmarks("Liste" & i).Range.Text = rngCellule.Value
                    End With
     
                    i = i + 1
                Next i
            Next rngCellule
     
     
                ' Fin de travail dans word
                        strNomTexteword = Format(Hour(Time()), "00") & _
                        Format(Minute(Time()), "00") & Format(Second(Time()), "")
     
                    With .ActiveDocument
                         .SaveAs2 Filename:=strChemin & strNomTexteword & ".docx"
                         .Close
                    End With
        End With
     
        'Destruction de l'objet Wd
        Set Wd = Nothing
        MsgBox "Doc " & strNomTexteword & " crée"
     
    End Sub

  4. #4
    Membre confirmé
    Profil pro
    Formateur en informatique
    Inscrit en
    Novembre 2004
    Messages
    50
    Détails du profil
    Informations personnelles :
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2004
    Messages : 50
    Par défaut Question d'organisation peut être
    Bonjour Forum,

    J'ai pu répondre la question relative à l'export de tableaux Excel vers Word.

    Mon code copie en séquentiel les 25 graphiques vers word en fonction des signets dans Word.

    Questions :

    Tous les graphiques se trouvent dans la même feuille de calcul même si le programme analyse toutes les feuilles du classeur ou faut-il dédier une feuille pour chacun. Est-ce la bonne méthode ?

    Merci par avance

    Bien cordialement

  5. #5
    Membre confirmé
    Profil pro
    Formateur en informatique
    Inscrit en
    Novembre 2004
    Messages
    50
    Détails du profil
    Informations personnelles :
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2004
    Messages : 50
    Par défaut Ogranisation
    En prenant du recule, plusieurs tests et en fonction de la taille des listes à gérer. J'ai optimisé le contenu de chaque feuille de calcul.

    Cordialement

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Envois graphiques excel vers word vba
    Par Marc31 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 12/03/2013, 16h44
  2. Réponses: 2
    Dernier message: 12/02/2007, 13h39
  3. [VBA-Word] Exportation Excel vers Word
    Par le_sonic dans le forum VBA Word
    Réponses: 6
    Dernier message: 20/12/2006, 17h18
  4. [VBA-A]Copier des données d'Excel vers Word
    Par soad029 dans le forum VBA Word
    Réponses: 15
    Dernier message: 16/03/2006, 11h56
  5. [VBA-E]Copie graphique de excel vers word
    Par conconbrr dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/02/2006, 10h49

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