Fichier False

[adi399]

Bien le bonjour à tous!

Voila mon problème:
J'ai une macro qui me permet d'afficher la fenêtre enregistrer sous dans un dossier d'archivage. Si je clique sur enregistrer tout va bien.
Seulement si je décide de revenir sur le fichier en cliquant sur annuler, la macro enregistre quand même mon fichier dans mon dossier en le nommant "False". Comment faire pour que lorsque je clique sur annuler, aucun n'enregistrement ne soit effectué?

Merci beaucoup!

Code :

Private Sub CommandButton3_Click()
ChDir _
"S:\dossier\16-dossier1\Dossier2\archivage"
FileSVG = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Archiver fichier")
ActiveWorkbook.SaveAs FileSVG
UserForm2.Hide
End Sub

 

[tbft]

Re : Fichier False

Coucou

essayer avec

if filesvg then
ActiveWorkbook.SaveAs FileSVG
end if

 

[Pierrot93]

Re : Fichier False

Bonjour,

il me semble que tu as déjà ouvert plusieurs discussions concernant ce sujet.... le mieux est de rester sur le même fil, quitte à le remonter et ou re-préciser les choses...

bonne journée
@+

 

[adi399]

Re : Fichier False

Perfect merci

Savez-vous pourquoi, avec le même code mais en rajoutant une ligne pour supprimer le fichier initial après enregistrement, la fenêtre enregistrer sous n'apparait plus dans mon dossier "archivage" mais dans "mes documents"?
Pourtant le chemin d'accès est bon :s

Private Sub CommandButton3_Click()
Dim f As String
f = ActiveWorkbook.FullName
ChDir _
"S:\dossier\16-dossier1\Dossier2\archivage"
FileSVG = Application.GetSaveAsFilename(InitialFileName:=Act iveWorkbook.Name, fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Archiver fichier")
If FileSVG Then
ActiveWorkbook.SaveAs FileSVG
End If
Kill f
UserForm2.Hide
End Sub

 

[adi399]

Re : Fichier False

ok dsl je vais utiliser l'ancienne !