Xpress Blog'

'Définition du fichier
directory = "U:dossier"
fileName = Dir(directory & "*.xl??")


'On récupère toutes les worksheets du fichier excel ciblé 
Do While fileName <> ""
    Workbooks.Open (directory & fileName)
    For Each sheet In Workbooks(fileName).Worksheets
        total = Workbooks("fichier.xlsm").Worksheets.Count
        Workbooks(fileName).Worksheets(sheet.Name).Copy _
        after:=Workbooks("fichier.xlsm").Worksheets(total)
    Next sheet
Workbooks(fileName).Close
fileName = Dir()
Loop


Puis en fonction de ce que l'on souhaite, on peut jouer avec une feuille sur son indice, exemple pour la dernière : 

'On récupère le numéro du dernier worksheet arrivé.
Dim LastSheetName
LastSheetName = Sheets(Sheets.Count).Name

					

Exemple de boucle For : 
'Pour chaque cellule dans le classeur "Liste" dans la colone C
For Each cell In Sheets("Liste").Range("C:C")
      
'Si la cellule n'est pas vide et est différente du menu "Menu"
      If IsEmpty(cell.Value) = False And cell.Value <> "Menu" Then
      
      'on récupère le contenu de la cellule 
      Contenu =  cell.Value
      End If
Next

--------------------------------

HKEY_CURRENT_USERSoftwareMicrosoftOffice16.0OutlookSecurity
DWORD: EnableUnsafeClientMailRules
Value: 1

Option Explicit

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:UsersDesktopvotredossier"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "votre emplacement dossier"
For Each oAttachment In MItem.Attachments

'Seulement si pdf
If Right(oAttachment.FileName, 3) = "pdf" Then
MsgBox (oAttachment)
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
End If
Next
End Sub

        If (mainworkBook.Sheets.Count > 1) Then
                        For i = 2 To mainworkBook.Sheets.Count
                        NomFeuille = mainworkBook.Sheets(i).Delete
                        Next 
       End If

Afficher un popup :
Msgbox("ceci est un messagebox")