Discussion :

[babybell]

Bonjour

Je viens enfin de trouver le chemin pour faire mes demandes directement dans VBA Excel(c'est pas trop tôt)

Dans un classeur Excel, j'ai des onglets qui se créent automatiquement pour chaque jour du mois à chaque fois que j'ouvre tous les jours le fichier. Ce que j'aimerai, c'est qu'au début du mois suivant, tous les onglets du mois précédent se retouvent dans un nouveau classeur pour pouvoir être enregistrés.

Merci à vous de m'aider.

[Godzestla]

Bonjour

Je viens enfin de trouver le chemin pour faire mes demandes directement dans VBA Excel(c'est pas trop tôt)

Bravo. Chaque avancement est une victoire.
Peux tu tenter un nouvel exploit ? Montre ton code !

[decondelite]

J'envisage diverses solutions, mais tout dépend effectivement du code qui t'a permis de faire ce que tu as fait.

[babybell]

Voila le code pour créer mes onglets au jour le jour

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
jour = Left(Date, 2)
mois = Mid(Date, 4, 2)
année = Right(Date, 4)
If Len(jour) < 2 Then
jour = "0" & jour
End If
If Len(mois) < 2 Then
mois = "0" & mois
End If
aujourd_hui = jour & "-" & mois
For Each FEUILLE In Sheets
FEUILLE.Activate
   If ActiveSheet.Name = aujourd_hui Then
GoTo Fin
    Exit For
    End If
Sheets.Add
ActiveSheet.Name = aujourd_hui
Feuille_Destination = ActiveSheet.Name

J'aimerai que le mois suivant, quand j'ouvre mon fichier, tous les onglets du mois précédent se retrouvent dans un autre classeur afin d'être enregistrés.

merci de ta réponse

[decondelite]

Je ne le trouve pas très propre ce code (et il est même pas entier je vois même pas d'étiquette "Fin"), mais bon je passe outre car ce qui m'intéresse vraiment c'est où tu l'as mis.

[babybell]

Code :

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

1
2
3
4
Fin:
run (.....)
...
End Sub

J'ai été obligé de faire un Run d'un autre code car je suis en:

Code :

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

Private Sub Workbook_Open()

[decondelite]

Bon.

Tu as 2 solutions:
-ouvrir un nouveau classeur avec autant de feuilles que le nombre de feuilles du classeur actuel, copier leur contenu une à une, enregistrer cet autre classeur, le fermer, et vider le classeur actuel
-soit tu utilise une méthode un peu "tirée par les cheveux", qui consiste à garder en mémoire le chemin du classeur actuel, l'enregistrer sous un autre nom, ouvrir le classeur du chemin en mémoire (vu que le classeur actuel n'est plus celui-là), le vider, et fermer le classeur actuel.

La deuxième solution n'est peut-être pas très simple à comprendre, mais elle évite de se cogner la programmation de copie des feuilles et des cellules.

[babybell]

Merci de ta réponse.

A défaut de code VBA, je vais tester les 2 solutions, car tous les mois n'ont pas le même nombre de jours ouvrés.

[decondelite]

Je pourrais te le pondre le code VBA, mais honnêtement je préfère que ce soit toi qui y réfléchisse que quelqu'un d'autre à ta place: cela ne t'apporterait rien.

Je t'ai donné la trame générale du code, mais après ça se traduit tout seul.