Bonjour
Attention : le 3e argument de #duration correspond aux minutes et non aux jours.
Vous ajoutez 7 min et non 7 jours
Stéphane

Bonjour

vous dites “si la table est absente du dossier”
une table est un élément d’un fichier Excel qui est lui-même enregistré dans un dossier (ou sous-dossier).
vous cherchez le nom d’une table dans tous les fichiers du dossier ?

Sinon vous pouvez utiliser try … otherwise … afin de passer à l’étape suivante.

Stéphane

Comme je l’écrivais tout à l’heure, je n’ai pas accès à votre base et votre requête commence par

Source = Excel.Workbook(File.Contents(“\\datas\profils$\Administration\Desktop\Fusion contacts2.xlsx”), null, true)

J’ai donc une erreur à l’ouverture, si vous voulez de l’aide il faut fournir un fichier exploitable

Voici un code qui fonctionne mais il faudra l’adapter à votre source (1er étape)

let
Source = Excel.CurrentWorkbook(){[Name=”Table_Contacts”]}[Content],
#”Lignes groupées” = Table.Group(Source, {“CodeClient”}, {{“Nombre”, each Table.AddIndexColumn(_,”Index”,1), type table }}),
#”Nombre développé” = Table.ExpandTableColumn(#”Lignes groupées”, “Nombre”, {“NomContact”, “AdresseContact”, “CodePostalContact”, “CommuneContact”, “TelephoneContact”, “EmailContact”, “FonctionContact”, “Index”}, {“NomContact”, “AdresseContact”, “CodePostalContact”, “CommuneContact”, “TelephoneContact”, “EmailContact”, “FonctionContact”, “Index”}),
#”Supprimer le tableau croisé dynamique des autres colonnes” = Table.UnpivotOtherColumns(#”Nombre développé”, {“CodeClient”, “Index”}, “Attribut”, “Valeur”),
#”Colonnes fusionnées” = Table.CombineColumns(Table.TransformColumnTypes(#”Supprimer le tableau croisé dynamique des autres colonnes”, {{“Index”, type text}}, “fr”),{“Attribut”, “Index”},Combiner.CombineTextByDelimiter(” “, QuoteStyle.None),”Attribut.1″),
#”Colonne dynamique” = Table.Pivot(#”Colonnes fusionnées”, List.Distinct(#”Colonnes fusionnées”[Attribut.1]), “Attribut.1”, “Valeur”)
in
#”Colonne dynamique”

Stéphane

Bonjour
C’est possible, voir exemple en PJ
Vous ajoutez un index, vous dépivotez toutes vos colonnes, puis vous pivotez 2 par 2 pour faire vos contrôles et vous pivotez de nouveau pour récupérer les 15 contrôles.
Il ne reste plus qu’à fusionner les contrôles avec votre source initiale

A adapter à vos données
Stéphane

Bonjour

Le code proposé est bien du Power Query (langage M) et non en VBA

Il faut commencer par stocker vos données dans des tableaux “structurés” (insertion/tableau)

Ce que vous souhaitez est une transformation assez “classique” qui revient régulièrement sur les forums.

Une possibilité est de regrouper votre table “contacts” par Codeclient, d’ajouter un Index afin de numéroter les contacts, de dépivoter les colonnes pour obtenir “Nom1”, “Adresse1″, Fonction1”, “Nom2″, Adresse2”, “Fonction2″… Enfin vous pivoter l’ensemble pour obtenir une ligne par Codeclient.
La dernière étape est une fusion entre votre table “Clients” et votre table “Contacts” transformée.

Voici le code Power Query pour transformer la table “Contacts”

let
Source = Excel.CurrentWorkbook(){[Name=”Contacts”]}[Content],
Regroupement = Table.Group(Source, {“CodeClient”}, {{“Données”, each Table.AddIndexColumn(_,”Index”,1)}}),
Développement = Table.ExpandTableColumn(Regroupement, “Données”, {“NomContact”, “AdresseContact”, “CodePostalContact”, “CommuneContact”, “TelephoneContact”, “EmailContact”, “FonctionContact”, “Index”}, {“NomContact”, “AdresseContact”, “CodePostalContact”, “CommuneContact”, “TelephoneContact”, “EmailContact”, “FonctionContact”, “Index”}),
Dépivot = Table.UnpivotOtherColumns(Développement, {“CodeClient”, “Index”}, “Attribut”, “Valeur”),
#”Fusion Colonne” = Table.CombineColumns(Table.TransformColumnTypes(Dépivot, {{“Index”, type text}}, “fr-FR”),{“Attribut”, “Index”},Combiner.CombineTextByDelimiter(” “, QuoteStyle.None),”Attribut.1″),
Pivot = Table.Pivot(#”Fusion Colonne”, List.Distinct(#”Fusion Colonne”[Attribut.1]), “Attribut.1”, “Valeur”)
in
Pivot

Stéphane

Bonjour

La réponse de ChatGPT est assez bluffante mais je doute que ça renvoi le résultat attendu en l’état. je ne trouve pas la fonction Date.IsWorkday dans Power Query (pas présente sur le site https://learn.microsoft.com/fr-fr/powerquery-m) et la fonction va renvoyer le dernier jour ouvré dans les trois jours suivant la date demandée.

Je propose pour ma part de créer une nouvelle colonne avec une liste de date de 10 jours (pour être large !), de ne conserver que les jours de la semaine et ceux qui ne sont pas fériés. puis de sélectionner le 3e jour (donc le 2 car power query commence les listes à 0)

each List.Select(List.Dates(Date.AddDays([Date],1),10,#duration(1,0,0,0)),each Date.DayOfWeek(_, Day.Monday)<5 and List.IsEmpty(List.Intersect({Fériés, {_}}))){2}

avec les dates initiales dans le champ [Date] et la liste “Fériés” désignant les jours fériés.

Stéphane

Bonjour

Difficile de comprendre votre code, nous n’avons pas accès aux sources. Attention tout de même aux données confidentielles.

Vous pouvez utiliser Table.IsEmpty pour tester si votre table est vide.

dans le “in” final, if Table.IsEmpty SourceBefore then … else #”Lignes vides supprimées”

Sinon j’ai proposé dans cette discussion https://www.lecfomasque.com/sujet/numero-semaine-iso/ une fonction N° Semaine Iso bien plus simple que celle que vous utilisez.

Stéphane

Bonjour

quelque chose comme
=C2&”-“&NB.SI.ENS(C$2:C2;C2)

Si vous avez une volumétrie importante de données, il est intéressant d’utiliser Power Query pour transformer vos données

Stéphane