Macro pour enregistrement et sauvegarde des classeurs, Excel VBA

Lorsque vous enregistrez un classeur, vous devez savoir où enregistrer le classeur. Pour ce faire, utilisez l’instruction ChDrive pour déterminer le lecteur et l’instruction ChDir pour définir le répertoire correct. Maintenant, seul le nom manque. Dans l’exemple suivant, prenez le nom suggéré par Excel avec la propriété Name. Ce n’est qu’alors que vous enregistrez le dossier.

Sub EnregisterFichier ()

Dim str As String

Const LW = "c: \"

Const path = "c: \ own files"

str = ActiveWorkbook.Name

    ChDrive LW

    ChDir Pfad

    ActiveWorkbook.SaveAs FileName:=str, FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=True

End Sub

La méthode SaveAs a quelques arguments. La syntaxe de la méthode est:

ActiveWorkbook.SaveAs(Filename, FileFormat, Password, _

WriteResPassword, ReadOnlyRecommended, CreateBackup, _

AddToMru, TextCodePage, TextVisualLayout)

Vous avez précédemment déterminé l’argument FileName dans la variable s. Avec l’argument FileFormat, vous pouvez spécifier le format dans lequel vous souhaitez enregistrer votre dossier. L’argument suivant Password vous permet de définir un mot de passe que l’utilisateur doit saisir lors de l’ouverture du fichier pour charger le fichier. Dans le dernier exemple, une chaîne vide a été transmise, ce qui signifie qu’aucun mot de passe n’est demandé lors de l’ouverture du fichier. L’argument WriteResPassword garantit qu’un mot de passe doit être entré pour permettre l’écriture du fichier. Définissez l’argument ReadOnlyRecommended sur True si un message doit être émis lorsque le fichier est ouvert, recommandant que le fichier soit ouvert avec un accès en lecture seule. Si vous laissez l’argument sur la valeur False, ce message est omis. Définissez l’argument CreateBackup sur la valeur True si Excel doit effectuer une copie de sauvegarde du dossier. Excel crée alors une copie de sauvegarde sous le même nom avec l’addition BACKUP OF … et la fin WLK.

Les autres arguments ne sont pas aussi pertinents dans la pratique et ne seront pas décrits plus en détail ici. Vous pouvez voir une description dans l’aide en ligne.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x