Extraction de données

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
tifan
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 11 septembre 2014
Version d'Excel : 2007

Message par tifan » 29 mars 2016, 12:33

C'est top.
Deux petites questions :
_ à quel endroit du code je sais où s'enregistrent les fichiers ?
_ est-il possible de modifier ce code pour que la première ligne de l'onglet 1 (celle de l'intitulé des colonnes) soit aussi sur les onglets 2 et 3 ?

Vraiment merci beaucoup
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'459
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 29 mars 2016, 12:51

Bonjour,

les fichiers s'enregistrent dans le même répertoire que le fichier contenant la macro.

voici les modifications.
Sub aargh()
    Set ws = Sheets("feuil2")    ' ws= indicatif feuille de base
    zo = ActiveWindow.Zoom
    i = 2    'i= pointeur de  ligne sur ws
    While Not fin    'tant que le traitement n'est pas fini
        If ws.Cells(i, "AM") <> psr Then    'si le référent sur la ligne i est différent du referent en cours
            If fr <> 0 Then    'si pas la première ligne
                Set wb = Workbooks.Add    'on cree un classeur
                Set wso = wb.Sheets(1)    'wso = indicatif feuille qui doit recevoir les données
                wso.Name = "rentrée 2016"
                wb.Sheets(2).Name = "élèves manquants"
                wb.Sheets(3).Name = "prévision"
                ActiveWindow.Zoom = zo 'on adapte le zoom pour la feuille 1
                For j = 1 To 3 'on copie l'entête sur les 3 feuilles
                    ws.Rows(1).Copy Sheets(j).Range("a1")    'on copie l'entête
                Next j
                ws.Rows(fr & ":" & i - 1).Copy wso.Range("a2")    'on copie le groupe de ligne
                wb.SaveAs psr    'on sauve le classeur en lui donnant le nom du référent
                wb.Close    'on ferme le classeur
            End If
            psr = ws.Cells(i, "AM")    ' on mémorise le nouveau référent en cours
            If psr = "" Then fin = True    'si le nouveau référent en cours est blanc c'est fini
            fr = i    ' on mémorise la première ligne du groupe référent en cours
        End If
        i = i + 1    'on incrémente le pointeur de ligne
    Wend    'on boucle
End Sub
t
tifan
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 11 septembre 2014
Version d'Excel : 2007

Message par tifan » 29 mars 2016, 13:35

Super, c'est parfait

Un très grand merci
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Extraction de données
    par marco44 » 13 décembre 2018, 13:29 » dans Excel - VBA
    3 Réponses
    135 Vues
    Dernier message par dhany
    13 décembre 2018, 15:17
  • Extraction de données
    par Delgusto » 28 février 2019, 17:00 » dans Excel - VBA
    25 Réponses
    421 Vues
    Dernier message par Delgusto
    3 mars 2019, 15:57
  • extraction de données
    par domelopascamande » 24 août 2017, 11:37 » dans Excel - VBA
    5 Réponses
    293 Vues
    Dernier message par mbbp
    24 août 2017, 14:26
  • extraction de données
    par kholkhol » 23 juillet 2014, 19:44 » dans Excel - VBA
    1 Réponses
    134 Vues
    Dernier message par kholkhol
    23 juillet 2014, 20:49
  • extraction donnèes
    par merlinfafe » 9 octobre 2018, 21:32 » dans Excel - VBA
    5 Réponses
    172 Vues
    Dernier message par Steelson
    1 novembre 2018, 00:50
  • Extraction de Données
    par KTM » 18 mars 2020, 14:26 » dans Excel - VBA
    4 Réponses
    96 Vues
    Dernier message par KTM
    18 mars 2020, 22:24