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

Incrémenter le nom d'une feuille

Créer une discussion

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
F

Florian53

XLDnaute Impliqué
Bonjour à tous,

Je voudrais réaliser un classeur de nom "demande d'achat":

Avec une macro intégrée dans ce classeur qui sert à incrémenter le nom de la feuille par exemple:
- demande d'achat001
- demande d'achat002
- demande d'achat003

Le script qui correspond à ça est le suivant:

Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Byte

MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

If Val(Right(MyName, 3)) = 0 Then
MyName = MyName & "001"
Else
MyNumber = Val(Right(MyName, 3))
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 7) & Format(MyNumber + 1, "000")
End If
ThisWorkbook.SaveAs MyName

End Sub

Le problème que je rencontre est qu'une fois utilisé il me créer bien le classeur "demande d'achat001" mais si je le ferme et que je réutilise la macro il me marque :

Un fichier nommé "demande d'achat001.xls" existe déjà a cet emplacement. Voulez vous le remplacer?

Avec 3 trois choix possible:
- Oui, dans ce cas il le remplace
- Non, dans ce cas il me met erreur d'exécution
- Annulé

Je voudrais savoir si il serait possible qu'il mémorise à la valeur ou l'incrémentation c'est arrêté pour qu'il reprenne une fois que l'on lui demande.
 
Trier par date Trier par votes
Re : Incrémenter le nom d'une feuille

Bonjour

Florian53
PREAMBULE: évites les contacts en MP à l'avenir, stp . Merci.

Code: 
Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Byte
Dim NomFichier$, nf$, n&
répertoire = ThisWorkbook.Path
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
If Val(Right(MyName, 3)) = 0 Then
MyName = MyName & "001"
Else
nf = Dir(répertoire & "\" & _
NyName & "???" & "*.xls")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
MyNumber = Val(Right(MyName, 3))
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 7) & Format(MyNumber + n, "000")
End If
ThisWorkbook.SaveAs MyName
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Merci d'avoir répondu et désolé de t'avoir contacté par MP je pensais nullement que cal ne se faisait pas.

Dans le script dois je remplacer "Nomdefichier" par le mien en l'occurrence "demande d'achat"

Par quoi je dois remplacer "répertoire" j'ai essayé de mettre ceci mais cela ne fonctionne pas :

nf = Dir(C:\Documents and Settings\Florian\Mes documents & "\" & _


Car j'ai essayé de le copier tel quel il me met la même erreur il ne se souvient pas quand je le rallume a combien il s'est arrêté.

Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Re

Tu peux retirer cette ligne (je viens de le faire dans mon précédent message)
(résidu d'un copier/coller)

Il faut tester dans un dossier qui au départ ne contient que le seul fichier avec cette macro.

PS: Si tu avais lu Lien supprimé, tu aurais su qu'il n'est pas conseillé d'envoyer ses questions en MP.
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Donc je dois remplacer "répertoire" par la destination de mon dossier?

j'ai essayé comme ceci mais cela ne fonctionne pas:

Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Byte
C:\Documents and Settings\Florian\Mes documents\essai = ThisWorkbook.Path
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
If Val(Right(MyName, 3)) = 0 Then
MyName = MyName & "001"
Else
nf = Dir(C:\Documents and Settings\Florian\Mes documents\essai & "\" & _
NyName & "???" & "*.xls")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
MyNumber = Val(Right(MyName, 3))
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 7) & Format(MyNumber + n, "000")
End If
ThisWorkbook.SaveAs MyName
End Sub
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Re

A tester

Code: 
Sub AutoSaveIncremental()
Dim MyName As String, MyNumber As Byte
Dim NomFichier$, nf$, n&
répertoire = _
"C:\Documents and Settings\Florian\Mes documents\essai"
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
If Val(Right(MyName, 3)) = 0 Then
MyName = MyName & "001"
Else
nf = Dir(répertoire & "\" & _
NyName & "???" & "*.xls")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
MyNumber = Val(Right(MyName, 3))
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 7) & Format(MyNumber + n, "000")
End If
ThisWorkbook.SaveAs MyName
End Sub
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

J'ai essayé et il enregistre mais vas 2 en 2 il passe de "demande d'achat001" à "003", "005"

ET quand je ferme "demande d'achat" et que je le rallume et que je recommence il continue de commencer à "001".
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Staple1600 à dit:
Re

Il faut bien lite ce que j'écris
Cliquez pour agrandir...

C'est ce que j'ai fais le dossier qui contient l'original "demande d'achat" est situé ici:

- C:\Documents and Settings\Florian\Mes documents\essai

et par défaut de excel il enregistre systématiquement dans :

- C:\Documents and Settings\Florian\Mes documents

Dans le dossier essai il ne contient que le fichier orignal.
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Re


Essaye comme ceci

Code: 
[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] AutoSaveIncremental()
[COLOR=darkblue]Dim[/COLOR] MyName [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], MyNumber [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Byte[/COLOR]
[COLOR=darkblue]Dim[/COLOR] NomFichier$, nf$, n&
répertoire = _
"C:\Documents and Settings\Florian\Mes documents\essai[/FONT][FONT=Courier New]"
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
[COLOR=darkblue]If[/COLOR] Val(Right(MyName, 3)) = 0 [COLOR=darkblue]Then[/COLOR]
MyName = MyName & "001"
[COLOR=darkblue]Else[/COLOR]
nf = Dir(répertoire & "\" & _
NyName & "???" & "*.xls")
n = 0
[COLOR=darkblue]Do[/COLOR] [COLOR=darkblue]While[/COLOR] nf <> ""
nf = Dir
n = n + 1
[COLOR=darkblue]Loop[/COLOR]
MyNumber = Val(Right(MyName, 3))
MyName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 7) & Format(MyNumber + n, "000")
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
ThisWorkbook.SaveCopyAs MyName & ".xls"
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Cela ne marche sa n'incrémente pas.

j'ai l'impression qu'il ne manque pas grand chose juste une mémorisation du dernier numéro qui a était attribué pour qu'une fois relancer il enchaine avec les autres numéro.
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Florian53 à dit:
Cela ne marche sa n'incrémente pas.

j'ai l'impression qu'il ne manque pas grand chose juste une mémorisation du dernier numéro qui a était attribué pour qu'une fois relancer il enchaine avec les autres numéro.
Cliquez pour agrandir...

J'ai essayé de regarder le code et réussi a éviter que cela incrémente de 2 mais plutôt de 1.

Mais toujours pas a mémoriser a quelle numéro mes demande d'achat se sont arrête
 
Vote positif 0 Vote négatif
Re : Incrémenter le nom d'une feuille

Re



J'ai relu ton premier message

Avec une macro intégrée dans ce classeur qui sert à incrémenter le nom de la feuille par exemple:
- demande d'achat001
- demande d'achat002
- demande d'achat003
Cliquez pour agrandir...

Tu veux dire le nom du classeur ou de la feuille ?

Car plus bas tu dis

Le problème que je rencontre est qu'une fois utilisé il me créer bien le classeur "demande d'achat001"
Cliquez pour agrandir...
 
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

F
  • Question Question
Microsoft 365 Comparer le nom d'une feuille à une liste de noms
Réponses
4
Affichages
821
fattah_5791
F
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
  • Résolu(e)
Microsoft 365 Récupérer la date contenue dans le nom du classeur actif
2
Réponses
18
Affichages
2 K
job75
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
O
  • Question Question
XL 2019 Excel VBA - Condition selon le nom du fichier
Réponses
5
Affichages
2 K
Staple1600
P
  • Question Question
XL 2019 Sauvegarde automatique
Réponses
1
Affichages
1 K
youky(BJ)
A
  • Question Question
XL 2010 Reperer nom fichier et tableau de plusieurs excel
Réponses
1
Affichages
569
Staple1600
S
  • Question Question
XL 2016 Comment intégrer une progressbar pour montrer l'évolution de la synchro des TCDS
Réponses
1
Affichages
1 K
scoubidou35
S
C
  • Résolu(e)
XL 2013 VBA - Amélioration d'une macro consolidation
Réponses
8
Affichages
2 K
Genii
G
B
  • Question Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
5 K
bidouill
B
V
  • Question Question
XL 2013 Copier les données d'une feuille sur une feuille dont le nom n'est pas fixé
Réponses
1
Affichages
554
Staple1600
B
  • Question Question
XL 2010 copier coller une feuille dans le même classeur
Réponses
9
Affichages
2 K
bodiallo
B
  • Question Question
XL 2016 Cadrage et propriété d'images issues d'une macro
Réponses
6
Affichages
2 K
Anthonymctm
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
J
  • Question Question
XL 2013 Récupération d'une plage d'une feuille de chaque classeur d'un dossier
Réponses
2
Affichages
1 K
JLE
J
Y
  • Question Question
XL 2016 Feuille / Colonne VeryHidden
Réponses
2
Affichages
1 K
ynx69
Y
  • Question Question
Récupérer le contenu d'une variable à partir de son nom ...
Réponses
4
Affichages
2 K
JaGu
R
  • Question Question
Incrémenter une valeur d'une feuille à une autre
Réponses
2
Affichages
2 K
redge19
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…