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

VBA Word Discussion :

Utilisation des Macro pour une copie et mise en forme


Sujet :

VBA Word

  1. #1
    Candidat au Club
    Femme Profil pro
    Lycéen
    Inscrit en
    février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : février 2013
    Messages : 4
    Points : 3
    Points
    3
    Par défaut Utilisation des Macro pour une copie et mise en forme
    Bonjour à tous

    J'ai créé un fichier Excel, dans lequel je copie des cellules dans Word.

    Jusque là, tout va bien mais je dois faire des opérations répétitives, que j'aimerais remplacer par une macro.

    Je souhaite simplement, dans Word, coller ma copie d'Excel mais d'une manière bien spécifique.

    Pour le moment, ma copie me conserve la mise en forme source alors que je voudrais une copie qui lie et utilise les styles de destination).

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub Macro2()
    '
    ' Macro2 Macro
    '
    '
        Selection.PasteExcelTable False, False, False
    End Sub
    Egalement, je souhaiterais un ajustement du contenu du tableau collé.

    D'avance, merci à tous pour votre aide.

    Bien cordialement,

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Un peu court et peu précis comme explication.

    Le style de destination, il suffit de le déterminer dans Word.

    Répétitif, dans quelle mesure.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  3. #3
    Candidat au Club
    Femme Profil pro
    Lycéen
    Inscrit en
    février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : février 2013
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Bonjour

    Je dois faire la manipulation suivante :

    - coller en liant et utilisant les styles de destination
    - faire un ajustement automatique du contenu du tableau collé

    Avec une macro, je gagne du temps, tout se fait un un seul clic, je vais plus vite, d'autant que j'ai des dizaines de tableaux à copier de Excel vers Word.

    Je cherche donc tout simplement en vba (que je ne maîtrise pas) la commande qui permet de coller en liant et utilisant les styles de destination.

    La commande qui colle en conservant la mise en forme source est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.PasteExcelTable False, False, False
    Connaissez-vous celle qui permet de coller en liant et utilisant les styles de destination, tout en me permettant d'ajuster automatiquement le contenu ?

    Je pense à ceci mais j'ai un bug :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub Macro1()
    '
    ' Macro1 Macro'
    '
        Selection.PasteExcelTable True, True, True
        Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
    End Sub
    D'avance, merci pour votre réponse.

  4. #4
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Qu'appelles-tu style de destination ?
    Serait-ce la mise en forme des données dans Word ?

    Tu colles dans une tables ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
    Autre problème pour moi, tu collesoù tes données ?

    Je ne vois pas de déplacement dans un document ?

    Comment se déroulent la copie de tes données ?
    Tu copies dans Excel, tu active le document Word et tu cliques sur un bouton ?

    Si ça te semble évident, ça l'est beaucoup moins pour moi, les façons de transférer les données d'une application à l'autre sont si nombreuses.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  5. #5
    Candidat au Club
    Femme Profil pro
    Lycéen
    Inscrit en
    février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : février 2013
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Rebonjour

    Merci pour la réponse.

    Voici ce que je fais, en cliquant, via le ruban de Excel et Word :

    - je copie dans Excel quelques cellules qui m'intéressent
    - je colle ces cellules dans Word en liant et utilisant les styles de destination
    - je fais un ajustement automatique du contenu du tableau collé


    J'aimerais automatiser, via une Macro, les opérations que j'ai colorées en bleu.

    J'ai tâtonné avec l'enregistrement des Macro mais je ne suis pas doué.

    Pouvez-vous m'aider pour une Macro Word reprenant ce que j'ai coloré en bleu ?

    D'avance, merci

  6. #6
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Le faire au moment du collage va générér une usine à gaz.

    Par contre, tu pourrais envisager de le faire quand tout est collé.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim oTbl As Table
     
    For Each oTbl in activedocument.tables
        oTbl.AutoFitBehavior (wdAutoFitContent)
    Next oTbl
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  7. #7
    Candidat au Club
    Femme Profil pro
    Lycéen
    Inscrit en
    février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : février 2013
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Salut

    Merci beaucoup pour l'aide

    Tous les tableaux collés se placent parfaitement à présent.

    C'est un grand service, merci encore.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 07/05/2008, 18h38
  2. Réponses: 12
    Dernier message: 09/02/2008, 14h41
  3. [VBA] Utilisation des gets pour une classe de classe
    Par EvaristeGaloisBis dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 15/07/2007, 21h30
  4. comment forcer l'exécution des macros pour une seule base ?
    Par tristan_sauvage dans le forum Access
    Réponses: 4
    Dernier message: 21/08/2006, 11h59

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