Discussion :

[Excelus]

Bonjour,

Vous pouvez m’aider sur un problème de VBA Excel office 2016. Je suis débutante.

J’ai une macro pour regrouper la même plage de cellules de plusieurs classeurs Excel « .xlsx », l’une en dessous des autres, à travers un chemin dynamique d’un dossier appelé « source », qui se trouve dans la cellule H1 de l’onglet de consolidation du fichier « creer_dossier1.xlsm ».

Le problème c’est que le code reconnaît le chemin dynamique et nomme le 1er fichier du dossier appelé « source1 », mais bug pour l’ouverture (Workbooks.Open) affichant un code erreur 1004.


Je joins le fichier pour consulter le code.

NB : les fichiers du dossier « source1 » s'ouvrent le plus normalement "manuellement".

[deedolith]

Salut,

La fonction Dir ne renvoie que le nom du classeur et non son chemin complet.
Soit tu dois reconstruire le chemin complet en concatenant le chemin du dossier et le nom du fichier.
Soit tu fait moderne, en passant par la librairie FSO.
Exemple:

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
Public Sub test()
    Const FolderPath As String = "C:\Users\I21164B\Documents\"
 
    Dim Fso As Scripting.FileSystemObject
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    Dim Folder As Object    '// Scripting.Folder
    Set Folder = Fso.GetFolder(FolderPath)
 
    Dim File As Scripting.File
    For Each File In Folder.Files
        If (Fso.GetExtensionName(File.Name) = "xlsx") Then
            MsgBox File.Path
        End If
    Next
End Sub

[Excelus]

Bonjour,

Mon objectif c'est de regrouper la même plage de cellules de plusieurs classeurs Excel « .xlsx », l’une en dessous des autres, en ouvrant les fichiers du dossier "source1" un par un, puis copier la plage de cellules.

Merci deedolith pour la réponse, mais on faisant un test avec le code en passant par la librairie FSO, Une erreur de compilation s'affiche



Merci.

[78chris]

Bonjour

Pourquoi ne pas synthétiser par PowerQuery, intégré à Excel, plutôt que VBA ?

[deedolith]

Soit tu déclares la variable en tant que Objet, soit tu ajoute la référence Microsoft Scripting Runtime au projet.

Je t'invite a te documenter sur le sujet Early binding vs Late binding.
C'est très commun en VBA.

[Excelus]

Bonsoir 78chris,

Certes PowerQuery peut accomplir la consolidation, mais les fichiers excels sources (modèle) du dossier "source1" sont déja transmis aux unités opérationnelles sans que je définie la plage de cellules à consolider comme plage données.

est ce que c'est rattrapable ou non ?

Merci.

[Excelus]

Bonsoir deedolith,

J'ai activé Microsoft Scripting Run-time dans la bibliothèque.

les messages box (les fichiers) sont affichés, mais ne s'ouvrent pas.

pouvez vous m'orienter svp.

Merci.

[mach1974]

il faut essayer un worbook.open avec un activeworkbook pour ouvrir la page désirée

[deedolith]

Bonsoir deedolith,

J'ai activé Microsoft Scripting Run-time dans la bibliothèque.

les messages box (les fichiers) sont affichés, mais ne s'ouvrent pas.

pouvez vous m'orienter svp.

Merci.

Peux-tu poster ton code à jour ?

[Excelus]

Peux-tu poster ton code à jour ?

Merci d'avance deedolith

Mon code avec les explications à coter


Public Sub test()
Const FolderPath As String = "G:\Test_CONSO_RMA\27022024\Source1" 'Rendre chemin dynamique contenue dans la cellule "H1"

Dim Fso As Scripting.FileSystemObject
Set Fso = CreateObject("Scripting.FileSystemObject")

Dim Folder As Object '// Scripting.Folder
Set Folder = Fso.GetFolder(FolderPath)

Dim File As Scripting.File

Range("A2:E200").Clear

For Each File In Folder.Files
If (Fso.GetExtensionName(File.Name) = "xlsx") Then
MsgBox File.Path

'==========
Workbooks.Open (File)
Range("D5:G10").Copy 'On copie la plage de données du classeur Sources "même plage dans tt les classeurs"
Workbooks("creer_dossier2.xlsm").Activate 'On revient sur le classeur de synthèse
DerLigne = ActiveSheet.UsedRange.Rows.Count + 1 'On récupére le nombre de ligne de la feuille
Range("B" & DerLigne).Select 'On se positionne sur la cellule vide
ActiveSheet.Paste 'On colle les données dans le classeur de synthèse
Range("A" & DerLigne & ":A" & ActiveSheet.UsedRange.Rows.Count) = File.Name 'On y colle le nom du classeur Sources
Columns("A:A").Replace ".xlsx", "" 'On retire l'extension des noms des fichiers
Workbooks(File).Close 'On ferme le classeur Sources
'==========

End If
Next

End Sub

[deedolith]

Workbooks.Open (File)

File est un objet de type Scripting.File, hors la fonction Open attend une chaîne.

Je t'invite à regarder les propriétés de la classe File dans l'explorateur d'objets (raccourcis clavier: F2),
et choisir celle qui convient.

[78chris]

RE

Bonsoir 78chris,

Certes PowerQuery peut accomplir la consolidation, mais les fichiers excels sources (modèle) du dossier "source1" sont déja transmis aux unités opérationnelles sans que je définie la plage de cellules à consolider comme plage données.

est ce que c'est rattrapable ou non ?

Si la plage est la même normalement oui

Il faudrait un exemple de fichier (anonymisé) et l'indication de la plage concernée

[Excelus]

RE

Si la plage est la même normalement oui

Il faudrait un exemple de fichier (anonymisé) et l'indication de la plage concernée

Bonjour 78chris,

je joins le dossier compressé contenant 4 fichiers pour extraire la plage D5 à G10 de chaque fichier avec power query sans définition de la plage.

Merci d'avance pour l'aide.

[78chris]

Bonjour

Modifier le chemin dans la cellule en jaune et actualiser

[Excelus]

Bonjour

Modifier le chemin dans la cellule en jaune et actualiser

Merci 78chris, pour le travail.

Comment puis je passé par le powerquery sans passer par la définition de la plage ?

[78chris]

RE

Il te suffit de regarder les requêtes présentes dans mon fichier et en particulier Transformer l'exemple de fichier qui est ensuite transformé en fonction pour s'appliquer à chaque fichier