Numéro suivant sous excel 2019

As-tu essayé mon code?

Car il ouvre une boite de dialogue qui te permet de chercher ton fichier!

et cette ligne que fait-elle?

Range("A1").Value = nomfic + 1

comment sont nommés tes pdf?

il faut extraire la valeur numérique

voir ceci

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-P

@+

Pour ce qui est du code ci-dessus, demande des explications à celui qui l'a posté!

Je continue donc dans ma démarche, bien que j'en constate ton désintéressement.

J'ai donc nommé un fichier pdf : Facture 000014 acompte monsieur le pivert Paris et mis ce code qui fonctionne:

Option Explicit
Dim nomfic As String
Dim facture As String
Sub ouvrir()
Dim fileToOpen As Variant
fileToOpen = Application _
 .GetOpenFilename("PDF Files (*.pdf), *.pdf")
If fileToOpen <> False Then
nomfic = Dir(fileToOpen)
nomfic = Split(nomfic, ".")(0)
extraireValeursNumeriques_DansChaine
Range("A1").Value = facture + 1
Range("A1").NumberFormat = "000000"
End If
End Sub
Sub extraireValeursNumeriques_DansChaine()
    Dim i As Byte, Nb As Byte
    Dim Cible As String, Resultat As String
    Dim Nombre As Double
     Cible = nomfic
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    Cible = Replace(Cible, ",", ".")
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
     For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        Nb = Nb + 1
        Resultat = Nombre
        i = i + Len(Str(Nombre)) - 1
        End If
    Next
    facture = Resultat
End Sub

libre à toi de l'utiliser!

Bonne programmation

La méthode la plus simple est de mettre le dernier numéro dans la feuille2

Une autre méthode consiste à parcourir tout le dossier où se trouve les PDF et trouver celui dont le numéro est le plus grand.

Je pense que c'est celui là dont tu fais allusion

Voici donc le code:

Option Explicit
Dim monFichier As String
Dim facture As String

Sub listerLesFichiers()
Dim chemin As String
Dim nb As Integer
nb = 0
' On a besoin du chemin absolu du dossier
' Doit se terminer par \
chemin = "C:\Users\LePivert\Documents\Nouveau dossier\" ' adapter le chemin
' La fonction Dir(chemin, mode) permet de parcourir un dossier
' Ici je rajoute à mon chemin "*.pdf",
' pour ne retrouver que mes fichiers PDF
' vbNormal permet de ne récupérer que des fichiers,
' vbDirectory récupère tout (dossiers et fichiers)
monFichier = Dir(chemin & "*.pdf", vbNormal)
' monFichier n'a récupéré que le premier élément trouvé
' j'ai donc besoin d'un boucle pour les retrouver un à un
Do While monFichier <> ""
extraireValeursNumeriques_DansChaine
If nb < facture Then ' le plus grand nombre
nb = facture
End If
' Permet de passer au fichier suivant
monFichier = Dir
Loop
Range("A1").Value = nb + 1
Range("A1").NumberFormat = "000000"
End Sub

Sub extraireValeursNumeriques_DansChaine()
    Dim i As Byte, nb As Byte
    Dim Cible As String, Resultat As String
    Dim nombre As Double
     Cible = monFichier
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    Cible = Replace(Cible, ",", ".")
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
     For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        nb = nb + 1
        Resultat = nombre
        i = i + Len(Str(nombre)) - 1
        End If
    Next
    facture = Resultat
End Sub

Voilà, si tu préfères cela à toi de voir

@+ Le Pivert

Il faut lancer la macro!

On peut la mettre à l'ouverture du classeur.

A mettre dans ThisWorkbook:

Option Explicit
Private Sub Workbook_Open()
listerLesFichiers
End Sub

@+ Le Pivert