Discussion :

[Philippe Tulliez]

Windows 10 et Office 365 sur tous mes PC

Bonjour,
J'ai un problème curieux.
Depuis un classeur Excel, j'importe une requête présente dans un fichier Access (base frontale). Le classeur et le fichier Access se trouve dans le même répertoire

Chaque utilisateur ayant son propre ordinateur, j'ai une procédure VBA qui à l'ouverture du classeur copie l'adresse du répertoire dans une cellule nommée pFullPath_

J'ai écris dans PowerQuery, une requête nommée FullPath qui va lire le contenu de cette cellule

Code :

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

1
2
3
4
let
    Chemin = Table.FirstValue(Excel.CurrentWorkbook(){[Name="pFullPath_"]}[Content])
in
    Chemin

Cette fonction est invoquée par la requête nommé Q_Import_Xls (je n'ai pas encore renommé les étapes)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
let
    Source = Access.Database(File.Contents(FullPath), [CreateNavigationProperties=true]),
    _Q_Import_xls = Source{[Schema="",Item="Q_Import_xls"]}[Data],
    #"Type modifié" = Table.TransformColumnTypes(_Q_Import_xls,{{"planDate", type date}, {"planStartTime", type time}, {"planTotalHours", type time}}),
    #"Colonnes renommées" = Table.RenameColumns(#"Type modifié",{{"planDate", "Date"}, {"planStartTime", "HDeb"}, {"planTotalHours", "Hfin"}, {"sect_Code", "Section"}, {"prem_Name", "Local"}, {"train_Title", "Cours"}, {"tu_InternalCode", "UE"}, {"planComment", "Commentaire"}, {"planAcademicYear", "Année académique"}}),
    #"Colonne conditionnelle ajoutée" = Table.AddColumn(#"Colonnes renommées", "Statut", each if [planStatus] = false then null else if [planStatus] = true then "NC" else null),
    #"Colonnes permutées" = Table.ReorderColumns(#"Colonne conditionnelle ajoutée",{"Sem", "Date", "HDeb", "Hfin", "Section", "Local", "Cours", "Chargé de cours", "UE", "Commentaire", "reasonTitle", "Statut", "planStatus", "Année académique"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Colonnes permutées",{"planStatus"}),
    #"Colonnes renommées1" = Table.RenameColumns(#"Colonnes supprimées",{{"Année académique", "Année"}})
in
    #"Colonnes renommées1"

J'ai fait des tests sur mon PC en changeant de répertoire (par des Couper/Coller) Bureau, Document, One Drive, DropBox et je n'ai rencontré aucun problème. J'ai envoyé le classeur à mon client et là cela ne fonctionnait plus.

J'ai donc refait une batterie de tests cette fois sur un autre PC et sur celui-ci, j'ai les mêmes soucis que chez mon client.

L'erreur 1004 à lieu dans la ligne

Code :

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

Range(cTableName).ListObject.QueryTable.Refresh BackgroundQuery:=False

où la variable cTableName contient le nom du tableau structuré à actualiser

Lorsque j'ouvre l'éditeur PowerQuery, voilà l'erreur que j'ai et j'avoue que je ne comprends pas.



En attendant, je vais dépanner mon client en exportant les données depuis Access

[78chris]

Bonjour Philippe, le forum

Règler les paramètres de confidentialité devrait résoudre :

Lancer PowerQuery, Fichier, Options et paramètres, Options de requête, partie GLOBAL : Confidentialité, Toujours ignorer les paramètres de niveau de confidentialité

Cela supprimera le message d'erreur.

A noter que cette option ne sert à rien dans la quasi totalité des cas et limite les possibilités, d'où son décochage...

[Philippe Tulliez]

Bonjour Chris,
Un tout grand merci.
J'ai modifié les paramètres et cela fonctionne en effet mais si j'ai bien compris le paramètre est lié à l'application Excel du PC et pas au classeur parce-que le classeur de mon PC de développement avait déjà ces paramètres fixés comme tu me l'as indiqué mais pas celui de l'autre PC.
Ce qui m'obligera à modifier les paramètres de tous les PC où se trouveront ces classeurs ?

[78chris]

RE

Oui c'est lié au PC un peu comme le niveau de protection des macros

Je n'ai pas entendu parler de signature comme pour les macros qui permettent de valider certaines sources. A voir.

Il faudrait voir si pas paramétrable par VBA et si oui un xlam ferait le job...

[Philippe Tulliez]

Bonjour Chris,
Mille mercis pour tes explications
Je clos la discussion

[jurassic pork]

Hello,

RE
Oui c'est lié au PC un peu comme le niveau de protection des macros

Je n'ai pas entendu parler de signature comme pour les macros qui permettent de valider certaines sources. A voir.

Il faudrait voir si pas paramétrable par VBA et si oui un xlam ferait le job...

Peut-être un truc à essayer :

Code :

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

ThisWorkbook.Queries.FastCombine = True

Fast Combine sets the workbook to ignore the privacy levels for each source - and it applies to all users of the workbook.


More information available here: https://blogs.technet.microsoft.com/...in-excel-2016/

Ami calmant, J.P

[78chris]

Bonjour à tous

Peut-être un truc à essayer :

Code :

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

ThisWorkbook.Queries.FastCombine = True

Testé et approuvé

[Pierre Fauconnier]

Salut Philippe

[...]
Ce qui m'obligera à modifier les paramètres de tous les PC où se trouveront ces classeurs ?

Perso, j'avais résolu un problème similaire en créant une fonction perso dans Power query que j'utilisais dans ma requête.