Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fichier False

adi399

XLDnaute Occasionnel
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
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
2
Affichages
690
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…