Discussion :

[h_faty]

Bonjour à tous,

Je fais l'extraction de pièces jointes (ensemble de fichiers excel) à partir de fichiers ".msg" et je voudrais savoir s'il y'a un moyen de parcourir ces fichiers excel (212 fichiers) et d'ajouter un champ dans la première feuille à la fin de chaque ligne non vide et dans lequel on retrouve le nom du fichier.

J'ai essayé sur un seul fichier ça a marché ! mais le soucis que j'arrive pas à le faire avec une liste de fichiers

et au même temps je veux récupérer juste la première feuille de chaque classeur donc j'essaye de supprimer les autres feuilles mais ça me renvoie un message d'erreur "L'indice n'appartient pas à la sélection!"

Pourriez vous m'orienter svp ?


J'utilise le code suivant qu'on m'a passé dans ce forum avec de petites commandes que j'ai ajouté :

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
 
Sub SaveMSG()
    Dim objOL As Object
    Dim objItem As Object
    Dim Attach As Object, NomFichier As String
    Dim CheminMSG As String, CheminDest As String
    Dim Fichier As Variant
 
    CheminMSG = "Mon répertoire"
    If Right(CheminMSG, 1) <> "\" Then CheminMSG = CheminMSG & "\"
    CheminDest = "Ma destination"
    If Right(CheminDest, 1) <> "\" Then CheminDest = CheminDest & "\"
 
    Set objOL = CreateObject("Outlook.Application")
 
    Fichier = Dir(CheminMSG, vbArchive)
    Do While LCase(Right(Fichier, 3)) = "msg" 'vérifie que ce sont bien des .MSG
        Set objItem = objOL.CreateItemFromTemplate(CheminMSG & Fichier)
        For Each Attach In objItem.Attachments 'lecture de tous les fichiers joints
            NomFichier = Attach.Filename
            'Copie les fichiers Excel seulement
            If InStr(1, NomFichier, ".xls") > 0 Then Attach.SaveAsFile CheminDest & NomFichier
            Sheets(1).Range("N1").Value = ActiveWorkbook.Name
            Sheets(2).Delete
            Sheets(3).Delete
        Next
 
        Fichier = Dir
    Loop
 
    Set objItem = Nothing
    Set objOL = Nothing
End Sub

Merci d'avance !

[parmi]

If InStr(1, NomFichier, ".xls") > 0 Then Attach.SaveAsFile CheminDest & NomFichier
Sheets(1).Range("N1").Value = ActiveWorkbook.Name
Sheets(2).Delete
Sheets(3).Delete

Ici, tu sauvegardes le fichier, mais il n'est pas ouvert, donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
            If InStr(1, NomFichier, ".xls") > 0 Then Attach.SaveAsFile CheminDest & NomFichier
            Workbooks.Open CheminDest & NomFichier
            activeworkbook.Sheets(1).Range("N1").Value = ActiveWorkbook.Name
            activeworkbook.Sheets(2).Delete
            activeworkbook.Sheets(3).Delete
            activeworkbook.Close True  'Ferme et sauvegarde

[h_faty]

Le code s'arrête juste avant la boucle.
Normal puisque mon fichier excel est en mode protégé, donc j'ai ajouter les lignes de code suivante :

ActiveWorkbook.Unprotect
ActiveWorkbook.Protect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
If InStr(1, NomFichier, ".xls") > 0 Then Attach.SaveAsFile CheminDest & NomFichier
            Workbooks.Open CheminDest & NomFichier
            ActiveWorkbook.Unprotect
            activeworkbook.Sheets(1).Range("N1").Value = ActiveWorkbook.Name
            activeworkbook.Sheets(2).Delete
            activeworkbook.Sheets(3).Delete
             ActiveWorkbook.Protect
            activeworkbook.Close True  'Ferme et sauvegarde

Quand j’exécute mon programme pas à pas, la compilation s'arrête juste après "activeworkbook.Sheets(2).Delete" et m'affiche comme erreur "Erreur d'éxecution '9'".

[clementmarcotte]

Le code s'arrête juste avant la boucle.

Quand j’exécute mon programme pas à pas, la compilation s'arrête juste après "activeworkbook.Sheets(2).Delete" et m'affiche comme erreur "Erreur d'éxecution '9'".

Donc, VBA a découvert que l'ActiveWorkbook du moment n'a pas de 2e feuille à effacer. En d'autres mot, soit qu'il n'y a aucun classeur actif; ce qui serait bizarre en soit, ou que le classeur actif n'a qu'une seule feuille.

[h_faty]

C'est vraiment bizzard parce que dans chaque fichier excel j'ai bien 3 feuilles avec un nommage différent !

[parmi]

Comme tu utilises un Index pour supprimer, lorsque tu supprimes l'onglet (2), le (3) devient le (2), je pense...
Il te faudrait alors supprimer le (3) avant le (2)

[nibledispo]

bonjour,

je suis d'accord avec Parmi.

pour court-circuiter on peut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Application.DisplayAlerts = False
Sheets(Array("Feuil2", "Feuil3")).Delete
Application.DisplayAlerts = True

re....,

j'ajoute qu'en dehors de "displayalerts" bien nécessaire, il ne serait peut-être pas inutile de tester l’existence desdits feuilles. Mais je ne connais pas ou ne me souviens plus de l'instruction adéquate.

cordialement,

[h_faty]

Bonjour à tous,

Merci pour vos propositions ! j'ai essayé la proposition de parmi d'inverser les "Delete" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
activeworkbook.Sheets(1).Range("N1").Value = ActiveWorkbook.Name
activeworkbook.Sheets(3).Delete
activeworkbook.Sheets(2).Delete

Et super ça a marché !

La il me reste juste de voir ma colonne "N" parce que mon code me renvoi le nom du fichier dans toutes la colonne alors que je veux que le nom s'affiche juste à la fin de chaque ligne non vide


Bonne journée !