Enregistrer sous sans écraser le fichier

B

bonoboas

XLDnaute Occasionnel

• 14 Octobre 2013

• #2

Re : Enregistrer sous sans écraser le fichier

Pour proposer un nom par défaut :

Code:

Application.Dialogs.Item(xlDialogSaveAs).Show "Fichier travaux"

Manque le : si clique sur annulé arrêter la macro

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 14 Octobre 2013

• #3

Re : Enregistrer sous sans écraser le fichier

Bonjour bonobas, le forum,

bonoboas à dit:

Pour proposer un nom par défaut :

Code:

Application.Dialogs.Item(xlDialogSaveAs).Show "Fichier travaux"

Manque le : si clique sur annulé arrêter la macro

Cliquez pour agrandir...

essaie

Code:

 Exit Sub

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 14 Octobre 2013

• #4

Re : Enregistrer sous sans écraser le fichier

Bonjour bonoboas et le forum,

Voici un bout de code qui j'espère vous aidera. 🙂

Code:

Sub test()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
'Définit un nom par défaut "fichier travaux"
fichier = chemin & "\" & "fichier travaux" & ".xls"
'Enregistrer le classeur
ActiveWorkbook.Save
'Message avant l'enregistrement
Select Case MsgBox("ATTENTION !" & vbLf & "Voulez-vous continuer ?", vbYesNo, "Attention !")
    Case vbYes
        ActiveWorkbook.SaveCopyAs fichier
'Ensuite lancement de la macro



'Si clique sur annulé arrêter la macro
    Case vbNo
        Exit Sub
End Select

End Sub

A+ Stéfan

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 14 Octobre 2013

• #5

Re : Enregistrer sous sans écraser le fichier

Un grand merci pour titiborregan5

c'est exactement ce qu'il me fallait

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 14 Octobre 2013

• #6

Re : Enregistrer sous sans écraser le fichier

En fait non, lol
si je fais ok la macro ne s'exécute pas

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 14 Octobre 2013

• #7

Re : Enregistrer sous sans écraser le fichier

re, et la proposition de stefan ne marche pas?

Quand tu fais le pas à pas ton if est bien respecté?
Il est possible que ton exit sub soit mal positionné ce qui fait que dans tous les cas la macro passe par le exit sub et donc ne fasse rien...

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 14 Octobre 2013

• #8

Re : Enregistrer sous sans écraser le fichier

J'ai fait comme ça :

Code:

'Si clique sur annulé
If Application.Dialogs.Item(xlDialogSaveAs).Show = False Then

    Exit Sub
Else
'macro
************
End if 

End sub

Il ne met pas le nom "fichier travaux", j'attends vos retours, pour une solution
Merci encore

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 14 Octobre 2013

• #9

Re : Enregistrer sous sans écraser le fichier

sans fichier jamais évident...

 

Vote positif 0 Vote négatif