Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Excel.Workbook(File.Contents("C:\Book1.xlsx"))

F

fhuillier

XLDnaute Nouveau
Bonjour dans une macro j'ai la ligne suivante

Dim NomDossier as string
NomDossier = Feuil1.Rnage("B2").Value 'nom du chemin et fichier D:\Test\mes-cles_2023-test.xls chemin

Cette commande me permet d'importer un fichier Excel externe dans ma feuille

ActiveWorkbook.Queries.Add Name:="mes-cles_2023-02-Sage", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Excel.Workbook(File.Contents(""D:\Test\mes-cles_2023-test.xls""), null, true)," & Chr(13) & "" & Chr(10) & " #""mes-cles_2023-02-Sage1"" = Source{[Name=""tableau""]}[Data]," & Chr(13) & "" & Chr(10) & " #""En-têtes promus"" = Table.PromoteHeaders(#""mes-cles_2023-02-tableau"", [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Type modifié"" = Table.TransformColumnTypes(#""En-têtes promus"",{{""Nom" & _
" Commercial"", type text}, {""Code client"", Int64.Type}, {""N° de série"", Int64.Type}, {""Référence produit"", type text}, {""Libellé produit"", type text}, {""Date de fin de contrat"", type date}, {""Version "", type text}, {""Clé "", type text}, {""Date clé"", type date}, {""Code d’activation"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""" & _
"Type modifié"""

J'aimerai mettre ExcelWorkBook(File.Contants("NomDossier") car le chemin du fichier que j'importe peut changer de dossier ou de nom.

Merci de votre aide cordialement
Francis
 
Trier par date Trier par votes

Oneida

XLDnaute Impliqué
Bonjour,
Vous avez deja NomDossier.
VB: 
NomDossier = Feuil1.Range("B2").Value 'nom du chemin et fichier D:\Test\mes-cles_2023-test.xls chemin
Excel.Workbook (File.Contants(NomDossier), null, true)

Si le nom du fichier change, il faudra cree une autre variable Fichier
NomDossier devra etre "D:\Test\" 'donc cellule a modifier
Fichier="mes-cles_2023-test.xls" 'qui serait dans une cellule
VB: 
Excel.Workbook (File.Contants(NomDossier & Fichier), null, true)
 
Vote positif 0 Vote négatif
F

fhuillier

XLDnaute Nouveau
Oneida bonjour,
Je vous remercie par contre quand je remplace :

Excel.Workbook(File.Contents(""D:\Test\mes-cles_2023-test.xls""), null, true)
par
Excel.Workbook (File.Contants(NomDossier & Fichier), null, true)


ActiveWorkbook.Queries.Add Name:="mes-cles_2023-02-Sage", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Excel.Workbook (File.Contants(NomDossier & Fichier), null, true)," & Chr(13) & "" & Chr(10) & " #""mes-cles_2023-02-Sage1"" = Source{[Name=""tableau""]}[Data]," & Chr(13) & "" & Chr(10) & " #""En-têtes promus"" = Table.PromoteHeaders(#""mes-cles_2023-02-tableau"", [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Type modifié"" = Table.TransformColumnTypes(#""En-têtes promus"",{{""Nom" & _
" Commercial"", type text}, {""Code client"", Int64.Type}, {""N° de série"", Int64.Type}, {""Référence produit"", type text}, {""Libellé produit"", type text}, {""Date de fin de contrat"", type date}, {""Version "", type text}, {""Clé "", type text}, {""Date clé"", type date}, {""Code d’activation"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""" & _
"Type modifié"""

Debogage !!!
Merci de votre aide cordialement Francis
 
Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans une requête (ici power query), "File.Contants" n'existe pas ! C'est : File.Contents
Et pour votre formule :

..... & " Source = Excel.Workbook (File.Contents(" & NomDossier & Fichier & "), null, true)," & ....
Cliquez pour agrandir...
En espérant que NomDossier & Fichier forment un chemin correcte vers un fichier existant.

Mais pourquoi faire ça par macro alors qu'une requête paramétrée power query le ferait directement.

par exemple pour vous si le dossier est en B2, nommez cette cellule Dossier et la requête pourrait avoir pour source :

= Excel.Workbook(File.Contents(Table.FirstValue(Excel.CurrentWorkbook(){[Name="NomDossier"]}[Content]) & NomFichier
Cliquez pour agrandir...
NomFichier étant définit ailleurs.
 
Vote positif 0 Vote négatif
F

fhuillier

XLDnaute Nouveau
Merci de ton aide cordialement.
 
Vote positif 0 Vote négatif
F

fhuillier

XLDnaute Nouveau
Merci de ton aide cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
Power Query Lenteur requête Power Query avec List.Sum
2
Réponses
19
Affichages
2 K
JFL_XLD
J
L
  • Question
Microsoft 365 POWER QUERY : problème "error" sur chiffre plus grand que 999
Réponses
1
Affichages
598
Cousinhub
I
  • Résolu(e)
Microsoft 365 ouvrir le chemin d'une power query manuellement
Réponses
7
Affichages
626
iliess
I
S
  • Résolu(e)
XL 2016 Séparateurs décimales & milliers sur un import csv
2
Réponses
18
Affichages
2 K
sabrina_
S
POWERQUERY :: Charger des modules/fonctions à partir du disque et les exécuter à l'issue - Function.Invoke
Réponses
0
Affichages
333
oguruma
P
  • Question
Power Query Power Query, remplacer une valeur par la valeur d'une cellule
Réponses
5
Affichages
2 K
palto
P
  • Résolu(e)
Microsoft 365 Boucle VBA d'import de Table PDF
Réponses
4
Affichages
2 K
Wayki
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
930
Nicolas JACQUIN
C
  • Question
Word Macro sur Word
Réponses
2
Affichages
2 K
CaEly
C
C
  • Question
Autres VBA Export en fichier TXT delimité - avec Taille & Position
Réponses
9
Affichages
3 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…