(Excel) contatore di file

[Ter]

Salve a tutti.

E' possibile far contare ad excel il numero di file presenti in una cartella del disco C: e riportare questo numero in una cella incrementato di 1???

Grazie

[Anthony47]

Secondo me vuoi assegnare automaticamente il primo numero libero a una nuova fattura; se e' cosi', allora il mio suggerimento e' di far diventare il file che usi un "modello" su cui baserai le tue fatture, salvando poi le fatture risultanti con un nome file diverso (cosa che penso gia' fai). Inserirai in questo file modello un foglio Archivio, dove per ogni fattura accumulerai un tot di informazioni utili, compreso ovviamente il numero fattura (1 fattura per rigo).
Determinerai quindi il "prossimo numero" sulla base dei dati in Archivio e non contando quanti file hai gia' salvato.
Trovi qui (e sulle altre discussioni citate in quel messaggio) un esempio da usare come spunto: viewtopic.php?f=26&t=83855
Prova a seguirlo e vediamo dove arrivi.

Ciao.

[Flash30005]

Io non so cosa ne faccia Ter con il conteggio dei file e gli invio una macro che conta i file in un percorso noto (es. C:\Data\)

Codice: Seleziona tutto

Public Percorso As String
Sub Archivio()
ChDrive "C"
Percorso = "C:\Data\"    '<<<<< qui cambi il percorso
Trova Direct:=Percorso, Estens:="*.*", Inicell:=ActiveCell
End Sub
Sub Trova(Direct As String, Estens As String, Inicell As Range)
  Dim i As Integer, f As String
  ChDir Direct
  f = Dir(Estens)
  If f = "" Then Exit Sub
  While f <> ""
    i = i + 1
    f = Dir
  Wend
Worksheets("Foglio1").[A1] = i + 1    '<<<< al posto di [A1] puoi mettere qualsiasi altra cella del foglio1 (o altro foglio)
End Sub


Ma se lo scopo è quello intuito da Anthony è preferibile seguire il suo consiglio perché andrebbe fatto qualcosa di più "serio"

Ciao

[Ter]

Anthony47 hai colto precisamente il problema e la soluzione che hai suggerito è di gran lunga migliore di quella a cui avevo pensato io.
Grazie anche a Flash per la sua alternativa.

Ringrazio ancora una volta per la vostra disponibilità e cortesia!

Saluti