Résultats de la recherche

  1. 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...
  2. 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+
  3. 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...
  4. 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...
  5. 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...
  6. 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 =...
  7. 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...
  8. 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...
  9. mromain

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

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

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

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

    XL 2016 Créer une matrice de possibilité

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

    XL 2016 Créer une matrice de possibilité

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

    XL 2016 Créer une matrice de possibilité

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

    Power Query Colonne personnalisée et requête Odbc.query

    Bonjour GTI_Services, merinos, le forum, Comme le dit merinos, il n'y a pas de limites du côté de PowerQuery. Les limites dont tu parles sont juste effectives au niveau des données que tu renvois à Excel. Si tu préfères garder ta méthode, tu peux peut-être essayer ceci (à l'aveugle) ...
  15. mromain

    Power Query Colonne personnalisée et requête Odbc.query

    Bonjour GTI_Services, le forum, Je pense qu’il te faudrait charger l’intégralité de la table UTILISATEUR (sans la clause WHERE) dans une requête à part et ensuite faire une jointure (https://learn.microsoft.com/en-us/power-query/merge-queries-overview) avec cette liste des utilisateurs. A+
  16. mromain

    XL 2019 Power query - modifier le type des colonnes

    Bonjour Flx1er, le forum, Tu peux tester avec ce code : let Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("XYvBDcAwCAN34W0pmJC0mYWw/xrNp1Lp887nCFe4Y3WI+W5qu5maC9aAsJhfINZLnwhiDtyEKL/TEcZ61YrzIF+8mPkA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type...
  17. mromain

    Power Query Faire un traitement sur une colonne à partir d'une autre liste

    Bonjour btil, oguruma, le forum, Tu peux tester avec ce code := List.Accumulate(NettoyageEmplacement[Find], #"étape précédente", (state, current) => Table.ReplaceValue(state, current, "", Replacer.ReplaceText, {"Ville"})) A+
  18. mromain

    Power Query Aide pour dépoviter

    Bonjour Labud, Nairolf, Ci-dessous une proposition en PowerQuery : let Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45W8vP3VdJR8g0NijcwxGAY4WYYK8XqRCv5Ooa4Bnk6hkYAhZ1cQ/z9gLRnsL+Po18IkBXg4xgS5IoiBFMEoUFGuAY4egYHu4YGAUWNDICEIZiAMYyhRGwsAA=="...
  19. mromain

    Power Query Combinaison de lignes en arbres à branches variables et à noeuds fixes

    Bonjour sanichor, Ci-dessous un essai si j’ai bien compris (j’avoue, c’est pas très clair...) : let fnBuildCombinaisons = (listGains as list, nbLevels as number) as list => let listLevels = {1 .. nbLevels}, TableLevels =...
  20. mromain

    Microsoft 365 Cumul progressif en PowerQuery

    Re, Du coup, tu peux tester avec cette requête : let Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content], AddColumn_Index = Table.AddIndexColumn(Source, "Index", 1, 1, Int64.Type), AddColumn_MontantSigné = Table.AddColumn(AddColumn_Index, "Montant signé", each...