Discussion :

[Miigui]

Bonjour à tous!

J'espère que le weekend a été bon! Aujourd'hui je vous sollicite dans l'espoir de trouver une réponse à mon problème.
Effectivement, j'ai beaucoup du mal à incrémenter le nom d'un fichier par le biais d'une macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Call SaveAsFile(Wbk)
 
End Sub
 
Public Function SaveAsFile(ByVal Wbk As Workbook)
 
Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim str() As String
Dim i As Byte
Dim StrPrefixeFichier As String
 
StrPrefixeFichier = "REF_COMP_"
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = fso.GetFolder(ThisWorkbook.Path)
 
'Boucle sur fichiers du repertoire
For Each FsoFichier In FsoRepertoire.Files
    str = Split(FsoFichier.Name, ".")
        If str(UBound(str)) = "xls" And Left(str(0), Len(StrPrefixeFichier)) = StrPrefixeFichier Then
        If IsNumeric(Right(str(0), 2)) Then
            If Val(Right(str(0), 2)) > i Then i = Val(Right(str(0), 2))
        End If
    End If
Next
 
i = i + 1
 
Wbk.SaveAs StrPrefixeFichier & IIf(Len(i) = 1, "0" & i, i) & ".xls"
 
End Function

Dans le programme ci-dessus, je n'arrive pas à incrémenter. Le nom du fichier reste avec l'indice 01...
Donc voilà j'aimerai qu'on me dépanne de manière à incrémenté mes fichier de la façon suivante :

REF_COMP_00
REF_COMP_01
REF_COMP_02

Merci d'avance pour votre aide.

[RyuAutodidacte]

Bonjour,

Dans ta boucle ne gère pas la variable i, par défaut i = 0
Normal qu'à i =i +1 donne 1 Je suis allé un peu trop vite en lisant sur mon phone, mais quoi qu'il en soit il y'a une mauvaise gestion à ce niveau, le pas à pas est requis

tu compares tes numériques en mettant toujours le plus grand dans une variable que tu auras initialisé
Soit
Dans ta boucle , récupère tes valeur numériques dans un Array et après la boucle utilise la formule avec Max.

Il ne reste plus qu'à incrémenter de + 1

[Miigui]

Bonjour,

Dans ta boucle ne gère pas la variable i, par défaut i = 0
Normal qu'à i =i +1 donne 1 Je suis allé un peu trop vite en lisant sur mon phone, mais quoi qu'il en soit il y'a une mauvaise gestion à ce niveau, le pas à pas est requis

tu compares tes numériques en mettant toujours le plus grand dans une variable que tu auras initialisé
Soit
Dans ta boucle , récupère tes valeur numériques dans un Array et après la boucle utilise la formule avec Max.

Il ne reste plus qu'à incrémenter de + 1

Très bien. Merci pour ta réponse rapide. Je vais voir ce que je peux faire.

[kiki29]

Salut, voilà ce que cela donne

[Miigui]

Salut, voilà ce que cela donne

Comment as tu fait ?

Je n'arrive pas à faire l'incrémentation. REF_COMP_.xlsx est le seul fichier que je puisse créer. Ensuite lorsque je le ferme et relance la macro, lors de la sauvegarde on me demande si je souhaite écraser ...

[Miigui]

Voilà le code entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Sub REF_COMP()
 
Dim Wbk, thisWbk As Excel.Workbook
Dim Sht, thisSht As Excel.Worksheet
Dim FileName, Fichier, Chemin As String
Dim LR, i As Long
 
Set thisWbk = ThisWorkbook
Set thisSht = thisWbk.Sheets("Export")
Set Wbk = Workbooks.Add ' On ajoute un classeur
'Set Sht = Wbk.Sheets("Current")
 
 thisWbk.Activate
 thisSht.Activate
 Cells.Select
 Application.CutCopyMode = False
 Selection.Copy
 Wbk.Activate
 Cells.Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Supprime les ligne érronées
 LR = Range("A" & Rows.Count).End(xlUp).row
 For i = LR To 1 Step -1
    If IsError(Range("A" & i)) Then Rows(i).Delete
 Next i
 
' Création du nom du fichier
   Chemin = ThisWorkbook.Path
   FileName = "REF_COMP_"
 
Fichier = RenommerFichier(Chemin, FileName)
Wbk.SaveAs FileName:=Fichier
 
End Sub
 
Private Function RenommerFichier(ByVal sDossier As String, ByVal sNomfichier As String) As String
Dim sNouveauNom As String
Dim sPre As String, sExt As String
Dim i As Long
Dim FSO As Object
 
   Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(sDossier & "\" & sNomfichier) Then
        sNouveauNom = sNomfichier
        sPre = FSO.GetBaseName(sNomfichier)
        sExt = FSO.GetExtensionName(sNomfichier)
 
        i = 0
        While FSO.FileExists(sDossier & "\" & sNouveauNom)
            i = i + 1
            sNouveauNom = sPre & Chr(40) & Format(i, "000") & Chr(41) & Chr(46) & sExt
        Wend
        sNomfichier = sNouveauNom
    End If
    Set FSO = Nothing
 
   RenommerFichier = sDossier & "\" & sNomfichier
End Function

[kiki29]

Salut, extrait de ceci

L'extension proposée par défaut lors de l'enregistrement d'un classeur est le type .xlsx.

Les autres extensions XML sont:
* Classeur autorisant les macros (.xlsm)
* Modèle par défaut (.xltx)
* Modèle autorisant les macros (.xltm)
* Macro complémentaire (.xlam)
* Le dernier format .xlsb, est une version binaire non XML.

La lettre x en fin d'extension signifie que le fichier ne contient aucune macro. La lettre m signifie que le fichier contient des macros. Si vous enregistrez et fermez votre classeur au format .xlsx alors qu'il contenait des macros, celles ci seront perdues.

Donc quel format en sauvegarde : xls, xlsx etc ?

Tu as un exemple pour une feuille ici, à adapter à ton contexte.

[kiki29]

Salut, voir ici pour un problème similaire via une fonction.