Résultats pour "word signets pdf extraction"

1'876 résultats pour cette recherche

Bonjour,

Je souhaiterai savoir sil est possible de diviser un fichier pdf qui a des signets en fonctions de ses signets en passant par word?

Bonjour,

Je suis novice sur VBA et je souhaite trouver une écriture permettant de remplacer les signets d'un document word par n'importe quelle information de mon fichier excel, tout en sachant qu'il fait plusieurs pages. Ma question est la suivante, comment aller chercher une donnée dans une page précise? Tout en sachant qu'il pourra s'agir d'un graphique.

Sub ouvrir()

Dim EmpDoc

'récupère l'emplacement et le nom de fichier dans la variable EmpDoc

EmpDoc = Sheets("Parametreseditions").Range("B1").Value & "\" & Sheets("Parametreseditions").Range("B2")

MsgBox (EmpDoc)

'ouvre le document word

Set wordapp = CreateObject("word.Application")

wordapp.Visible = True

wordapp.Documents.Open EmpDoc

' libérer la mémoire

Set objWord = Nothing

End Sub

Voici la manière dont je souhaite ouvrir le document word, cette formule fonctionne. Mais je n'arrive pas à l'adapter pour remplacer mes signets par une donnée d'une page précise.

Merci d'avance pour votre aide

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

Bonjour,

tout d'abord super site, j'ai appris beaucoup de choses en solo avec le forum et les cours VBA.

Dans le cadre de mon travail, j'ai voulu agréger beaucoup de document de trames et de feuilles de calcul en un seul fichier.

Je ne peux malheureusement pas joindre le fichier à cause des informations confidentielles (les supprimer n'est pas possible, il y a vraiment beaucoup d'informations et deux bases de données intégrées dans le fichier) mais aussi des protections internet de l'entreprise.

Ce document excel va être utilisé par une vingtaine de personne une fois finalisé

Je bloque actuellement sur une partie de l'application.

j'ai créée un USERFORM d'accueil qui, avec une de userform.show / userform.hide, me permet de gérer plusieurs aspects de mon travail (par exemple depuis l'accueil je peux choisir de travailler sur des acomptes, des trames de courrier basiques, des rappels de sommes d'argent etc ..).

Sur cet userform d'accueil je peux rechercher le matricule d'un agent et ensuite afficher toutes les informations connues à son sujet et qui sont utilisées dans les sous programmes d'acompte ou de rappels de sommes et aussi de choisir qui est le gestionnaire en charge du document qui sera généré.

En ce moment je développe une partie sur des courriers de litiges. Dans mon userform "courrier litige" (voir imprime écran litige ci dessous), le bouton rappel d'information permet de rappeler la date du jour, le gestionnaire et son adresse mail dans les textbox qui sont renommées en fonction du label à gauche.

litige

le gestionnaire va devoir ensuite préciser l'objet, s'il y a une pièce jointe et le texte attaché.

en cliquant sur valider les informations, ces dernières sont inscrites dans des cellules d'une feuille "reglage" qui fait office de stockage de variables (le nom et le mail du gestionnaire y est stocké aussi par exemple).

nous arrivons enfin au sujet principal (désolé pour tout le blabla )

en cliquant sur "ouvrir le courrier type", un document word s'ouvre automatiquement et se rempli via les signets.

pour l'instant le document s'ouvre parfaitement


Private SubCommandButton5_Click()

Dim WordApp As Object, WordDoc As Object

Set WordApp = CreateObject("word.Application")
Set WordDoc = WordApp.Documents

    WordApp.Visible = True

    WordApp.Documents.Open "\\10.62.15.218\drh-uti\UTI\2019\courrier pour modèle thibault2.doc"

   WordDoc.Bookmarks("mail").Range.Text = Sheets("REGLAGE").Range("AB31") ' la cellule AB31 contient le mail du gestionnaire

End Sub

cependant j'ai une erreur à chaque fois pour les signets (dans le doc word les signets sont dans des champs textes) rien ne remplit et on me propose le debuggage

je ne vois pas vraiment dans quel direction partir (j'ai appris ce matin seulement les déclarations de variables en solo)

maitriser ce sujet pourra me permettre par la suite de créer des documents juridiques en fonction d'articles de lois choisis / grade de l'agent (je ne peux pas avoir un modèle word que je remplis à la mano à chaque fois, il y a plus d'une trentaine de grades avec chacun leur article de lois attachés)

en espérant pouvoir trouver mon bonheur avec vous

Cordialement

un panda perdu

Bonjour,

Avec VBA excel j'ai crée un bouton permettant de copier des données Excel à des endroits précis (grâce aux signets) dans un document Word.

Le problème est que les données copiées sont en format brut, il n'y aucune mise en forme.

Par exemple j'ai ce chiffre là 1 474,89€ qui va s'afficher comme ceci sur Word : 1474,89

J'aimerai pouvoir exporter la mise en forme établie sur Excel.

N’hésitez pas à me demander plus d'informations !

Merci par avance !

Fabien

Bonjour,

Je suis débutant dans vba et j'ai un problème dans ma formule. Je n'arrive pas à voir laquelle...

Je cherche à automatiser des cellules excel vers des signets spécifiques sur Word, voici ma formule :

Sub ouvrir()

ActiveWorkbook.FollowHyperlink "C:\Users\021284\Desktop\Travail vacances Lucile\test.docx"

'numéro des colonnes comprenant les données

champs = Array(1, 2)

'tableau des signets du fichier type

signets = Array("a", "b")

'écriture des signets

For Each i In champs

doc.Bookmarks(signets(i - 1)).Range = Sheets("feuil1").Cells(ActiveCell.Row, i)

Next

w.Visible = True

End Sub

La ligne surlignée en jaune ne fonctionne pas... Je vous envoie en pièce jointe un exemple.

Votre aide sera précieuse !

Merci par avance !

20test.docx (12.59 Ko)
28test.xlsm (19.18 Ko)

Bonjour,

Après plusieurs recherches sur le net et ici, je n'arrive pas à résoudre mon problème que je vous expose (je précise que je suis débutante - voire très débutante en VBA).

J'ai besoin de faire éditer des contrats par plusieurs personnes à qui on remettra un fiche à compléter (exemple de fichier excel joint). Sur cette base, les éléments complétés doivent générer le document word (exemple joint), compléter les champs et séléctioner les paragraphes rédigés. Les champs conditionnels sont avec signets.

Je voudrais utiliser VBA pour lier les documents et développer, mais je ne connais pas du tout le code à appliquer, et je n'arrive pas à trouver de quoi m'aider. Est-ce que quelqu'un pourrait m'orienter svp ? Soit vers un tutoriel, soit en m'indiquant la méthode que je pourrai dupliquer ensuite ?

Avec mes remerciements d'avance

N'hesitez pas à me demander si vous avez besoin d'infos complémentaires.

Bonjour,

Je suis à la recherche de comment créer un PDF avec des signets qui correspondront à mes 10 onglets de mon Excel.

Comment faire ressortir mes 10 onglets comme des signet sur PDF.

Merci

Bonjour,

J'ai découvert les signets des liens hypertexte quel bonheur mais j'avoue que j'ai vite déchanté au bout de quelque minutes.

Ces signets sont parfaits, il me permettent de voir l'objet du bouton quand je passe ma souris dessus. Mon seul problème et que, étant donné que le lien hypertexte accroché à l'image et au-dessus du bouton, je ne peu lancer la macro.

J'aimerai alors que le lien hypertexte me renvoie vers quelque chose qui lance ma macro.

Je ne sais pas si j'ai été très clair pour mieux comprendre je vous joint un fichier explicatifs.

Merci à vous, à toi, à eux, à nous et à tous les autres.

15test-affichage.xlsm (21.36 Ko)

P.S : je me déconnecte à l'instant, je prendrais connaissance de vos réponses demain, merci à vous.

BIEN Cordialement,

Bonsoir,

Comme beaucoup je cherche une solution pour contourner l'impossibilité de créer des signets dans Excel... Et je n'ai pas trouvé!

Je voudrai en cliquant sur un "texte" dans les lignes B1:B4, que la ligne B5: B1000 contenant le même "texte" s'affiche.

Bien sûr il y a les liens hypertextes, mais ils renvoient vers une cellule, et naturellement en implémentant le fichier, par ajouts et retraits de ligne, la position du "texte" change. Donc ça n'est pas du tout efficace...

J'ai joint un fichier pour plus de compréhension...

Merci d'avance

106aller-a-la-ligne.xls (15.50 Ko)

Bonjour,

Le but est la création d'un fichier Word à partir d'autres fichiers Word et d'un tableur Excel.

En entrée j'ai :

  • Un word basique qui servira de support au document final (avec une page de garde et des styles de titre)
  • Plusieurs petits words (article 1, article 2, article 3...)
  • Un Excel qui regroupe :
    Les chemins d'accès aux plusieurs petits words en Feuil1
  • Des informations de base (Titre du document final, logo, adresse, date...) en Feuil2
  • Le sommaire du document final en Feuil3

En sortie je souhaite obtenir :

Un fichier word (le document final) construit sur la base du word support, qui suit le sommaire (en Feuil3 de l'excel) et qui intègre les petits words dans les parties qui leurs sont allouées.

Grosso modo je souhaite mettre en page toutes les informations que j'ai séparément pour que ça ne fasse qu'un seul document cohérent.

Je débute sous VBA mais j'ai envie d'apprendre donc let's go ! Merci pour l'aide que vous pourrez m'apporter.

Slash

1article-1.docx (13.14 Ko)
1article-2.docx (14.77 Ko)
0article-3.docx (20.17 Ko)
2classeur1.xlsx (10.79 Ko)
1doc1.docx (42.67 Ko)

Bonjour à vous,

je rencontre un obstacle que je peine à contourner.

Afin de récolter des informations d'une page word dans un array, j'utilise la fonction Open de vba Open strFileName For Input As #fileIndex puis je boucle sur chaque ligne avec un Do While Not EOF(fileIndex). (Je place le code ci dessous).

Cependant, alors que le fichier de départ contient beaucoup de lignes, ainsi qu'une image, le débugger me fait ressortir une seule ligne, comme si EOF avait été trouvé: le "do" s'arrêtant effectivement après sa première boucle. Voici la ligne concernée: PK!ZØÍÐÈ [Content_Types].xml ¢( ÄVKkÜ0¾òŒ®ÁÖ&…RÊzsÈ㘺¥

Quelqu'un saurait il comment je peux boucler en contournant ce EOF qui devrait continuer jusqu'à la fin du document? Ou constatez vous une erreur d'approche de ma part? Voici le code:

Sub wordDocExtraction(ByVal strFileName As String)

Application.ScreenUpdating = False
On Error GoTo extractorErrorHandler

'Définition des variables
Dim fileIndex As Integer
Dim ContenuLigne As String

'Assignation et ouverture d'un fichier à ouvrir
fileIndex = FreeFile()                       '(Fonction vba: donne un index disponible de fichier)
Open strFileName For Input As #fileIndex     'ouvre le fichier

'Parcour des lignes du fichier et insertion du contenu dans la variable contenu ligne
Do While Not EOF(fileIndex) '
    Input #fileIndex, ContenuLigne     ' lecture du fichier ligne par ligne: la variable "ContenuLigne" contient le contenu de la ligne active
    Debug.Print ContenuLigne
Loop

'Fermeture du fichier et réactivation du rafraichissement d'écran
Close #fileIndex
Application.ScreenUpdating = True
Stop
Exit Sub

extractorErrorHandler:
MsgBox "Le programme a rencontré une erreur."
Exit Sub
End If

End Sub

J'ai mis un exemple de document word en pj.

14test-demdande.docx (47.79 Ko)

Bonjour à tous,

J'ai fait figurer sur le fichier en PJ un exemple de mon problème et de la solution à laquelle j'aimerais aboutir, à partir d'une base de données factice.

Je souhaiterais rendre possible l'extraction d'une partie d'un tableau Excel vers Word, selon des critères définis à l'aide d'un UserForm.

Parmi les multiples possibilités, l'exemple que j'ai fait figurer est le choix de faire figurer toutes les colonnes dans l'extract, et toutes les lignes dans lesquelles figure "Mot 1" dans le Colonne 1.

capture

Si quelqu'un sait comment procéder pour automatiser cela à partir du UserForm que j'ai initialisé, ce serait génial.

Merci d'avance, et dites moi si vous avez besoin de précisions !

Bonjour à toutes et à tous,

Comme l'indique le titre, j'ai pour objectif d'extraire des données d'un fichier .docx vers un fichier .xlsx.

J'ai trouvé ce code qui a pour fonction de sélectionner les styles indiqués (dans .Style = "TITRE") pour ainsi copier la sélection vers un nouveau fichier Word : ce qui faciliterait donc mes intentions.

Au premier regard le code semble fonctionnel mais j'ai remarqué qu'il ne tenait pas compte de la totalité des titres.

J'ai par exemple pu extraire seulement 90 "Titres 3" alors que 150 sont présents sur le document source.

Sub Extract()

'Début du document
    Selection.Start = ActiveDocument.Content.Start
    Selection.End = ActiveDocument.Content.Start

'Recherche du style
    With Selection.Find
        .ClearFormatting
        .Style = "TITRE"

'Stockage du texte dans la variable valeur
        While .Execute
            Valeur = Valeur & Selection.Text

'Boucle de recherche
            Selection.Start = Selection.End + 1
            Selection.End = Selection.Start
        Wend
    End With

'Création du nouveau document de destination
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0

    Selection.TypeText (Valeur)

    Selection.WholeStory

End Sub

Si quelqu'un pouvait m'éclairer ...

Je vous remercie par avance pour l'aide accordée.

Bonjour le Forum

Je me permets de vous solliciter pour une aide sur VBA après plusieurs essais infructueux.

J'effectue chaque semaine la consolidation d'un reporting. Il est d'abord effectué sous excel puis par la suite "copier / coller" sous Word (sur la base d'un modèle non modifiable car diffusé par ailleurs).

Ce tableau (en pièce jointe) comprend des lignes qui chacune détaille :

  • le projet
  • la tâche
  • le % effectué
  • l'échéance
  • le gestionnaire
  • les remarques éventuelles

Le fichier Word dispose des mêmes informations mais formaliser de façon différente (exemple en PJ). Au regard du nombre de tâches à traiter chaque semaine, les actions de mises en forme sont immensément chronophages.

Je souhaiterais donc pouvoir automatiser l'extraction des lignes de données modifiées et/ou ajoutées du fichier Excel vers le modèle Word

Je voudrais donc savoir si c'est possible de faire une macro (ou 2 macro) qui permettent de

  • A partir de la colonne "Projet", positionner le nom du projet au niveau de la puce dans le fichier modèle Word
  • Pour chaque projet, ajouter les tâches (nom de tâche, % effectué, Échéance, Gestionnaire, remarques) qui ont été ajoutées et/ou modifiées. Au sein de l'exemple Excel, elles sont identifiées par le renseignement de la colonne "Ajout tâche ?" avec la mention "OUI"

Je ne sais pas si les explication sont suffisamment claires...

En tout cas je vous remercie par avance pour votre lecture et pour toute aide !

Dangui

31exemple.xlsx (15.14 Ko)

Bonjour à tous !

Je suis en stage depuis 2 mois et demi sur des instruments autonomes déployés en pleine mer.

Lors de leur déploiement, un document word est rempli avec diverses informations. Seulement, pour être rentrées en base, ces informations doivent être à nouveau rentrée sous excel, manuellement.

Mes supérieurs aimeraient que les informations contenues dans le document word puissent être automatiquement transférées dans un fichier excel via une macro.

j'ai recherché dans votre forum ainsi que sur mais je n'ai pas trouvé de sujets qui réponde à ce problème, cette action est-elle au moins réalisable ? et si oui, auriez-vous une idée de code ?(dans l'absolu)

je sais que se serait plus facile pour vous si vous aviez les fichiers sous la main mais je n'ai pas le droit de les diffuser, veuillez m'en excuser mon document word est simple mais les informations sont stockées dans des tableaux. le fichier excel de destination est une macro.

j'ai bien conscience que l'absence de ces fichiers ne vous facilitent pas la tâche pour vous répondre, encore désolée ...

merci d'avance !

PS : j'ai aussi parler à mes supérieurs d'éliminer définitivement le document word pour ne bosser que sur l'excel mais ce n'est pas leur avis, d'où l'existence de ce message

Bonjour à tous,

Débutante ... j'épluche depuis la semaine dernière ce site en ce qui concerne la création de macro sur excel mais je n'arrive pas à créer de connexion entre ce qui y est proposé et la tâche que l'on m'a confiée ... c'est compliqué de partir de rien ....

Pour le boulot, il m'a été demandé de créer ce qui suit, sachant que je ne peux pas partager les documents de mon entreprise je vais essayer d'être le plus clair possible :

j'ai deux fichiers :

  • un excel avec une base de données de mots qui sont interdits à l'emploi
  • des fiches de consigne (environs 900 pages) spécifiques à mon activité qui peut être sous Word ou PDF, j'ai le choix..

Parmi les mots interdits, j'ai pour consigne de ne m'occuper que des mots en minuscule, je dois les identifier et sortir une liste de ces mots avec leur numéro de page afin que le correcteur puisse contrôler seulement les pages ou il y a un soucis.

la base de donnée ressemble à ça :

colonne A :

aider (v)

grandir (v)

CALCULER (V)

voici mon plan :

1- Créer une première liste des mots à identifier dans la fiche de consigne :

Deux conditions :

  • Formule pour que ne soit pris en compte que le texte avant l'espace
  • Formule pour que ne soit pris en compte que le texte en caractère minuscule

2- Comparer cette liste avec la fiche de consigne en PDF ou word 'la je ne vois pas encore comment faire ...

3- Entrer dans une table le résultat en associant le numéro de page

Voici mes questions :

Pouvez vous me dire si déjà, ma logique est bonne svp?

Connaissez vous une formule pour ne prendre en compte que le texte en minuscule? j'ai essayé de mettre une condition avec Lcase mais je n'ai pas réussi ...

Du pdf ou du word, quel est le support le plus approprié à votre avis pour réaliser un extract? Est ce que la fiche de consigne word ou pdf doit être ouverte pour pouvoir être analyser par la macro?

J'ai la semaine pour plancher la dessus, je vous partagerais mon résultats (si je le trouve!!!)

Je sais que c'est un gros morceau ... je vous remercie d'avance pour m'avoir lue et pour vos conseils avisés

Nini12345

Bonsoir à tous,

J'ai crée un document word dans lequel j'ai installé un bouton "Envoyer".

Mon objectif est de pouvoir, en cliquant sur ce bouton Envoyer, transmettre le document non pas au format word mais PDF

et en pièce jointe dans un email Outlook.

J'arrive à créer un code pour un envoi en word :

Private Sub ENVOYER_Click()

Options.SendMailAttach = True

ActiveDocument.SendMail

End Sub

Mais je n'arrive pas à créer un code pour un envoi par email en PDF.

Puis-je solliciter votre aide ?

J'ai inséré en pièce jointe le document word.

Merci d'avance,

Raphaël

51test.docm (98.72 Ko)

J'ai créée un formulaire sous word et j'y ai intègré une macro pour l'enregistrement en PDF avec dans le titre, des éléments du formulaire.

Elle a fonctionné 1 fois.

Les autres fois j'ai des messages d'erreur différents. (problème avec le chemin d'accès ou avec le body format).

Je tourne en rond HELP

Voilà ma macro

Sub Macro1() 
' 
Dim Chemin As String 
Dim NFichier As String 
Dim Nom As String 
Dim D?but As String 

Chemin = ActiveWorkbook.Path & "\" 
Nom = ActiveDocument.Bookmarks("Nom").Range.Text 
D?but = ActiveDocument.Bookmarks("d?but").Range.Text 
NFichier = "Demande CP/RTT " & Nom & " " & D?but & ".pdf" ' nom d'enregistrement du pdf Salari? + p?riode 

ActiveDocument.ExportAsFixedFormat outputFileName:=Chemin & NFichier, _ 
exportFormat:=wdExportFormatPDF 
' enregistrement' 

Set OApp = CreateObject("Outlook.Application") ' envoi par mail outlook 
Set OMail = OApp.CreateItem(0) 

With OMail 

.Display 
.To = "yz" 
.Subject = "Demande CP/RTT" 
.Attachments.Add ActiveDocument.Path & "/" & NFichier 
.BodyFormat = olFormatRichText 
.Body = "Tu trouveras ma prochaine feuille de CP/RTT pour le" & D?but 
.Send 
End With 

End Sub

Bonjour,

J'aimerai avoir une macro qui m'exporte un fichier word (sans l'ouvrir) en pdf depuis mon classeur excel. J'ai beau chercher je n'ai pas réussi...

Quelqu'un peut-il m'aider?

Cordialement,

Alexandre

Recherches récentes

alimenter listbox viatableaux wordtransport grilleposition tableau word vbaimage userformcouleur ongletgestiongestion stockgestion paienom ongletonglettrie automatiqueformulaire imagecellulleliste deroulanteincrementerpmujason pmujasonauto open