Erreur de formule incrémentation numéro facture

[ALSH]

Bonjour, J’ai une erreur de formule pour l’incrémentation de mes factures, pour mon centre de loisirs.
Je vois bien en surbrillance la ligne ou il y a l’erreur mais comme je ne m’y connais pas assez je ne sais pas ce qu’il faut modifier, c’est quelqu’un qui me l’a donné sur le forum.
Option Explicit
Option Base 1

Const AdrDat = « F5 »
Const AdrNum = « F6 »

Public Sub ok()
Dim tm()
Dim a, m As Long, mm As String, d As Date, n As String, s As String
tm = Array(« janvier », « février », « mars », « avril », « mai », « juin », _
« juillet », « aout », « septempbre », « octobre », « novembre », « décembre »)
With ActiveSheet
's = .Range(AdrNum).Value
d = .Range(AdrDat).Value
a = Year(d)
m = Month(d)
'mm = Format(m, « mmm »)
mm = tm(m)
n = Format(Mid(s, 6, 4) + 1, « 0000 »)
s = a & « - » & n & « - » & mm
.Range(AdrNum).Value = s
End With
End Subtexte en gras

C’est la ligne n=Format qui indique erreur « 13 »
Pouvez-vous m’aider je vous remercie

[FFO]

Bonjour
Sans fichier très difficile d’apporter une réponse adaptée
Mais déjà de ce que je vois
La ligne qui tombe en erreur :

n = Format(Mid(s, 6, 4) + 1, « 0000 »)

fais appel à une variable s ici : Mid(s, 6, 4)

défini sur la seule ligne qui la concerne ici :

's = .Range(AdrNum).Value

Or en début il y a ce caractère : ’

Celui-ci met cette ligne en vert qui a pour conséquence de l’inhiber

Donc au final cette variable n’est pas défini dans la procédure

Enlèves ce caractère en début de cette ligne
Cela aura pour effet de la rendre fonctionnelle et donc de définir cette variable

Maintenant est ce que cela sera suffisant ?

Les tests nous le diront

Dans la négative il faut transmettre le fichier en supprimant tout ce qui est confidentiel

Fais moi un retour