Bonjour toutes et tous
coucou Bruno45
@Pierresbastres
vu sur le net:
'TESTER SI LE MODULE COMPLEMENTAIRE EXISTE
If Dir("C:\WINDOWS\system32\MSCOMCT2.OCX", vbDirectory) = "" Then
Rep = MsgBox("Message...", vbCritical, "Module complémentaire manquant")
ThisWorkbook.Close SaveChanges:=False
End If
ou modifier 32 par celui-ci
C:\Windows\SysWOW64\
ou
'TESTER SI LE MODULE COMPLEMENTAIRE EXISTE
If Dir("C:\WINDOWS\system32\MSCOMCT2.OCX", vbDirectory) = "" and Dir("C:\Windows\SysWOW64\MSCOMCT2.OCX", vbDirectory) = "" Then
Rep = MsgBox("Message...", vbCritical, "Module complémentaire manquant")
ThisWorkbook.Close SaveChanges:=False
End If
crdlt,
André