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 : 8'840
Appréciations reçues : 334
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 Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • extraction de données
    par kholkhol » 20 juillet 2014, 20:21 » dans Excel - VBA
    8 Réponses
    254 Vues
    Dernier message par Banzai64
    21 juillet 2014, 11:46
  • Extraction de données
    par Vitya » 22 mai 2016, 00:15 » dans Excel - VBA
    4 Réponses
    130 Vues
    Dernier message par Vitya
    25 mai 2016, 09:56
  • extraction données
    par freddy93 » 3 février 2014, 16:47 » dans Excel - VBA
    1 Réponses
    130 Vues
    Dernier message par gmb
    4 février 2014, 13:14
  • Extraction de données
    par Beberttlse31 » 17 octobre 2018, 22:49 » dans Excel - VBA
    8 Réponses
    111 Vues
    Dernier message par curulis57
    19 octobre 2018, 23:24
  • Extraction de données
    par KingThanos » 10 avril 2018, 09:20 » dans Excel - VBA
    8 Réponses
    180 Vues
    Dernier message par jmd
    10 avril 2018, 17:54
  • Extraction de données
    par Delgusto » 28 février 2019, 17:00 » dans Excel - VBA
    25 Réponses
    383 Vues
    Dernier message par Delgusto
    3 mars 2019, 15:57