Bonjour,
J'aimerais enregistrer via une macro une feuille de mon classeur. (en xlsx)
Je voudrais vérifier en premier si le dossier existe si pas le créer (le dossier est égal à : Year(Date)) donc l'année..
Ensuite vérifier si le fichier existe si c'est le cas le renommer en y ajoutant un "_1" voir "_2" etccc .
Cependant si il renomme le fichier avec un "_1" il faudrait qu'il vérifie si il existe .
Voici comment je procède dans mon programme :
Pour le dossier :
Je n'ai pas encore vraiment trouvé
Pour le fichier :
NomFich = chemin & nomfichier
If NomFich <> "" Then MsgBox "LeFichier Existe"
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
.SaveAs FileNAME:=chemin & Application.PathSeparator & nomfichier
.Close
End With
Mon programme ci dessus n'est pas au top car il me dit que le fichier existe alors que c'est faux.
Et ma demande la plus difficile :
Je ne voudrais pas qu'il m'affiche systématiquement l'onglet que je veux sauvegarder , c'est l'histoire du "ActiveSheet.Copy" qui m'embête. Je voudrais rester sur la page principal
Merci pour votre aide
Eric