Enregistrer sous avec condition

[Chasse]

Bonjour le forum

J’aimerai intégrer dans la macro existante

Public Sub AjouterJour()


Dim D As Date
    'Copie de l'avant dernier onglet
    Sheets(Worksheets.Count - 1).Copy After:=Sheets(Worksheets.Count - 1)
    With ActiveSheet
        D = .Range("I1").Value + 1
     
        If Weekday(D, vbMonday) = 6 Then D = D + 2
        .Range("I1").Value = D

        
        'Nom de la Feuille
        .Name = Format(D, "DDDD d mmm YYYY")
    End With
    
End Sub

une commande me permettant de déplacer l’avant dernière feuille et de copier la dernière SI LE MOIS de la nouvelle feuille n’est pas le même que le reste des autres feuilles.

Exemples quand je déclenche la macro, si c’est le dernier jour ouvrable J’aimerai que la boîte de dialogue enregistrer.sous s’ouvre pour pouvoir crée un nouveau fichier avec la nouvelle feuille « qui n’ai pas du même mois que les autres » et une copie de la dernière feuille

D’avance merci de votre aide

Fichier ci-joint

 

[Staple1600]

Re : Enregistrer sous avec condition

Bonjour



Essaie de t'aider du code ci-desssous

Sub enregistrer_sous()
Dim N_Fichier As String
N_Fichier = _
Application.GetSaveAsFilename(FileFilter:="Classeur Excel (*.xls), *.xls")
If N_Fichier <> False Then
ActiveWorkbook.SaveAs Filename:=N_Fichier
End If
End Sub

 

[Chasse]

Re : Enregistrer sous avec condition

Bonjour Staple1600
Merci pour l' essai d’aide
Avec un peu de retard (problème de login)

Ce code ouvre bien la bt de dialogue enregistrer sous
Seulement il y a un bog

Erreur d’exécution 13 incompatibilité de type

If N_Fichier <> False Then

De plus j’aimerais que ce code soit intégré avec le mien et qu’il ce déclenche que si la valeur de la cellule A2 de la première et de l’avant dernière feuilles sont différentes

 

[Staple1600]

Re : Enregistrer sous avec condition

Bonjour


Sur XL2000 ,pas de bug.