XL 2010 créer un fichier powerpoint à partir d'excel

[Mak_tarmak]

Bonjour,
Dans mon fichier ci-joint, l'onglet Tableau recense, dans le désordre, les dates de formation qui se déroule sur une semaine.
Est-ce qu'il est possible via macro ou une autre fonction de générer des fichiers powerpoint pour chaque jour de la semaine et d'y inclure les formations du jour comme dans mon onglet Affichage ?
En vous remerciant pour votre aide,
Cordialement,

 

[Mak_tarmak]

d'après ce que j'ai compris voir fichier joint.

Bonjour cp4,
J'espère que tu vas bien.
Je reviens vers toi pour te partager mon travail.
J'ai bien évolué grâce à ton aide et j'arrive à générer un powerpoint formaté comme je le souhaite.
Dans le fichier ci-joint, tu trouveras l'onglet "logo" pour insérer celui-ci dans le powerpoint
un onglet "Macro" où j'ai séparé les différentes macro pour faciliter mes tests.
un onglet "tableau" pour accueillir les données venant de l'extraction
un onglet "extraction2" qui contient les données sur lesquelles tu t'étais basé pour travailler
un onglet "extraction" qui contient un nouveau jeu de données formaté comme celles de l'extraction2
ce dernier onglet "extraction" comporte des lignes en jaune, ce sont les lignes qui ne sont pas extraites dans l'onglet "tableau".
Certaines dates sont extraites et pas d'autres. J'ai vérifié les formats de cellule, l'ordre des colonnes, l'écart entre la date de début et la date de fin, et j'ai essayé de trouver une différence qui pourrait expliquer ça mais je n'ai rien trouvé.
Est-ce que tu vois une explication pour laquelle toutes les lignes ne sont pas extraites ?
En te remerciant,
ps : Dis-moi si je n'ai pas été clair ou si tu souhaites des explications plus précises.

 

[cp4]

Bonjour cp4,
J'espère que tu vas bien.
Je reviens vers toi pour te partager mon travail.
J'ai bien évolué grâce à ton aide et j'arrive à générer un powerpoint formaté comme je le souhaite.
Dans le fichier ci-joint, tu trouveras l'onglet "logo" pour insérer celui-ci dans le powerpoint
un onglet "Macro" où j'ai séparé les différentes macro pour faciliter mes tests.
un onglet "tableau" pour accueillir les données venant de l'extraction
un onglet "extraction2" qui contient les données sur lesquelles tu t'étais basé pour travailler
un onglet "extraction" qui contient un nouveau jeu de données formaté comme celles de l'extraction2
ce dernier onglet "extraction" comporte des lignes en jaune, ce sont les lignes qui ne sont pas extraites dans l'onglet "tableau".
Certaines dates sont extraites et pas d'autres. J'ai vérifié les formats de cellule, l'ordre des colonnes, l'écart entre la date de début et la date de fin, et j'ai essayé de trouver une différence qui pourrait expliquer ça mais je n'ai rien trouvé.
Est-ce que tu vois une explication pour laquelle toutes les lignes ne sont pas extraites ?
En te remerciant,
ps : Dis-moi si je n'ai pas été clair ou si tu souhaites des explications plus précises.

Bonjour,

Déjà, content pour toi d'avoir progressé. On m'a aidé et on continu de m'aider. Alors, c'est tout naturel d'essayer d'aider à mon tour.

Là, je te réponds vite fais. Un peu débordé, je verrai dés que possible.
Je n'ai pas ouvert le fichier, mais je soupçonne un format date non adéquat.

Bon courage.

 

[Mak_tarmak]

Bonjour,

Déjà, content pour toi d'avoir progressé. On m'a aidé et on continu de m'aider. Alors, c'est tout naturel d'essayer d'aider à mon tour.

Là, je te réponds vite fais. Un peu débordé, je verrai dés que possible.
Je n'ai pas ouvert le fichier, mais je soupçonne un format date non adéquat.

Bon courage.

Merci pour ta réponse rapide.
Je vais essayer d'appliquer la même mise en forme des dates pour les lignes qui ont marché sur celles qui n'ont pas marché et voir si ça résoud le problème.
Bon courage à toi aussi.

 

[cp4]

Hé, oui! initialement, on devait récupérer colonne Etat.nom strictement "Validée" mais pas "Réunion Validée"

Sub Extraire()
    Dim Titre, dt As Integer, WS As Worksheet, cel As Range, n As Integer
    Set WS = ThisWorkbook.Worksheets("tableau")
    Titre = Array("DATE", "LIBELLE FORMATION", "SALLE", "ORGANISME/FORMATEUR", "REFERENT ACADEMIE")
    WS.Range("a1").CurrentRegion.ClearContents
    WS.Range("a1").Resize(1, 5) = Titre

    With Sheets("extraction")
        For Each cel In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If IsDate(cel.Offset(, 6)) And IsDate(cel.Offset(, 7)) Then
                If cel.Offset(, 6) <> cel.Offset(, 7) Then
                    n = DateDiff("d", cel.Offset(, 6).Value2, cel.Offset(, 7).Value2)
                    If n > 0 Then
                        dt = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        For n = 0 To n
                            WS.Range("A" & dt + n) = cel.Offset(, 6).Value2 + n
                            WS.Range("A" & dt + n).NumberFormat = "m/d/yyyy"
                            WS.Range("B" & dt + n) = cel.Offset(, 3)
                            WS.Range("C" & dt + n) = cel.Offset(, 1)
                        Next n
                    Else
                        If cel.Offset(, 8) Like "*Validée*" Then ' au lieu de cel.offset(,8)="Validée"'
                            dt = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
                            WS.Range("A" & dt) = cel.Offset(, 6).Value2
                            WS.Range("A" & dt).NumberFormat = "m/d/yyyy"
                            WS.Range("B" & dt) = cel.Offset(, 3)
                            WS.Range("C" & dt) = cel.Offset(, 1)
                        End If
                    End If
                End If
            End If
        Next cel
    End With
End Sub

Bon courage.

 

[Mak_tarmak]

Hé, oui! initialement, on devait récupérer colonne Etat.nom strictement "Validée" mais pas "Réunion Validée"

Sub Extraire()
    Dim Titre, dt As Integer, WS As Worksheet, cel As Range, n As Integer
    Set WS = ThisWorkbook.Worksheets("tableau")
    Titre = Array("DATE", "LIBELLE FORMATION", "SALLE", "ORGANISME/FORMATEUR", "REFERENT ACADEMIE")
    WS.Range("a1").CurrentRegion.ClearContents
    WS.Range("a1").Resize(1, 5) = Titre

    With Sheets("extraction")
        For Each cel In .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If IsDate(cel.Offset(, 6)) And IsDate(cel.Offset(, 7)) Then
                If cel.Offset(, 6) <> cel.Offset(, 7) Then
                    n = DateDiff("d", cel.Offset(, 6).Value2, cel.Offset(, 7).Value2)
                    If n > 0 Then
                        dt = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        For n = 0 To n
                            WS.Range("A" & dt + n) = cel.Offset(, 6).Value2 + n
                            WS.Range("A" & dt + n).NumberFormat = "m/d/yyyy"
                            WS.Range("B" & dt + n) = cel.Offset(, 3)
                            WS.Range("C" & dt + n) = cel.Offset(, 1)
                        Next n
                    Else
                        If cel.Offset(, 8) Like "*Validée*" Then ' au lieu de cel.offset(,8)="Validée"'
                            dt = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
                            WS.Range("A" & dt) = cel.Offset(, 6).Value2
                            WS.Range("A" & dt).NumberFormat = "m/d/yyyy"
                            WS.Range("B" & dt) = cel.Offset(, 3)
                            WS.Range("C" & dt) = cel.Offset(, 1)
                        End If
                    End If
                End If
            End If
        Next cel
    End With
End Sub

Bon courage.

Un grand MERCI, ça fonctionne.
Bonne continuation et peut-être à un de ces jours.
Cette entraide est très bénéfique.