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 :

Modification de signets Word avec Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 15
    Par défaut Modification de signets Word avec Excel
    Bonjour a tous.

    étant débutant dans le VBA , je viens solliciter votre aide.
    je cherche a faire ce qui suit :

    dans un doc word (model) j'ai 13 signets que je souhaite remplacer avec excel.
    le texte de remplacement des signets se trouve sur la même ligne ( de B5 à N5 )

    je souhaite qu'avec un bouton + macro, excel remplace les signets word et enregistre le nouveau fichier "Doc_modifié.docx" sans toucher le Doc Model.

    j’espère que c'est claire pour une éventuelle aide de votre part.
    Cordialement

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Cela a été répondu des dizaines de folis

    https://cse.google.fr/cse?cx=partner...&sa=Rechercher

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 15
    Par défaut
    Merci pour la réponse votre sens de la repartie.
    juste pour information, j'ai déjà cherché sur le net et j'ai parcouru les sujets de ce forum qui traitent de problématique similaire.
    cela dit aucun n'est assez documenté ou commenté suffisamment pour un débutant comme moi.
    de plus je n'ai pas trouvé un sujet similaire qui traite l'enregistrement du fichier Doc sans toucher le fichier-modèle.
    je regrette juste le temps perdu pour répondre à mon sujet sans apporter quoi que ce soit.
    Très cordialement

  4. #4
    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
    Citation Envoyé par alpharender Voir le message
    je souhaite qu'avec un bouton + macro, excel remplace les signets word et enregistre le nouveau fichier "Doc_modifié.docx" sans toucher le Doc Model.
    Comme l'a dit clementmarcotte ( ), il a déjà été répondu plusieurs fois à ce type de demande.
    https://www.developpez.net/forums/d1...r-ficher-word/
    https://www.developpez.net/forums/d1...ts-mise-forme/
    https://www.developpez.net/forums/d1...tegrant-infos/
    https://www.developpez.net/forums/d1...c-word-precis/
    https://www.developpez.net/forums/d1...cel-vers-word/

    Citation Envoyé par alpharender Voir le message
    l'enregistrement du fichier Doc sans toucher le fichier-modèle.
    Utilise la méthode SaveAs2 sur l'objet Document de ton texte.
    Lire ça : https://docs.microsoft.com/fr-fr/off...i/word.saveas2

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 15
    Par défaut
    Bonsoir a tous.
    déjà 1000 excuses pour l'ambiance dans ce poste.

    je partage Ici la solution a mon problème,
    le code modifie les signets word et enregistre un nouveau DOC, sans la modification du fichier model.


    Bonne continuation a tous (sans exception clementmarcotte )
    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
     
    Sub EcritVersSignet()
    Dim LaLettre As String
    Dim LeMontant
    Dim LeTexte2
    Dim ObjWord As Word.Application
    Dim LeDocWord As Word.Document
     
    On Error Resume Next
     
    LaLettre = ThisWorkbook.Path & "\lettre.doc"
    Set ObjWord = CreateObject("Word.Application")
    ObjWord.Visible = True
    Set LeDocWord = ObjWord.Documents.Open(LaLettre)
    LeMontant = [A1]
    LeTexte2 = [A2]
    With LeDocWord
    'Le nom du signet dans le document word est ici "Monsignet"
    .Bookmarks("Monsignet").Range.Text = LeMontant
    'Le nom du signet dans le document word est ici "Monsignet2"
    .Bookmarks("Monsignet2").Range.Text = LeTexte2
    End With
     
    'Pour enregistrer le document et quitter Word
    'LeDocWord.Save
    'ObjWord.Quit
     
    Set ObjWord = Nothing
    End Sub

  6. #6
    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
    Citation Envoyé par alpharender Voir le message
    enregistre un nouveau DOC, sans la modification du fichier model.
    Il n'y a rien dans ton code qui sauvegarde le document sous un autre nom.

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 15
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Il n'y a rien dans ton code qui sauvegarde le document sous un autre nom.
    voila le code d'enregistrement.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    LeDocWord.SaveAs Filename:="C:\.......\excel2word\" & "affaire_" & [B5].Value & ".docx"
    ObjWord.Quit
    Ps : je met mon fichier model est en lecture seul.

    merci pour ton retour.

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

    Regardez si cette discussion peut vous intéresser : importer-tableau-d-excel-sous-word-sous-format-image-partir-word

    Sinon, pour l'utilisation d'un modèle, regardez l'aide en ligne Word au mot Template, vous avez un exemple.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 07/08/2018, 10h50
  2. Remplir signet Word avec plusieurs feuille excel
    Par youki94 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/11/2008, 15h33
  3. 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
  4. Lire signets WORD depuis EXCEL
    Par nico75 dans le forum VBA Word
    Réponses: 5
    Dernier message: 15/07/2008, 23h34
  5. couper/coller entre deux signets word via excel
    Par ptitemar dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/08/2007, 11h41

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