Création de fichier avec nom incrémenté [Résolu/Fermé]

Signaler
Messages postés
24
Date d'inscription
lundi 27 janvier 2014
Statut
Membre
Dernière intervention
23 septembre 2015
-
Messages postés
24
Date d'inscription
lundi 27 janvier 2014
Statut
Membre
Dernière intervention
23 septembre 2015
-
Bonjour,


Je voudrais faire une macro qui, à l'ouverture d'un fichier générique, cherche dans un dossier le fichier ayant le plus grand numéro, ajoute + 1 à ce numéro, et enregistre sous le fichier générique avec comme nom le numéro incrémenté.

Je m'explique avec un exemple :

Le fichier source "fiche visite gen.xlsm" se trouve dans le dossier U://tartampion

Dans le dossier U://tartampion/archive ce trouve les fichiers "fiche visite 001", "fiche visite 002", "fiche visite 003"

En fait je voudrais que, quand j'ouvre le fichier générique, il s'enregistre dans le dossier archive avec le nom "fiche visite 004"

Pour l'instant j'ai juste ça :

Private Sub Workbook_Open()

Dim chemin As String
chemin = "U:\tartampion\Archive visite chantier\"

If MsgBox("Voulez-vous enregistrer une nouvelle fiche ?", vbYesNo, "Nouvelle Fiche") = yes Then


Else

End If
End Sub

Et je vous avoue que je ne m'y connais pas du tout dans le langage spécifique aux manipulations de fichiers, dossiers,etc...

Un peu d'aide serait la bienvenue ;)

Merci !



2 réponses

Messages postés
16220
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 octobre 2020
3 038
Bonjour

sans VBA as tu essayé d'utiliser un classeur modèle (enregistrement avec suffixe ".xltx? ") ?
Messages postés
24
Date d'inscription
lundi 27 janvier 2014
Statut
Membre
Dernière intervention
23 septembre 2015
1
Non, je ne sais pas comment ça marche. Mais j'aimerais vraiment que le fichier d'origine soit enregistré dans un dossier autre que les fichiers incrémentés
Messages postés
24
Date d'inscription
lundi 27 janvier 2014
Statut
Membre
Dernière intervention
23 septembre 2015
1
Bon j'ai trouvé la solution à mon problème. Je passe par un "registre", qui est en fait un tableau Excel ou l'on retrouve tout les numéros des fichiers.

Du coup quand je veux créer un nouveau fichier, je cherche la dernière ligne et fait +1 par rapport à cette dernière.

Voilà :)