Discussion :

[Marionette]

Bonjour,

Je souhaite incrémenter des numéros lors de l'exportation de mes fichiers Excel vers le dossier cible.
Exemple : Monclasseur, monclasseur1, monclasseur2

Après plusieurs bidouillage dans mon code j'ai réussi à faire fonctionner la bête mais je reste pas tranquille d'esprit ca je me dis qu'il y à forcement un truc que j'ai mal fait.

je me suis aussi évidement inspiré des différents sujet sur ce forum, mais je voulais l'avis de quelqu'un de plus compétant,

A partir de certaines variables déjà prédéfinie (nom, prénom, & date par exemple) je voulais ajouter une numérotation pour qu'il n'y ai pas d'écrasement ou d'erreur à l'exécution du code.

Voici mon code (partie servant à l'incrémentions uniquement) avant modification (codé par un ancien bénévole) :

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
sPrenomEmploye = rs!prenomEmploye
 
            k = 97
 
            sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "ddmmyyyy")
 
            Do While IsFile(sCheminfichier & Chr(k) & ".csv")
                k = k + 1
            Loop
 
            sCheminfichier = sCheminfichier & Chr(k) & ".csv"
 
            wb2.SaveAs Filename:=sCheminfichier, FileFormat:=6
 
            wb2.Close SaveChanges:=True
 
            i2 = 2: cpt = 0

A l'heure actuelle, ce code génère une lettre de l'alphabet pour différencier deux même fichier,
Exemple : monclasseurA, monclasseurB

Cela étant dit j'ai certaine incompréhension dans ce code, notamment la variable "K" qui = 97
Que veut dire le 97 ? Ainsi que le Chr(k)

Je souhaite supprimer les lettres de l'alphabet car je me rend compte que je suis limité à 26 fichiers généré en même temps, et y mettre à la place des numéros : Monclasseur1, monclasseur2...

Voici maintenant ma modification :

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
            sPrenomEmploye = rs!prenomEmploye
 
             K = 1
 
            sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "dd.mm.yyyy") & "_"
 
            Do While IsFile(sCheminfichier & K & ".csv")
                K = K + 1
 
            Loop
 
            sCheminfichier = sCheminfichier & K & ".csv"
 
            wb2.SaveAs Filename:=sCheminfichier, FileFormat:=6
 
            wb2.Close SaveChanges:=True
 
            i2 = 2: cpt = 0

Dans les autres sujets je vois des choses plus complexe, donc ca m'etonne que ma méthode fonctionne aussi simplement, d'où ma paranoïa
https://www.developpez.net/forums/d1...er-sauvegarde/

Pour vous ma modification est bonne ou cela n'est pas pro du tout ? Quel autre méthode serait mieux adapté ?

Cordialement

[Robert1957]

Bonjour Marionette,

Explications:
La fonction Chr() ici
Votre code (annotation) :

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
sPrenomEmploye = rs!prenomEmploye  'récupère le prénom de l'employé
 
            k = 97  '= à la lettre a
 
            sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "ddmmyyyy")  'Emplacement du répertoire des fichiers csv et nom complet du fichier sans la dernière partie qui est la lettre a + extension du fichier
 
            Do While IsFile(sCheminfichier & Chr(k) & ".csv")  'Routine pour vérifier l'existence du fichier, on débute avec la lettre a (Chr(97) ou Chr(k)) et on ajoute l'extension du fichier (.csv)
                k = k + 1 '  On incrémente de 1
            Loop  ' On revient vérifier si b existe (Chr(98))
 
            sCheminfichier = sCheminfichier & Chr(k) & ".csv"  ' On inscrit la lettre suivant la dernière lettre trouvée
 
            wb2.SaveAs Filename:=sCheminfichier, FileFormat:=6  ' On sauvegarde le document
 
            wb2.Close SaveChanges:=True  ' Idem
 
            i2 = 2: cpt = 0

Pour la partie du code qu'on voit, je ne vois pas de problème. Il y a probablement une fonction "IsFile" ailleurs dans votre code pour tester l'existence d'un fichier.

Votre deuxième code remplace les lettres par des nombres en commençant la numérotation à 1. Lui aussi est correct.

Bonne journée

[Marionette]

Bonjour Marionette,

Explications:
La fonction Chr() ici
Votre code (annotation) :

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
sPrenomEmploye = rs!prenomEmploye  'récupère le prénom de l'employé
 
            k = 97  '= à la lettre a
 
            sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "ddmmyyyy")  'Emplacement du répertoire des fichiers csv et nom complet du fichier sans la dernière partie qui est la lettre a + extension du fichier
 
            Do While IsFile(sCheminfichier & Chr(k) & ".csv")  'Routine pour vérifier l'existence du fichier, on débute avec la lettre a (Chr(97) ou Chr(k)) et on ajoute l'extension du fichier (.csv)
                k = k + 1 '  On incrémente de 1
            Loop  ' On revient vérifier si b existe (Chr(98))
 
            sCheminfichier = sCheminfichier & Chr(k) & ".csv"  ' On inscrit la lettre suivant la dernière lettre trouvée
 
            wb2.SaveAs Filename:=sCheminfichier, FileFormat:=6  ' On sauvegarde le document
 
            wb2.Close SaveChanges:=True  ' Idem
 
            i2 = 2: cpt = 0

Pour la partie du code qu'on voit, je ne vois pas de problème. Il y a probablement une fonction "IsFile" ailleurs dans votre code pour tester l'existence d'un fichier.

Votre deuxième code remplace les lettres par des nombres en commençant la numérotation à 1. Lui aussi est correct.

Bonne journée

Salut Robert,

Merci pour t'es commentaires, en effet j'avais assez mal compris certaines chose, donc par déduction j'aurais pu conserver le meme code mais en remplaçant le 97 par 49 trouvé sur le lien que tu as noté pour voir remplacer la lettre "a" au profit du "1"

[hyperion13]

Salut
Si c'est pour stocker dans l'ordre de l'espace temps et pour éviter d'écraser par erreur un fichier existant autant faire simple en L5
Sauf pour le brainstorming.

Code :

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

sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "yyyymmdd") & "_" & Format(Date, "hhnnss")

[Marionette]

Salut
Si c'est pour stocker dans l'ordre de l'espace temps et pour éviter d'écraser par erreur un fichier existant autant faire simple en L5
Sauf pour le brainstorming.

Code :

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

sCheminfichier = sDossier & "\" & sPrenomEmploye & "_" & Format(Date, "yyyymmdd") & "_" & Format(Date, "hhnnss")

Salut Hyperion,

En effet j'avais essayé cette méthode en ajoutant les minutes pour différencier au max les fichiers, mais ca coincé aussi en qu'a de grosse exportation car j'avais encore ma lettre "97"je n'était pas allez jusqu'au secondes qui la effectivement aurais débloqué la situation.

[Robert1957]

Bonjour Marionette, hyperion13,

j'aurais pu conserver le meme code mais en remplaçant le 97 par 49 trouvé sur le lien que tu as noté pour voir remplacer la lettre "a" au profit du "1"

Non pas possible l'incrémentation de la variable en partant de 49 donc Chr(k) = Chr(49) aurait inscrit des chiffres jusqu'au code Chr(58) qui aurait retourné ":" l'idée si vous désirez numéroter le fichier est bien ce que vous avez fait dans votre deuxième code. Cependant la solution d'hyperion13 est tout à fait correcte, ne nécessite pas de boucle et va vous permettre de différencier vos fichiers. Question de goût à l'affichage dans votre explorateur de fichier...

Bonne journée