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 Project Discussion :

D'Excel vers Word via VBA


Sujet :

VBA Project

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Décembre 2014
    Messages : 33
    Par défaut D'Excel vers Word via VBA
    Bonjour,

    Je cherchais en vain à importer les données d'Excel vers Word. J'ai toujours la même erreur : "Le composant activex ne peut pas créer un objet"

    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
    Sub EnvoyerDonneesExcelVersWord()
     
         Dim DocWord As Word.Document
     
         Dim AppWord As Word.Application
     
         Set AppWord = New Word.Application
     
         Application.DisplayAlerts = True
     
         AppWord.ShowMe
     
         AppWord.Visible = True
     
         'Ouvre le document Word
     
         Set DocWord = AppWord.Documents.Open("/Users/Juunii/Desktop/projet/salaire.doc", ReadOnly:=False)
     
         ' Copie les données Excel
     
         ThisWorkbook.Worksheets("tableau des salaires").Range("A1:G16").Copy
     
         ' Colle les données dans Word
     
         DocWord.Range.PasteSpecial
     
         Application.CutCopyMode = False
     
         DocWord.Application.ActiveDocument.Save
     
         AppWord.Application.Quit
     
    End Sub
    Set AppWord = New Word.Application : C'est là que ça "bogue". Merci de votre aide.

    Juunii

  2. #2
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Citation Envoyé par Juunii Voir le message
    Bonjour,
    Je cherchais en vain à importer les données d'Excel vers Word.
    Ce serait supposé de fonctionné.

    essaie de déclarer tes variables as Object
    et il faut bien évidement la référence Microsoft Word

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
         Dim DocWord As Object 
         Dim AppWord As Object

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Décembre 2014
    Messages : 33
    Par défaut
    Merci.

    En fait c'est à partir de là : http://ericrenaud.free.fr/droitedde.htm , mais ça ne fonctionne pas chez moi. J'ai vérifié les cases cochées dans Références et ça marche toujours pas.

    Est-ce que je dois passer par Excel et que je ferme Word avant d'activer la macro ?

    Merci beaucoup

  4. #4
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Citation Envoyé par Juunii Voir le message
    Est-ce que je dois passer par Excel et que je ferme Word avant d'activer la macro ?
    Quoi???
    Ton code appelle Word ... C'est certain que ta macro doit être dans Excel et Word fermé.
    la référence Microsoft Word doit être coché dans Excel.

  5. #5
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Décembre 2014
    Messages : 33
    Par défaut
    Un message d'erreur s'affiche : "Le composant ActiveX ne peut pas créer l'objet".

    C'est peut-être Set AppWord = New Word.Application

    Est-ce que tu as essayé toi-même ?

  6. #6
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Décembre 2014
    Messages : 33
    Par défaut
    Nom : ref.png
Affichages : 1160
Taille : 62,3 Ko

  7. #7
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Citation Envoyé par Juunii Voir le message
    Un message d'erreur s'affiche : "Le composant ActiveX ne peut pas créer l'objet".

    C'est peut-être Set AppWord = New Word.Application

    Est-ce que tu as essayé toi-même ?
    bien sur, j'utilise toujours ce type de connexion quand j'échange des données excel vers word et vis versa

    et toi as-tu essayé de déclaré tes variables as Object
    comme je t'ai proposé au message 2
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
      Dim DocWord As Object 
         Dim AppWord As Object

Discussions similaires

  1. [WD-2003] Formater export Excel vers Word via signet
    Par polemos dans le forum VBA Word
    Réponses: 6
    Dernier message: 24/11/2011, 14h33
  2. [XL-2007] transfert données excel vers word via plusieurs macro!
    Par yannick63430 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 18/12/2010, 21h41
  3. Insérer un Tableau excel dans Word via VBA depuis Excel
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 14/05/2008, 08h52
  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