Bonjour Gérard, le forum,
Je confirme que ton code fonctionne super bien mais il y a une chose que je ne comprends pas :
dans le code le nom du classeur est
"\enregistrement"
ThisWorkbook.SaveAs ThisWorkbook.Path &
"\enregistrement" & Val(Mid(ThisWorkbook.Name, 15)) + 1
et
Kill ThisWorkbook.Path &
"\enregistrement" & Val(Mid(ThisWorkbook.Name, 15)) - 3 & ".xlsm"
Je voudrais modifier le nom (
1 nom classeur par Commerciale), par exemple
"\Charlotte_isitelImmobProspection" soit :
ThisWorkbook.SaveAs ThisWorkbook.Path &
"\Charlotte_isitelImmobProspection" & Val(Mid(ThisWorkbook.Name, 15)) + 1
et
Kill ThisWorkbook.Path & "
\Charlotte_isitelImmobProspection" & Val(Mid(ThisWorkbook.Name, 15)) - 3 & ".xlsm"
et là, ça fonctionne plouf plus .... ai-je oublié de modifier qqchose ?
après réflexion, je pense que c'est la mémorisation. Je vais voir
Bon dimanche
lionel,