Création fichier avec compteur pour le nom

[gueval]

Bonjour à tous le Forum,
Suite au problème technique, je réitère ma demande.
Je souhaiterai via une macro (bouton ), créer un fichier à partir d'un onglet nommé d'un autre fichier, mais la particularité est que le nom du fichier ce créé automatiquement en utilisant le nom de l'onglet la date de création + une constante de type texte " AA02 "" et le numéro de version ( compteur incrémenté si plusieur envoi à la même date.
Ex : Feuil1 AA02 20070326 V1
Feuil1 AA02 20070326 V2
Feuil1 AA02 20070327 V1
de même la recopie de l'onglet devrait se faire en reprenant les valeurs mais pas les formules
Ce qui me permettrait d'archiver les différentes versions que l'on m'envoi pour traitement.
En espérant être clair ( j'ai des doutes )
Merci d'avance , si vous avez une solution ou début de soluce
Bonne journée à tous
Guéval

 

[Staple1600]

Re : Création fichier avec compteur pour le nom

Bonsoir

Une ébauche de solution

Sub testOK()
X = Format(Date, "yyyymmdd")
Y = "Feuil1AA02"

If Not SheetExists("Feuil1") Then
MsgBox "Celle feuille n'existe pas dans ce " & ThisWorkbook.Name
Else
Sheets("Feuil1").Copy After:=Worksheets(Sheets.Count)
iSt = ActiveSheet.Index - 1
ActiveSheet.Name = Y & X & "V" & iSt
End If
End Sub

Function SheetExists(strSheetName As String) As Boolean
'SOURCE:http://www.erlandsendata.no/english/index.php?d=envbawssheetexists
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error Resume Next
    SheetExists = Len(Sheets(strSheetName).Name) > 0
    On Error GoTo 0
End Function

Bonne soirée

 

[gueval]

Re : Création fichier avec compteur pour le nom

Bonjour a tous,
merci à Staple1600, pour son début de solution.
mais je n'arrive toujours pas à finaliser, je sais que je ne suis vraiment pas doué, mais je pense que dans tous le forum quelqu'un pourra m'aider
je n'arrive pas à nommer mon fichier pour avoir dans le nom la date et l'heure
ce qui me permer de savoir qu'elle est la dernière version.
En gros ma macro fait de bric et broc récupéré sur ce forum fait oû devrai faire :
copie la feuille gamme sur le fichier source sans les formules
et enregistre ce nouveau classeur dans une nouvelle racine avec le nom de la feuille composé d' une constante de la date et l'heure.
même si je n'ai pas la date et l'heure sur le nom de la feuille, je le souhaite sur le nom du classeur.

😕 Au cas oû ce problème n'aurait pas de solution, une ame charitable pourra t'il me le dire car dans ces cas là j'arrêterai de chercher.

Merci à tous, ci dessous mon code

Sub testOK()
x = Format(Date, "yyyymmdd h:mm:ss")
y = "DD04_GamNom "
With Sheets("gammenome")
.Copy
.UsedRange.Cells.Value = (.UsedRange.Cells.Value)
End With
ActiveSheet.Name = y & x
Dim classeur As Workbook
Set classeur = ActiveWorkbook
ChDir "U:\Informatique\Entreprise\Maintenance"
With classeur
.SaveAs (ActiveSheet.Name & ".xls")
End With
End Sub

 

[JCGL]

Re : Création fichier avec compteur pour le nom

Bonjour à tous

Ton format ne pas donner un nom de feuille à cause des :

= Format(Date, "yyyymmdd") & " " & Format(Time, "hhmmss")


A+

PS : le code de Staple fonctionne parfaitement 🙂

 

[gueval]

Re : Création fichier avec compteur pour le nom

Bonjour à tous

Ton format ne pas donner un nom de feuille à cause des :

= Format(Date, "yyyymmdd") & " " & Format(Time, "hhmmss")


A+

PS : le code de Staple fonctionne parfaitement 🙂

Bonjour,
Staple1600 et JCGL,
m'étant absenté, je n'ai pu vous répondre et vous dire merci mon problème est solutionné, en effet JCGL la macro de Staple1600, fonctionne parfaitement
et je l'ultilisé maintenant dans pluseiurs applications qui me posaient problème.
encore un grand merci
Gueval