Microsoft 365 transposer en colonne

[kenny]

Bonjour,

J'aimerais transposer les données de ma feuille 1 en colonne comme dans l'onglet 2 (je le fais avec collage spécial transposé). dans mon onglet remplissage tableau reporter les données transposées car chaque semaine de l'année j'aurais ce fichier.

En sachant que dans ma feuille 1 je peux avoir plus de nom donc pas limité à Dupont 33.
Pourrait -on le faire par VBA Excel.

Merci d'avance (fichier test joint)

 

[chris]

RE

Le code cherche une feuille nommée appels dans les fichiers sources...

 

[kenny]

RE

Le code cherche une feuille nommée appels dans les fichiers sources...

oui c'est ça j'ai renommé les onglets de chaque classeur en appels pour les compiler avec Power

 

[chris]

RE

Feuil1 suffisait...

let MaFonction=(FolderPath,SheetName)=>

let
    Source = Excel.Workbook(File.Contents(FolderPath), null, true),
    appels_Sheet = Source{[Item=SheetName,Kind="Sheet"]}[Data],
    #"En-têtes promus" = Table.PromoteHeaders(appels_Sheet, [PromoteAllScalars=true]),
    #"Table transposée" = Table.Transpose(#"En-têtes promus"),
    #"En-têtes promus1" = Table.PromoteHeaders(#"Table transposée", [PromoteAllScalars=true]),
    #"Colonnes supprimées" = Table.RemoveColumns(#"En-têtes promus1",{"Nombre de SMS envoyés"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Colonnes supprimées",{{"Durée totale sortant", type time}})
in
    #"Type modifié"
in MaFonction

 

[kenny]

Bonsoir Chris,
J'ai essayé avec ton code je dois rien comprendre pourtant j'ai tout bien fait et j'ai un message d'erreur c'est saoulant j'avoue. Pour le coup j'ai essayé avec les vrais fichiers.

 

[chris]

Bonjour

Comme déjà dit sans fichiers réels et avec juste une fonction je ne peux rien tester : de toute évidence le nom de l'onglet des tes fichiers n'est pas celui attendu, à part cela...

 

[kenny]

Merci Chris de ta patience.
Les fichiers originaux sont de la sorte (pas tjrs le même nombre de colonnes.
A moins que par une macro c'est plus simple je sais pas

 

[chris]

RE

Tu ne lis pas attentivement mes réponses et tu ne dit pas la réalité

oui c'est ça j'ai renommé les onglets de chaque classeur en appels

de toute évidence le nom de l'onglet des tes fichiers n'est pas celui attendu

Tu postes des fichiers dont le nom de l'onglet n'est pas appels mais Appels sortants

A toi de corriger la fonction en conséquence et en respectant la casse...

 

[kenny]

RE

Tu ne lit pas attentivement mes réponses et tu ne dit pas la réalité



Tu postes des fichiers dont le nom de l'onglet n'est pas appels mais Appels sortants

A toi de corriger la fonction en conséquence et en respectant la casse...

Chris j'ai bien essayé avec le bon nom d'onglet, mais j'ai toujours le même message d'erreur. C'est la même qui j'ai posté plus haut. c'est quand même bizarre

 

[kenny]

Chris j'ai bien essayé avec le bon nom d'onglet, mais j'ai toujours le même message d'erreur. C'est la même qui j'ai posté plus haut. c'est quand même bizarre

Voici mon code modifié je me suis dit que le fait d'avoir un nom d'onglet en deux mots ca le fait planté puis j'ai changé en appels tout court j'ai eu la même erreur, je remets Appels sortants c'est encore la même erreur.


let MaFonction=(FolderPath,SheetName)=>

let
Source = Excel.Workbook(File.Contents(FolderPath), null, true),
Appels_sortants_Sheet = Source{[Item=SheetName,Kind="Sheet"]}[Data],
#"En-têtes promus" = Table.PromoteHeaders(Appels_sortants_Sheet, [PromoteAllScalars=true]),
#"Table transposée" = Table.Transpose(#"En-têtes promus"),
#"En-têtes promus1" = Table.PromoteHeaders(#"Table transposée", [PromoteAllScalars=true]),
#"Colonnes supprimées" = Table.RemoveColumns(#"En-têtes promus1",{"Nombre de SMS envoyés"}),
#"Type modifié" = Table.TransformColumnTypes(#"Colonnes supprimées",{{"Durée totale sortant", type time}})
in
#"Type modifié"
in MaFonction

 

[soan]

Bonsoir kenny, chris,

vraiment à tout hasard : peut-être que le nom de l'onglet "Appels sortants" est correct, mais que ce qui gêne, c'est l'espace qui est dans le nom du fichier, juste à droite de "Appels" :

"Appels _Sortants_2021-01-04_1"​

soan

 

[kenny]

Bonsoir kenny, chris,

vraiment à tout hasard : peut-être que le nom de l'onglet "Appels sortants" est correct, mais que ce qui gêne, c'est l'espace qui est dans le nom du fichier, juste à droite de "Appels" :

"Appels _Sortants_2021-01-04_1"​

soan

Bonsoir Soan, je vais les supprimer pour voir, je te dis ca

 

[kenny]

Bonsoir Soan, je vais les supprimer pour voir, je te dis ca

 

[kenny]

Re Soan, malheureusement c'est pareil en définitive j'ai changé l'extension de xlx en xlsx et la c'est passé ;o))

 

[soan]

ah, ok ; merci pour ton retour d'infos, et bravo pour avoir trouvé la solution ! 👍

soan

 

[kenny]

J'avoue j'ai pas été attentif car je me rappelle au tout début l'éditeur m'a dit qu'une incompatibilité pourrait exister, mais j'ai pas fais attention au message. En tout cas suis content enfin j'ai le résultat attendu. Vraiment un grand merci à Chris ;o)) pour sa patience c'est pas évident quand on débute.
Je connaissais pas PQ j'ai découvert c'est génial ;o)) merci à toi Soan et Stapple 1600 de m'avoir mis sur la voie je vous adore.
👍👍👍