[VBA-E] Format de nombre

Version imprimable

10/04/2006, 09h49
Elstak

[VBA-E] Format de nombre

bonjour,

apres une tentative ratée de faire une macro en mode creation, je viens demander si il est possible (je pense que oui) de faire ceci :

- J'ai un nom de fichier du type : nom0009.txt
la semaine prochaine il aura le nom : nom0010.txt

jaurai voulu savoir comment faire pour changer ce nom automatiquement il ne suffit pas ici de faire :

Code:

"nom" & numero+1

il faut qu'il y ai toujours 4 chiffres derriere le nom.

jaurai aussi voulu savoir (c'est peut etre le meme probleme) comment faire pour declarer un nombre qui doit contenir 4 chiffres (en faisant num=0000, il remet automatiquement num=0)

Merci de vos réponses :D
10/04/2006, 09h53
jmfmarques

Utilisation de Instr, Mid, Len, Right, Left etc... (aide en ligne)
et de Format (également aide en ligne)
Reviens nous voir avec un bout de code utilisant celà... :wink:
10/04/2006, 09h53
Megaxel

Salut!
Regarde ce que sait faire "Format".
10/04/2006, 09h58
Megaxel
J'ai trouvé. Regarde cet exemple:
Code:

1 2 3 i = 10 i = i + 1 MsgBox (Format(i, "####0000"))
10/04/2006, 10h52
Elstak

Ok !

Merci de votre aide :D

je finis un autre petit code avant et ensuite jme met à celui là et jvous tiens au courant :wink:

tiens un pe de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function IncNom(st As String)
 
Dim stPre As String
Dim stNbre As String
Dim stSuff As String
Dim i As Integer
Dim iMode As Integer ' i =1
 
For i = 1 To Len(st)
  Select Case iMode
    Case 0 'Extrait prefixe
      If Mid(st, i, 1) >= "0" And Mid(st, i, 1) <= 9 Then
        stNbre = Mid(st, i, 1)
        iMode = 1 '.. passe à extraction nombre
      Else
        stPre = stPre & Mid(st, i, 1)
      End If
    Case 1 'Extrait nombre
      If Mid(st, i, 1) >= "0" And Mid(st, i, 1) <= 9 Then
        stNbre = stNbre & Mid(st, i, 1)
 
      Else
        stSuff = Mid(st, i, 1)
        iMode = 2 '.. passe à extraction suffixe
      End If
     Case 2
        stSuff = stSuff & Mid(st, i, 1)
  End Select
 
 
 
Next
 
Debug.Print "<" & stPre & "-" & stNbre & "-" & stSuff & "]"
i = Len(stNbre)
If i > 0 Then
 IncNom = stPre & Right(String(i, "0") & (stNbre + 1), i) & stSuff
 
Else
  IncNom = st
End If
 
End Function

Citation:

Envoyé par Fenêtre exécution

?incNom("nom0009.txt")
<nom-0009-.txt]
nom0010.txt

10/04/2006, 11h05
Megaxel

Ha ben là... Quand je pense qu'on me reproche parfois de donner des solutions compliquées... :D
10/04/2006, 11h20
SfJ5Rpw8

Citation:

Envoyé par Megaxel

Ha ben là... Quand je pense qu'on me reproche parfois de donner des solutions compliquées... :D

.. j'avais envie de coder lol...
10/04/2006, 11h30
Theocourant
Salut

Et si tout simplement tu faisais ceci :
Code:

1 2 3 4 dim strNomFichier as String strNomFichier="nom" & Format(numero+1,"0000") & ".txt"
Est-ce que ça ne marcherait pas ?

Théo
10/04/2006, 12h29
Elstak
:vomi: (ca vous l'a pas fait en lisant le code de bbil :D )

héhé, je suis méchant car il fait ce que je cherchais à faire :wink:

mais bon, celui là aussi :
Code:

1 2 3 dim strNomFichier as String strNomFichier="nom" & Format(numero+1,"0000") & ".txt"
alors mon choix entre les deux a été vite fait :lol: :lol:

en tout cas merci à tous pour vos réponses !! :) ( et surtout à théo car il m'a évité un mal de crane pour décoder la solution (un peu) plus longue :P )
10/04/2006, 13h14
SfJ5Rpw8

Citation:

Envoyé par Elstak

:vomi: (ca vous l'a pas fait en lisant le code de bbil :D )

héhé, je suis méchant car il fait ce que je cherchais à faire :wink:

pas sympa ! ... en fait comme tu n'étais pas clair sur la consistance de ton "Nom"... je t'ai écrit une fonction un peu plus universelle que prévu...

Citation:

Envoyé par Fenêtre exécution, exple d'utilisation

?incNom("to1.txt")
to2.txt
?incNom("Ect00000534Pjlskdpo")
Ect00000535Pjlskdpo
?incNom("Et le Numero : 00234 fonctionne aussi")
Et le Numero : 00235 fonctionne aussi

sinon la solution par Format t'avais déjà été donné par Jmf.. dès la premiére réponse au post :wink:
10/04/2006, 13h29
Theocourant

Citation:

Envoyé par bbil

Citation:

Envoyé par Elstak

:vomi: (ca vous l'a pas fait en lisant le code de bbil :D )

héhé, je suis méchant car il fait ce que je cherchais à faire :wink:

pas sympa ! ... en fait comme tu n'étais pas clair sur la consistance de ton "Nom"... je t'ai écrit une fonction un peu plus universelle que prévu...

Citation:

Envoyé par Fenêtre exécution, exple d'utilisation

?incNom("to1.txt")
to2.txt
?incNom("Ect00000534Pjlskdpo")
Ect00000535Pjlskdpo
?incNom("Et le Numero : 00234 fonctionne aussi")
Et le Numero : 00235 fonctionne aussi

sinon la solution par Format t'avais déjà été donné par Jmf.. dès la premiére réponse au post :wink:

Mais oui il est bien ton code quoique un peu indigeste mais bon, moi, je commence à avoir l'habitude :lol:
10/04/2006, 14h59
Elstak

mais te fache pas bbil :D
:calin: (juste un calin amical, reve pas non plus :P)

je t'ai dit que ta solution allait bien !! juste que pour ce qu'il me faut, celle de théo convient, donc entre 2 lignes et un peu plus bah je choisi les 2 lignes :lol: