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 :

Modifier une shape Word via Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Conseil en assistance à maîtrise d'ouvrage
    Inscrit en
    Février 2015
    Messages
    126
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Conseil en assistance à maîtrise d'ouvrage

    Informations forums :
    Inscription : Février 2015
    Messages : 126
    Par défaut Modifier une shape Word via Excel
    Bonsoir,
    Après de nombreuses recherche je n'ai pas réussi à tomber sur ce que je voulais.
    J'aimerais pouvoir modifier la valeur texte d'une shape dans Word, lorsque que je viens de créer ce document word via excel.
    Voici le code que j'ai essayé sans résultat :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
        Set WordApp = CreateObject("word.Application")
        WordApp.Visible = True
        WordApp.Documents.Open LeRep1
     
    With WordApp.Documents.Shapes.Range(Array("Zone de texte 10"))
    .Text = sNomDossier
     
    End With
     
     
    End Sub
    La ligne erreur est la ligne "With WordApp.Documents.Shapes.Range(Array("Zone de texte 10"))" ...
    Je pense que la sélection du fichier word n'est pas bonne mais je ne sais pas comment le résoudre..
    Merci de votre aide
    Cordialement.

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par Patouillou Voir le message
    Bonjour,

    A adapter :
    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
     
    Option Explicit
     
    Sub ModifierLeTexteDUnAutoShape()
     
    Dim WordApp As Word.Application  ' As Object si Word n'est pas référencé
    Dim WordDoc As Word.Document   ' As Object si Word n'est pas référencé
    Dim RepertoireFichier As String, sNomDossier As String, ChaineAChercher As String
    Dim I As Integer
     
        Set WordApp = CreateObject("word.Application")
        With WordApp
     
             .Visible = True
             RepertoireFichier = "C:\Users\XXXX\" ' A adapter
             sNomDossier = "Nom du dossier"
             ChaineAChercher = "Zone de texte 10"
     
             Set WordDoc = .Documents.Open(RepertoireFichier & "XXXXX.docx") ' A adapter
             With WordDoc
                  If .Shapes.Count > 0 Then
                     For I = 1 To .Shapes.Count
                         If .Shapes(I).Type = 1 Then  ' Se reporter aux 
                            With .Shapes(I)
                                 If InStr(1, .TextFrame.TextRange.Text, ChaineAChercher, vbTextCompare) > 0 Then
                                    .TextFrame.TextRange.Text = sNomDossier
                                    'MsgBox .TextFrame.TextRange.Text
                                 End If
                            End With
                         End If
                     Next I
                  End If
                  .Close savechanges:=True
             End With
             Set WordDoc = Nothing
     
             .Quit
     
         End With
         Set WordApp = Nothing
     
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Conseil en assistance à maîtrise d'ouvrage
    Inscrit en
    Février 2015
    Messages
    126
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Conseil en assistance à maîtrise d'ouvrage

    Informations forums :
    Inscription : Février 2015
    Messages : 126
    Par défaut
    Je te remercie!
    Cela fonctionne parfaitement !
    Merci de ton aide

Discussions similaires

  1. Modifier le texte d'un signet word via Excel
    Par yamat dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 31/07/2008, 18h19
  2. Réponses: 1
    Dernier message: 27/09/2006, 17h20
  3. Réponses: 2
    Dernier message: 03/05/2006, 22h34
  4. Modifier une table MySQL via un lien
    Par Hayabusa dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 08/02/2006, 22h51
  5. [Firebird D7] Modifier une procedure stocké via Delphi
    Par EGI dans le forum Connexion aux bases de données
    Réponses: 4
    Dernier message: 30/03/2005, 15h54

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