Discussion :

[Big75]

Bonjour à tous,

L'objectif de ma macro est de pouvoir copier chaque feuille visible de mon tableur vers des feuilles individuelles, pour les sauvegarder ensuite.
J'ai trouvé un code (qui n'est donc pas de moi) qui fonctionne très bien pour copier toutes les feuilles si elles sont toutes visibles.
Cependant, il y aura toujours des feuilles masquées dans le tableur. Dès lors, le code ne fonctionnera pas.

Savez-vous s'il existe un code pour ne sélectionner et ne copier que les feuilles visibles? J'ai essayé plusieurs choses mais pour l'instant rien n'a fonctionné...

Je vous joins le code :

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
34
35
36
37
38
Option Explicit
 
Sub Decoupage()
 
Dim Wbk As Object
Dim Fso As Object
Dim sDossierClasseur As String, sNomDossier As String, sNomFichier As String
Dim Ws As Worksheet
 
    Application.ScreenUpdating = False
    sDossierClasseur = ThisWorkbook.Path
    sNomDossier = Format(Date, "yyyymmdd")
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FolderExists(sDossierClasseur & "\" & sNomDossier) Then
        Fso.DeleteFolder sDossierClasseur & "\" & sNomDossier, True
    End If
    Fso.CreateFolder sDossierClasseur & "\" & sNomDossier
    Set Fso = Nothing
 
 
     For Each Ws In ThisWorkbook.Worksheets
    ThisWorkbook.Worksheets(Ws.Name).Copy
 
        sNomFichier = "F_" & Ws.Name & "_" & Format(Date, "yyyymmdd") & ".xlsx"
 
        Set Wbk = ActiveWorkbook
        Application.DisplayAlerts = False
 
        Wbk.SaveAs sDossierClasseur & "\" & sNomDossier & "\" & sNomFichier, xlOpenXMLWorkbook
        Application.DisplayAlerts = True
 
 
        Wbk.Close
        Set Wbk = Nothing
    Next Ws
    Application.ScreenUpdating = True
End Sub

Merci par avance

[Philippe Tulliez]

Bonjour,
Pour savoir si une feuille est visible, il faut vérifier sa propriété Visible
Exemple de l'affichage de la liste des feuilles visibles du classeur actif

Code :

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

1
2
3
4
5
  Dim txt As String, sht As Worksheet
  For Each sht In Worksheets
    If sht.Visible = xlSheetVisible Then txt = txt & vbCrLf & sht.Name
  Next
  MsgBox txt, Title:="Liste des feuilles visible du classeur " & ActiveWorkbook.Name

[Big75]

Bonjour Philippe,

Merci beaucoup, après quelques tests j'ai trouvé la solution, c'était assez simple finalement.

Pour ceux que ça intéresse, j'ai changé ce code :

Code :

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

1
2
     For Each Ws In ThisWorkbook.Worksheets
    ThisWorkbook.Worksheets(Ws.Name).Copy

Par celui-ci:

Code :

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

1
2
3
4
    For Each Ws In Worksheets
    If Ws.Visible = xlSheetVisible Then
 
    Ws.Copy

Merci encore!