Discussion :

[Mathsdeb]

Bonjour à tous,

Peux être que quelqu'un peut m'aider à résoudre le problème qui est le suivant :

Lorsque je veux importer une source excel qui se trouve dans le réseau de l'entreprise et qui contient une colonne sous format standard (texte mélangé avec du numérique ou 100% numérique) dans Power Pivot et bien mes données du genre M2514845 disparaissent et je me retrouve avec une cellule dans Power Pivot vide.

J'ai l'impression que Power pivot me supprime les données au format text.

Je ne voudrais pas modifier ma donnée source en faisant un clic droit "mettre sous format text" puisque d'autres données sous forme standard viennent se rajouter à ce fichier. Du coup, c'est facile d'oublier de faire la manip du clic droit "mettre sous format excel".

Merci beaucoup pour votre aide

Cordialement

Mathsdeb

[78chris]

Bonjour

As-tu essayé de formater la colonne PowerPivot en text ?

[Mathsdeb]

Bonjour 78chris,

Merci pour ta réponse super rapide.

Mais comment je peux faire? Les colonnes n'existent pas avant importation des données source.

Et si je dois le faire après l'importation, cela ne me fera je pense pas apparaitre les données.

Merci par avance pour ton aide

Cordialement

Mathsdeb

[78chris]

Re

Il faut déjà essayer puis actualiser ensuite : tu verras alors si cela marche ou non...

[Mathsdeb]

Je viens d'essayer 78chris et ça ne fonctionne pas alors que c'est vrai que dans la logique ça devrait fonctionner mais c'est comme
si Power Pivot gardait en mémoire le premier schéma exporté......

Merci par avance pour ton aide

Cordialement

Mathsdeb

[Mathsdeb]

Bonsoir 78Chris,

Est ce que tu penses qu'il y a une solution à mon problème ou alors rien.

Ce que je trouve tout de même étrange c'est que lorsque j'intègre ce même fichier dans Power pivot sans avoir à l'importer et bien il me converti bien tout au format texte
sans rien me supprimer.

Mais lorsque je l'importe en tant que source de donnée, et bien là il me supprime tous les champs numérique qui contient du texte pour ne garder que du 100% numérique.

J'ai essayé de voir si ce problème avait déjà été évoqué sur le net mais rien de rien.

Merci par avance pour ton aide 78chris

Cordialement

[78chris]

RE


Peux-tu joindre un extrait de 10 lignes représentatives et décrire les manips effectuées pour l'import.

[Mathsdeb]

Merci pour ton retour 78Chris,

Ci-joint le fichier.

Les manips sont les suivantes :

[Mathsdeb]

Avec un peu de mal la suite :

Le fichier excel joint

et la suite des manipulations :




Merci beaucoup pour ton aide 78chris

Cordialement

[78chris]

Bonjour

Si on ne force pas le format de la colonne en texte, le problème se produit en simple liaison Excel hors PowerPivot.

J'ai testé un lien via PowerQuery : là je récupère bien le texte mais il faut ensuite le passer dans PowerPivot, ce qui fait 2 manips et les données en double dans le classeur.

[Mathsdeb]

Bonsoir 78Chris

Merci beaucoup pour ton retour.

Donc je n'ai pas le choix que de mettre les colonnes source concernées au format texte.

Pour éviter les risques d'erreur, je voudrai bien automatiser cette tâche mais je sais pas s'il est possible de créer une macro qui viendrait modifier des colonnes de plusieurs onglets au format texte.

Comme je suis nulle en macro, j'ai fait une petite recherche sur le net et j'ai trouvé sur un forum la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Test()
 For Each X In Selection
 X.Value = "'" & X.Value
 Next
 End Sub"

Mais le problème c'est que je ne sais pas à quoi correspondent les "X".

J'ai 4 onglets concernés par ce problème.

Sais tu comment je peux l'adapter à mon problème stp?

Merci encore pour ton aide et ta disponibilité

Cordialement

[78chris]

Bonjour

Faire précéder les chiffres par une apostrophe n'est plus nécessaire : il suffit de mettre la colonne entière en format texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:A").NumberFormat = "@"

Si les données sont saisies manuellement, le format de changera pas mais par sécurité on peut appliquer ce format dans le module classeur Workbook_BeforeClose

[Mathsdeb]

Rebonjour 78Chris,

Merci beaucoup pour ta réponse :

Je voudrai maintenant appliquer cette macro à plusieurs de mes onglets et voici ce que j'ai trouvé sur le net en l'adaptant avec ta réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub numFormat()
Dim ws As Worksheet
 
For Each ws In Worksheets
If ws.Name = "Fournisseurs" Then
Columns("D:D").NumberFormat = "@"
    Columns("F:F").NumberFormat = "@"
    Columns("A:A").NumberFormat = "@"
    Columns("K:K").NumberFormat = "@"
    Columns("O:O").NumberFormat = "@"
    Columns("R:R").NumberFormat = "@"
If ws.Name = "Produits" Then
Columns("A:A").NumberFormat = "@"
End If
Next
End Sub

Le problème c'est que j'ai ce message d'erreur qui apparait :



J'ai essayé pleins de choses mais sans succès.

Merci beaucoup 78Chris pour ton aide.

Cordialement

[joe.levrai]

Bonjour,

ton premier IF n'a pas de END IF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub numFormat()
Dim ws As Worksheet
 
For Each ws In Worksheets
    If ws.Name = "Fournisseurs" Then
        Columns("D:D").NumberFormat = "@"
        Columns("F:F").NumberFormat = "@"
        Columns("A:A").NumberFormat = "@"
        Columns("K:K").NumberFormat = "@"
        Columns("O:O").NumberFormat = "@"
        Columns("R:R").NumberFormat = "@"
    End If
 
    If ws.Name = "Produits" Then
        Columns("A:A").NumberFormat = "@"
    End If
 
Next ws
 
End Sub

[Mathsdeb]

Bonjour Joe.levrai

Merci pour ta réponse.

Mais j'ai un petit doute quant au "ws.name = "Fournisseurs"", est ce que ça correspond au nom de l'onglet où à autre chose?

Parce que bizarrement, j'ai fait un test en créant un bouton dans un autre onglet autre que "Fournisseurs" et "Produits" et la macro effectue la modif alors qu'elle ne devrait le faire que sur les onglets que j'ai demandé (Si c'est bien ce que j'ai renseigné dans la macro)

Merci pour votre aide

Cordialement

[joe.levrai]

hey oui, j'ai même pas fait gaffe à la structure complète !

en fait, quand tu écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("D:D").NumberFormat = "@"

tu appliques le format à la feuille active
il faut rattacher tes "columns" à la feuille souhaitée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub numFormat()
Dim ws As Worksheet
 
For Each ws In Worksheets
 
    If ws.Name = "Fournisseurs" Then
 
        With ws
            .Columns("D:D").NumberFormat = "@"
            .Columns("F:F").NumberFormat = "@"
            .Columns("A:A").NumberFormat = "@"
            .Columns("K:K").NumberFormat = "@"
            .Columns("O:O").NumberFormat = "@"
            .Columns("R:R").NumberFormat = "@"
        End With
 
    ElseIf ws.Name = "Produits" Then
 
        With ws
            .Columns("A:A").NumberFormat = "@"
        End With
 
    End If
 
Next ws
 
End Sub

[Mathsdeb]

Juste Excellent ça a marché !!!

Merci infiniment à vous 2 pour votre aide et votre disponibilité

Cordialement

Mathsdeb