Bonjour à tous,

Je viens de rencontrer un soucis avec une macro.
Sur divers pc elle fonctionnait, mais la elle ne fonctionne plus sur un PC.

Sa me dit en code erreur veuillez mettre a jours "" langage expiré pour ..... 64 bits que faire.

Le mot en question est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Function
La partie du code est le suivant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hWnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Public Function Enregistrement_PDF(index As Long)
    Dim MyBench As String
    Dim ID As String
    Dim Fichier As String
    Dim Opérations As String
 
    MyBench = Sheets("BDD").Range("H" & index).Value
    ID = Sheets("BDD").Range("A" & index).Value
 
 
    MaintenancedataFilePath = "\\H61sys\essais$\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\2016\" & MyBench & "\" & ID & ".pdf"
 
    SHCreateDirectoryEx 0, MaintenancedataFilePath, ByVal 0&
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MaintenancedataFilePath & "\" & ID & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance 2016.xlsm"
    ThisWorkbook.SaveAs Fichier
 
 
End Function
Function du haut qui merde donc les autres aussi je pense.

Si vous avez une idée je suis preneur.