Archivage automatiqueRésolu

Question

Bonjour,

je suis un peu perdu (pour ne pas dire complètement..)
Voilà,

j'aimerai savoir comment procéder pour, dans un fichier excel, créer de façon automatique un onglet pour chaque jour ouvré du mois courant.
les onglets seraient nommés JJ-MM-AA

En fait ce fichier va être archivé (jai fait une macro qui va archiver chaque 1er du mois, le fichier du mois précédent et créer un nouveau fichier).

Autre possibilité, que les onglets soient ajoutés au jour le jour

Si vous avez des pistes, ce serait cool!

Merci

cs_MPi · Accepted Answer

À l'ouverture du fichier, il faut vérifier les noms des onglets.
Si celui avec la date du jour n'existe pas, tu le crées sinon tu continues

Private Sub Workbook_Open()
    Dim Ws As Worksheet, Trouvé As Boolean
    
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name = Format(Date, "JJ-MM-AA") Then
            Trouvé = True
            Exit For
        End If
    Next
    
    If Not Trouvé Then
        Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Format(Date, "JJ-MM-AA")
    End If
End Sub

Et tu peux lui ajouter une partie qui vérifies si c'est le premier du mois. Alors, tu appelles ta fonction d'archive. Pour bien faire, tu devrais créer un fichier vierge contenant seulement cette macro à l'ouverture (qui servirait de modèle de base). Tu pourrais t'en servir à chaque début de mois et le sauvegarder sous un nom quelconque...

MPi

cs_DARKSIDIOUS · Answer

Salut,

Et quel est le rapport avec VB.NET ????

Je déplace vers la forum approprié !
______________________________________
DarK Sidious

cs_anthonyo · Answer

Ok, je vais essayer cela!
je te remercie pour la rapidité de ta réponse.
Je reviens vers toi pour te dire ce qu'il en est.

cs_anthonyo · Answer

OK, merci à toi, c tout bon!

Archivage automatique

4 réponses

Votre réponse

Discussions similaires