Contenu récent par mromain

Bonjour iliess, goube, le forum, Ci-dessous une autre proposition basée sur ton fichier du post #1. let SourceTypeA = Table.AddColumn(Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content], "Type", each "Type A", type text), SourceTypeB =...

Bonjour gerardphi, Si ça ne te gêne pas, je préfère continuer sur le fil de discussion plutôt qu'en MP. La macro MajTableDef ne crée pas de tableau. Elle ne fait que mettre à jour la table. Elle prend la première table du document. Dans ton dossier complet, la première table trouvée est en...

Bonjour LeForain, sylvanu, le forum, @LeForain : Si le but du modèle Word est de générer un document pour une seule ligne de ton fichier source, une solution serait de ne pas utiliser le publipostage, mais de créer un modèle Word avec des contrôles de contenu. Ainsi, tu peux facilement en VBA...

Bonjour gerardphi, le forum, Ton dernier fichier n'était pas le même que celui précédemment fourni (au post #9) : il manquait la table à alimenter. Tu trouveras ci-joint ton dernier fichier avec cette table créée (avec les en-têtes et une première ligne vide). La macro fonctionne bien. A+

Bonjour gerardphi, Est-ce que tu sais au mois quelle ligne déclenche ce problème ? Oui, elle cherche le premier tableau du document (Set l_o_table = ThisDocument.Tables(1)). Quand j’aurais le temps, je regarderai ton dernier fichier pour faire fonctionner le code sur celui-ci. Par contre, il...

Bonjour gerardphi, Tu trouveras une solution ci-dessous à mettre dans ton document. Public Sub MajTableDef() Dim l_as_geoDefsInfos() As String Dim l_o_dicoTocLinks As Object 'Scripting.Dictionary Dim l_l_iDef As Long Dim l_s_subAddress As String Dim l_o_table...

Bonjour gerardphi, le forum, Dans ton document, il n'y a aucun lien hypertexte dans les zones avec le style "Géo_Déf T1". Tu peux tester ce code pour t'en convaincre : Sub Test() Dim l_o_hl As Hyperlink Dim l_l_nb As Long For Each l_o_hl In ThisDocument.Range.Hyperlinks If (Not...

Bonjour Cousinhub, C'est possible oui. L'erreur se déclenche car dans le contexte d'évaluation par défaut, il ne connait pas la fonction Int64.Type. Tu trouveras ci-dessous 2 moyens de faire fonctionner la chose :let Erreur = Expression.Evaluate("Int64.Type"), SansErreur1 =...

Bonjour Flx1er, le forum, Ci-dessous un essai : let DefModifTypes = let Noms_colonnes = Excel.CurrentWorkbook(){[Name="Noms_cols"]}[Content][Column1], Type_colonne = Excel.CurrentWorkbook(){[Name="Types_cols"]}[Content][Column1] in...

Bonjour gerardphi, le forum, Je t'avoue ne pas très bien comprendre ce que tu veux... Est-ce qu'il faut extraire uniquement les liens qui sont sous un titre de niveau 3 ? L'erreur est due au fait que certains liens hypertexte sont sur des images. La nouvelle version ci-jointe ignore les...

Bonjour gerardphi, le forum, Tu trouveras ci-joint une solution intermédiaire permettant d'extraire les liens dans un tableau Excel. Libre à toi ensuite de trier les infos et copier le tableau où tu veux dans le document. Il te faudra au préalable redéfinir le niveau hiérarchique de tes titres...

Bonjour gerardphi, le forum, Le traitement que tu souhaites automatiser semble réalisable. On peut envisager parcourir tous les liens hypertextes et récupérer : le texte affiché – équivalent à ta colonne Nom ; l'adresse du lien hypertexte – équivalent à ta colonne Déf/Lien ; le titre de niveau...

Re-bonjour, bonjour @Cousinhub, @Tom33700 : Si tu commences avec PowerQuery, et en complément des infos données par @Cousinhub, tu peux aussi regarder les exemple de problématiques sur excel-formations.fr ainsi que les différentes leçons de Pierre Fauconnier. @Cousinhub : Effectivement, il y...

Bonjour Tom33700, le forum, Là ça dépend de comment est ton fichier. Tu trouveras un exemple ci-joint où les données d'entrée sont dans un tableau structuré nommé Tab_ListeValeurs. La requête PowerQuery devient alors : let Source =...

Bonjour Tom33700, le forum, Une solution avec PowerQuery normalement intégré à ta version. L'étape Source est à adapter pour se baser sur ton tableau d'entrée. let Source =...