Re : afficher boite de dialogue pour sauvegarder
Myta, apres avoir integre ton code dans le miens, J'aurais encore deux demande a faire sur ton code. Je me permet de te resolliciter si tu le veux bien.
Nom = ActiveSheet.Name & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
End With
Workbooks("FichierPrincipale").Activate
Sheets("comparison").Delete
POUR INFO: ActiveSheet.Name = "comparison"
Tout ceci marche tres bien a condition que l'utilisateur enegistre bien son fichier.
Mais maintenant si l'utilisateur annule son action au dernier moment. Cad s'il quitte la boite de dialogue windows et decide de ne pas sauvegarder, alors le nouveau fichier excel avec l'unique feuille excel reste affiche quant meme avec un nom par default comme par exemple "book2".
Ma question: comment faire pour qu'il efface automatiquement ce nouveau fichier excel si l'utilisateur annule ou ferme la boite de dialogue sauvegarder sous?
Deuxieme question: je prefererais que seulement le type de fichier excel soit affiche dans la boite de dialogue SAVEAS TYPE et non pas comme actuellement un peu de tous (fichiers xls, txt, html, xlm, etc...).
Troisieme question pendant qu'on y est: comment aficher par default le repertoire "Mes Documents" dans la boite de dialogue?
Apres tout ca promis j'arrete les questions dessus...
bonne soiree,
romain