Contenu récent par mromain

  1. mromain

    Word Publipostage mail (outlook) avec objet personnalisé

    Bonjour julienpipiou et bienvenue sur le forum, Bonjour le forum, @julienpipiou : Tu trouveras ci-joint une version mise à jour avec : la gestion des modèles de mails au format Texte brut ; l'ajout de destinataire en copie (si la colonne CC existe dans la source ; l'ajout de destinataire en...
  2. mromain

    Power Query Simplification code M (issu de l'assistant PQ) ou autre syntaxe pour ce résultat

    Bonjour à tous @Staple1600 C'est bizare... Chez moi, chaque fois que j'utilise Web.Contents sur un nouveau site, PowerQuery me demande une "autorisation". La liste des sites "autorisés" est visible dans les Options et paramètre > Paramètres de la source de données > Autorisations globales...
  3. mromain

    Power Query Simplification code M (issu de l'assistant PQ) ou autre syntaxe pour ce résultat

    Bonjour à tous, @Staple1600 Je vais parler à l’aveugle n’ayant pas de Sharepoint pour tester… Est-ce que dans l’interface Web de Sharepoint l’affichage des éléments se fait sur plusieurs pages avec 100 éléments par pages ? Si c’est bien le cas, peut-être que ça marche comme sur certains sites...
  4. mromain

    PowerQuery / Comparer deux tables

    Bonjour, Ce post sert à présenter la fonction PowerQuery fnCompareTables qui permet de comparer deux tables de données. Elle prend en entrée : les deux tables à comparer ; la liste des colonnes composant "la clef des données" ; optionnellement, le nom des sources. Elle retourne : les colonnes...
  5. mromain

    Power Query Comment créer exemple avec Json.Document(Binary.Decompress

    Bonjour Staple, le forum, Tu trouveras ici la fonction EncodeSourceTable qui prend en entrée un table (qu'elle vienne d'un fichier csv, d'un tableau, ou autre) et retourne la chaine de caractères Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText(… correspondante. Il suffit alors de...
  6. mromain

    Microsoft 365 Fusionner deux tableaux croisés dynamiques avec Power Query

    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 =...
  7. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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...
  8. mromain

    XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?

    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...
  9. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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+
  10. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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...
  11. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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...
  12. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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...
  13. mromain

    XL 2019 Power query - modifier le type des colonnes

    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 =...
  14. mromain

    XL 2019 Power query - modifier le type des colonnes

    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...
  15. mromain

    Word Extraire un glossaire à partir des liens et d'un style

    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...