ho scoperto, purtroppo, che le macro fatte in EXCEL 2003 non funzionano più in EXCEL 2007.
Potete aiutarmi ad convertire questo listato dal 2003 al 2007:
- Codice: Seleziona tutto
Set fs = Application.FileSearch
With fs
.LookIn = "X:\CORRISPONDENZA\Fax\" 'conta quanti file "*-anno" sono presenti in T:/corrispondenza/fax/
FNAME2 = anno & ".DOC"
.FileName = FNAME2
If .Execute > 0 Then
NF = .FoundFiles.Count + 1
protocollo = Switch(NF < 10, "0" & NF, NF > 9, "" & NF)
Else
protocollo = "01"
End If
End With
Grazie.