IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Compiler plusieurs onglets excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 82
    Par défaut Compiler plusieurs onglets excel
    Bonjour,

    Je me permets de poser ce problème car je n'arrive pas à trouver la solution avec mes connaissances basiques en VBA.

    En gros, je souhaite compiler plusieurs fichiers excel dans un onglet de synthèse contenant la même forme.

    J'ai récupérer ce code que j'ai essayé d'adapter mais il ne compile pas toutes les lignes.

    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    Sub MergeSelectedWorkbooks()
        Dim SummarySheet As Worksheet
        Dim FolderPath As String
        Dim SelectedFiles() As Variant
        Dim NRow As Long
        Dim FileName As String
        Dim NFile As Long
        Dim WorkBk As Workbook
        Dim SourceRange As range
        Dim DestRange As range
        Dim LastRow As Long
     
        ' Create a new workbook and set a variable to the first sheet.
     
        Set SummarySheet = ThisWorkbook.Sheets("Accueil")
     
        ' Modify this folder path to point to the files you want to use.
        FolderPath = "C:\Users\Yettou\Desktop\Test"
     
        ' Set the current directory to the the folder path.
        ChDrive FolderPath
        ChDir FolderPath
     
        ' Open the file dialog box and filter on Excel files, allowing multiple files
        ' to be selected.
        SelectedFiles = Application.GetOpenFilename( _
            filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)
     
        ' NRow keeps track of where to insert new rows in the destination workbook.
        NRow = 3
     
        ' Loop through the list of returned file names
        For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)
            ' Set FileName to be the current workbook file name to open.
            FileName = SelectedFiles(NFile)
     
            ' Open the current workbook.
            Set WorkBk = Workbooks.Open(FileName)
     
            ' Set the cell in column A to be the file name.
     
            LastRow = WorkBk.Worksheets(1).Cells.Find(What:="*", _
            After:=WorkBk.Worksheets(1).Cells.range("A4"), _
                     SearchDirection:=xlPrevious, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows).Row
        Set SourceRange = WorkBk.Worksheets(1).range("A4:AM" & LastRow)
     
            ' Set the destination range to start at column A and be the same size as the source range.
            Set DestRange = SummarySheet.range("A" & NRow)
     
            Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
               SourceRange.Columns.Count)
     
            ' Copy over the values from the source to the destination.
            DestRange.Value = SourceRange.Value
     
            ' Increase NRow so that we know where to copy data next.
            NRow = NRow + DestRange.Rows.Count
     
            ' Close the source workbook without saving changes.
            WorkBk.Close savechanges:=False
        Next NFile
     
        ' Call AutoFit on the destination sheet so that all data is readable.
        SummarySheet.Columns.AutoFit
    End Sub
    Je dois copier les données à partir de la ligne 3 (car il a 2 ligne d'en-tète), et les coller à la même ligne (car même structure). le problème est que quand je défini la plage A4:AM, il me prends que la ligne 3 et 4. et je met A10:AM, il me récupere 8 lignes, etc...

    Avez vous une idée ?

    Merci d'avance

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010) t'aidera peut-être
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre éprouvé
    Homme Profil pro
    Technicien bureau d'études
    Inscrit en
    Novembre 2015
    Messages
    118
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien bureau d'études

    Informations forums :
    Inscription : Novembre 2015
    Messages : 118
    Par défaut
    Je pense, sans tester, que le soucis vient de la ligne suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    LastRow = WorkBk.Worksheets(1).Cells.Find(What:="*", _
    After:=WorkBk.Worksheets(1).Cells.range("A4"), _
    SearchDirection:=xlPrevious, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByRows).Row
    Essaye un pas à pas pour obtenir là valeur de LastRow qui sera sans doute inférieure à 4.

    Essaye de remplacer par :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     LastRow = WorkBk.Worksheets(1).Cells.Find ("*",,,,xlbyrows,xlprevious).row

  4. #4
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    82
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 82
    Par défaut
    Bonjour,

    merci pour vos réponses rapides.

    Effectivement, je pense que le problème vient de :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    LastRow = WorkBk.Worksheets(1).Cells.Find(What:="*", _
            after:=WorkBk.Worksheets(1).Cells.Range("A4"), _
                    SearchDirection:=xlPrevious, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows).Row
        Set sourceRange = WorkBk.Worksheets(1).Range("A4:AM" & LastRow)
    Je pense qu'il faut changer le A4 de la plage A4:AM par la dernière colonne de chaque fichier.

    Car avec la definition de cette plage, il va me prendre toutes les données jusqu'à la ligne A4, mais moi je veux qu'il me trouve la derniere ligne pour chaque fichier, pour éviter d'avoir des lignes vides suite à la definition d'un chiffre au hazard.

    Je ne sais pas si je suis clair ?

    Merci beaucoup

  5. #5
    Membre éprouvé
    Homme Profil pro
    Technicien bureau d'études
    Inscrit en
    Novembre 2015
    Messages
    118
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien bureau d'études

    Informations forums :
    Inscription : Novembre 2015
    Messages : 118
    Par défaut
    J'ai bien compris ton soucis, as-tu essayé de remplacer ton LastRow par le code proposé ?

  6. #6
    Membre Expert
    Homme Profil pro
    PAO
    Inscrit en
    Octobre 2014
    Messages
    2 576
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : PAO
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Octobre 2014
    Messages : 2 576
    Par défaut
    Bonjour yotman,
    pourrais tu mettres un exemple avec de fausses données sur un fichier xlsx avec ce que tu as au départ et sur une feuille le résultat que tu veux obtenir.
    j'ai besoin de visualiser
    sinon il y a ce post qui pourrait peut être t'inspirer : http://www.developpez.net/forums/d15...s/#post8578900
    Cordialement
    Ryu

    La connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein

    Pensez à la Balise [ CODE][/CODE ] - à utiliser via le bouton # => Exemple

    Une fois votre problème solutionné pensez à mettre :resolu: en n'oubliant pas d'indiquer qu'elle est la solution finale choisie ;)

Discussions similaires

  1. [AC-2010] Transfert de recordset Access dans plusieurs onglets Excel
    Par kesamba dans le forum IHM
    Réponses: 2
    Dernier message: 13/06/2014, 16h46
  2. SSIS avc plusieurs onglets excel
    Par tomisupertramp dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 30/03/2012, 17h19
  3. [ODS] Exporter proc freq dans plusieurs onglets excel
    Par the_special_one dans le forum ODS et reporting
    Réponses: 3
    Dernier message: 15/03/2012, 16h28
  4. Importer plusieurs onglets Excel vers 1 Table Access
    Par the cleaner dans le forum VBA Access
    Réponses: 2
    Dernier message: 08/02/2009, 11h36
  5. Export requete sur excel sur plusieur onglets
    Par Renardo dans le forum Access
    Réponses: 10
    Dernier message: 26/01/2007, 17h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo