Ouvrir boîte de dialogue sous condition

[Chasse]

Bonjour le forum.

J’aimerai rajouter une commande à la macro

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

(copie l’avant-dernière feuille du fichier est la place juste devant, devenant ainsi l’avant-dernière feuille.)

Le complément de la macro serai d’ouvrire la boîte de dialogue (enregistrer sous), si la valeur des cellules A1 de la 1ère feuille et de l’avant-dernière sont différentes.

Merci d’avance de vous pencher sur mon problème.

 

[porcinet82]

Re : Ouvrir boîte de dialogue sous condition

Salut,

Tu peux essayer ceci :

If Sheets(1).Range("A1").Value <> Sheets(Sheets.Count - 1).Range("A1").Value Then
    Application.GetSaveAsFilename
End If

@+

 

[Chasse]

Re : Ouvrir boîte de dialogue sous condition

Salut porcinet82

Merci de t’être penché sur mon(mes) problème(s)
Je m’incline bien bas


Est’il possible d’afficher le nom du nouveau fichier (valeur cell A1 avant-dernière feuil) dans la boîte de dialogue enregistrer sous

 

[Chasse]

Re : Ouvrir boîte de dialogue sous condition

Re

Petit problème,
Ton code fonction bien merci, seulement quand je clic sur OK après avoir renommé le fichier je dois me retrouver normalement dans le nouveau fichier, et bien nom, et en plus pas de trace de lui dans Explorer

 

[porcinet82]

Re : Ouvrir boîte de dialogue sous condition

re,

Essais comme ceci :

Dim rep As Variant
If Sheets(1).Range("A1").Value <> Sheets(Sheets.Count - 1).Range("A1").Value Then
    rep = Application.GetSaveAsFilename(InitialFileName:=Sheets(Sheets.Count - 1).Range("A1").Value)
End If

@+