Problème de sub ou fonction non définie

Question

J'ai un problème avec mon code. A chaque fois que je l'exécute ( même avec tous les recommandations trouvées ça et là ), je reçois toujours un message "Sub ou fonction non-définie".

le code est le suivant :

Sub ExportSheetsToPDF()

Dim ws As Worksheet
Dim MAT_Individu As Double
Dim chemin As String
Dim i As Long
Dim wsTemp As Worksheet
Dim cell As Range

' Définir le chemin où les fichiers PDF seront enregistrés
chemin = "C:\Users\lenovo\Documents\HPSCANS\"

' Parcourir chaque matricule dans la feuille "BDD"
For i = 2 To ThisWorkbook.Sheets("BDD").Cells(ThisWorkbook.Sheets("BDD").Rows.Count, "A").End(xlUp).Row

' Obtenir le matricule
MAT_Individu = ThisWorkbook.Sheets("BDD").Cells(i, "A").Value

' Parcourir chaque cellule dans la plage C3:C10 de la feuille "Listes"
For Each cell In Worksheets("Listes").Range("C3:C10")

' Vérifier si une feuille de calcul avec ce nom existe
On Error Resume Next
Set ws = ThisWorkbook.Sheets(cell.Value)
On Error GoTo 0

' Si la feuille de calcul existe, créer un fichier PDF
If Not ws Is Nothing Then
' Créer une nouvelle feuille de calcul temporaire
Set wsTemp = ThisWorkbook.Sheets.Add
wsTemp.Name = "Temp"

' Transférer les informations du matricule à la feuille de calcul temporaire
wsTemp.Cells(1, "A").Value = ws.Cells(i, "A").Value
wsTemp.Cells(2, "A").Value = ws.Cells(i, "B").Value
wsTemp.Cells(3, "A").Value = ws.Cells(i, "C").Value
' Ajoutez plus de lignes ici si vous avez plus de colonnes d'informations

' Créer un fichier PDF pour le matricule
wsTemp.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & MAT_Individu & ".pdf", Quality:=xlQualityStandard

' Effacer la feuille de calcul temporaire
Application.DisplayAlerts = False
wsTemp.Delete
Application.DisplayAlerts = True
End If
Next cell
Next i
End Sub

Merci

Dan · Answer

- Avant de voir votre demande, merci de préciser votre version excel ? (excel 97, 2003, 2007, 2016, MAC2011, MAC 2016 ?? ) et de l'ajouter dans le profil de votre compte
- Vous disposez d'un outil pour poster vos codes en cliquant sur l'icone </> disponible dans la barre de menu et en collant vos codes dans la fenêtre. Pensez à l'utiliser, vos codes seront plus facile à lire. J'ai corrigé votre post pour vous montrer.