Microsoft 365 import infos d'1 fichier dans un autre

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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 !!! :mad:
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 :)
 

Pièces jointes

  • test_forum.xlsm
    15.1 KB · Affichages: 14
Dernière édition:

job75

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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 :)
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO