Sub MoisSuivant()
Dim chemin$, nom$, an$, mois$, dat&, ext$, fichier$, w As Worksheet
chemin = ThisWorkbook.Path & "\" 'chemin des fichiers PRONOS
nom = ThisWorkbook.Name
an = Mid(nom, 8, 4)
mois = Mid(nom, 13, 2)
If Not IsDate(1 & "/" & mois & "/" & an) Then MsgBox "Nom du fichier incorrect !", 48: Exit Sub
dat = DateSerial(an, mois + 1, 1)
ext = Mid(nom, InStrRev(nom, "."))
fichier = "PRONOS " & Year(dat) & "-" & Format(Month(dat), "00") & ext
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Dir(chemin & fichier) = "" Then
ThisWorkbook.SaveCopyAs chemin & fichier
With Workbooks.Open(chemin & fichier)
Application.Goto .Sheets(1).[A1], True
.Sheets(1).[A4] = ""
For Each w In .Worksheets
If w.Name Like "####-##-##" Then w.Delete
Next
.Save
End With
Else
Workbooks.Open chemin & fichier
End If
End Sub
Changez de lunettes Guido :Apres avoir ajouter le chiffre du jour soit le 21 voici le bug ????
Il faut bien sûr que le fichier "Courses 2016-08-21" existe donc renommez le fichier "Courses 2016-08-02".Nota : les noms des fichiers ne correspondent pas aux dates des courses, c'est juste pour l'exemple.
Ce n'est pas une sinécure de travailler avec vous, je ne vois pas ce que je peux faire pour vous.Mais ,je n'arrive toujours pas a obtenir le resultat finale
Re,
Ce n'est pas une sinécure de travailler avec vous, je ne vois pas ce que je peux faire pour vous.
Répondez SVP à ces 2 questions :
- les fichiers de mon post #52 fonctionnent-ils chez vous avec les numéros du jour 1 et 2 ?
- quel est exactement votre problème ?
A+
Re,
J'en reste baba
Vous n'avez rien d'autre à faire que d'ouvrir le fichier "PRONOS 2016-08".
Puis de taper un nombre de 1 à 31 dans la cellule jaune.
La macro crée automatiquement la feuille correspondante et la renseigne.
Ne pas toucher à la feuille "Modele", d'ailleurs j'ai dit qu'on peut la masquer.
A+
Re,
Ras le bol, puisque c'est ainsi c'est fini.