Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création fichier avec compteur pour le nom

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gueval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gueval

XLDnaute Junior
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
 
Trier par date Trier par votes
Re : Création fichier avec compteur pour le nom

Bonsoir

Une ébauche de solution

Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
Re : Création fichier avec compteur pour le nom

JCGL à dit:
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 🙂
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
762
darkjedi
D
G
  • Résolu(e)
Microsoft 365 PDF via Excel + choix nom PDF
Réponses
2
Affichages
531
gpion
G
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
786
job75
T
  • Question Question
XL 2021 ajouter le sélecteur de date + le nom de la personne qui utilise le fichier Excel
Réponses
3
Affichages
749
patricktoulon
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
J
  • Question Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
915
Lolote83
L
J
  • Question Question
Power Query Aide - Fonctions pour afficher le détail des inscrits (nom, prénom date de naissance) parmi une liste de différents stages.
Réponses
6
Affichages
887
Hasco
  • Résolu(e)
XL 2013 récupération valeur cellule pour donner un nom lors de la création d'un fichier pdf
Réponses
3
Affichages
2 K
CGU2022.
T
  • Question Question
XL 2016 Difficultés pour extraire des données d'une BDD et autres petits détails !!!
Réponses
13
Affichages
1 K
ChTi160
J
  • Question Question
XL 2019 Donner le nom de deux cellules a un onglet avec VBA
Réponses
1
Affichages
900
Jacky67
E
  • Résolu(e)
XL 2010 Imprimer plusieurs onglets en pdf avec le nom de l'onglet en tant que nom du pdf
Réponses
4
Affichages
3 K
kiki29
S
  • Question Question
Microsoft 365 Extraire une donnée à 0 ou 1, suivant le nom et la date du salarié depuis un tableau dynamique
Réponses
2
Affichages
742
sam53
S
F
  • Question Question
XL 2019 Power Query - Passages paramètres d'importation pour fichier TXT
Réponses
6
Affichages
1 K
chris
  • Question Question
XL 2016 Bouton pour créer un dossier et enregistrer un fichier dedans les deux avec le mêmes nom
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
D
  • Question Question
Microsoft 365 Besoin d'aide svp pour afficher un récapitulatif à partir d'un fichier excel avec une liste de nom.
Réponses
9
Affichages
1 K
gbinforme
G
A
  • Résolu(e)
XL 2016 Macro ouvrir un fichier avec nom variable
Réponses
4
Affichages
2 K
herve62
M
  • Résolu(e)
Microsoft 365 Variabiliser le nom d'un fichier créé/enregistré chaque jour selon la date
Réponses
5
Affichages
2 K
MOA_Excel
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…