Microsoft 365 import infos d'1 fichier dans un autre

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂

@job75
Bonjour Gérard,

Il y a déjà longtemps, tu m'avais solutionné mon souci d'import d'infos d'un fichier vers un autre :
tu avais eu la gentillesse de me faire ce code :

Option Explicit
Sub Consolider()
Dim Chemin$, Fichier$, feuille$, ncol%, lig&, form$, h&
Chemin = ThisWorkbook.Path & "\" 'dossier à adapter
Fichier = Dir(Chemin & "isitelImmobRdv*.xlsm") '1er fichier du dossier
feuille = "RendezVous" 'nom des feuilles à copier, à adapter
ncol = 26 'nombre de colonnes, à adapter
lig = 3 '1ère ligne de restitution, à adapter
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
Rows("3:" & Rows.Count).ClearContents 'efface
While Fichier <> ""
    form = "'" & Chemin & "[" & Fichier & "]" & feuille & "'!"
    h = 0
    On Error Resume Next
    h = ExecuteExcel4Macro("MATCH(9^9," & form & "C12)") 'en colonne L
    On Error GoTo 0
    If h > 3 Then
        With Cells(lig, 1).Resize(h - 3, ncol - 9)
            .FormulaArray = "=" & form & "R4C10:R" & h & "C" & ncol 'formule de liaison matricielle
            .Value = .Value 'supprime la formule
            .Replace 0, "", xlWhole 'supprime les zéros
        End With
        lig = lig + h - 3
    End If
    Fichier = Dir 'fichier suivant
Wend
'Columns.AutoFit 'ajuste les largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
[a2] = "vide"
[A3].Select
End Sub

Nul que je suis, je n'arrive pas à l'adapter pour le fichier joint Grrrr !!! 😡
Voudrais-tu encore m'aider ?

L'idéal serait que je puisse importer dans la même feuille de destination les infos du fichier du code et celles du fichier joint à la suite.
Si pas possible, j'ouvrirai une seconde feuille dans le fichier de destination ou je mettrai ton code.

Un grand merci .... une fois de plus et je ne les compte plus lol.
Amicalement,
lionel 🙂

 

[job75]

Bonjour Lionel,

Je t'avais donné une macro semblable sur ce fil.

Il s'agissait de consolider 200 fichiers dans une seule feuille, est-ce bien ce que tu veux faire maintenant ?

Les feuilles copiées doivent toutes être structurées de la même manière, c'est tout.

Il faudrait nous montrer l'un des fichiers "isitelImmobRdv*.xlsm" avec sa feuille "RendezVous".

A+

 

[Usine à gaz]

Bonjour Gérard,
Merci pour le retour 🙂
Je vais préparer tout ça.
lionel 🙂

 

[job75]

As-tu bien compris que la macro du post #1 doit se mettre dans la feuille de la consolidation ?

Autrement il y a bug sur FilterMode, ShowAllData, UsedRange puisqu'on ne précise pas la feuille.

 

[Usine à gaz]

Re-Gérard,

OUI, je l'ai bien compris car j'utilise ton code pour mes autres fichiers et ça marche nickel 🙂

"Autrement il y a bug sur FilterMode, ShowAllData, UsedRange puisqu'on ne précise pas la feuille."
OUI car c'est la feuille active.
(Mes feuilles ne sont pas filtrées)
lionel 🙂