enregistrer un fichier en incrementant sous VBA

[PerrierCitron]

Bonjour,

Je souhaite completer une de mes macro avec un enregistrement automatique.

J'ai réalisé une macro qui permet de renseigner une cellule spécifique avec un chiffre (ou eventuellement chaine de caractères+ chiffre) qui s'incremente à chaque ouverture de fichier:
1) j'ouvre mon fichier source "bidon.xls" protégé en écriture par un mot de passe --> lancement macro
2) cellule A1 = 1000, travail sur les autres cellules
3) j'enregistre sous "bidon1000.xls"
4) réouverture de "bidon.xls" ...
5) cellule A1 = 1001 ....
6) j'enregistre sous "bidon1001.xls"
...
Je recherche quelques lignes de VBA qui me permettrai de detecter la valeur de la cellule A1 puis me face un enregistrer sous "bidon(A1).xls", "bidon(A1).xls" devenant ainsi le modèle actif enregistrable sans aucune resctriction de protèction (plus de mot de passe).
Merci pour votre aide. Excelment... Franck

 

[Thierry]

Salut Franck,

Tu peux, entre autre, faire comme çà :

Sub Sauvegarde()
Dim Nom_Fichier As String
Dim Chemin As String
Dim Numero As String

Chemin = "C:\Mes Documents\"
Numero = Sheets("TAFEUILLE").Range("A1").Value
Numero = Format(Numero, "0000")
Nom_Fichier = "BIDON " & Numero

MsgBox "Numéro de facture : " & Numero & ".xls"

ChDir "C:\my Documents"
ActiveWorkbook.SaveAs Nom_Fichier, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False
End Sub

Tu remplaces "Bidon" et "tafeuille"... par les noms que tu veux et çà devrait faire l'affaire...

En ce qui est de la protection... La macro ici vire toutes les protections d'ouverture et d'écriture par password du nouveau classeur sauvé...
Je suppose que c'est ce que tu veux ?

... tiens moi au courant
Bon week End
@+Thierry