Parcours de colonne + création de fichier excel

[Bastien]

Bonjour,
Voilà, je dispose d'un fichier Excel bien rempli.
J'aimerai parcourir la colonne E, et pour chaque cellule non-vide rencontrée, créer un fichier Excel avec le contenu de cellule en question comme titre.
J'ai essayé cela mais sans réussite:
Dim cellule As Range


For Each cellule In Range("E1:E65535")
If cellule.Value <> "" Then

Workbooks.Add
Application.DisplayAlerts = False
Sheets("Feuil1").Name = "feuille" + cellule.Value + ".xls"
Sheets("Feuil2").Delete
Sheets("Feuil3").Delete
Application.DisplayAlerts = True


Workbook.SaveAs Filename:="E:\Fiche " & cellule.Value & ".xls"
Workbook.Close
End If
Next
Merci d'avance

 

[Fred0o]

Re : Parcours de colonne + création de fichier excel

Bonjour Bastien et bienvenue sur le forum.

Voici le code corrigé qui fonctionne très bien chez moi :

Sub Sauve()
    Dim cellule As Range
    For Each cellule In Range("E1:E" & Range("E65536").End(xlUp).Row)
        If Not IsEmpty(cellule) Then
            Workbooks.Add
            Application.DisplayAlerts = False
            Sheets("Feuil1").Name = "feuille" + cellule.Value + ".xls"
            Sheets("Feuil2").Delete
            Sheets("Feuil3").Delete
            Application.DisplayAlerts = True
            ActiveWorkbook.SaveAs Filename:="E:\Fiche " & cellule & ".xls"
            ActiveWorkbook.Close
        End If
    Next
End Sub

A+

 

[Robert]

Re : Parcours de colonne + création de fichier excel

Bonjour Bastien et bienvenu, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim cellule As Range
 
For Each cellule In Range("E1:E" & Range("E65535").End(xlUp).Row)
    If cellule.Value <> "" Then
        Workbooks.Add
        Application.DisplayAlerts = False
        Sheets("Feuil1").Name = "feuille " + cellule.Value
        Sheets("Feuil2").Delete
        Sheets("Feuil3").Delete
        Application.DisplayAlerts = True
        ActiveWorkbook.SaveAs Filename:="E:\Fiche " & cellule.Value & ".xls"
        ActiveWorkbook.Close
    End If
Next
End Sub

[Édition]
Bonjour Fred0o on s'est croisé

 

[Bastien]

Re : Parcours de colonne + création de fichier excel

Merci pour vos réponses rapides 🙂 je test ça tout de suite