Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionon error resume next
'Appel recherche et active si non If Not ReferenceActive("PDFCreator") Then ActiverReference "C:\Program Files\PDFCreator\PDFCreator.exe" 'Fonction Reference Active Function ReferenceActive(Nom As String) As Boolean Dim i As Integer Dim NbreRef As Integer NbreRef = ThisWorkbook.VBProject.References.Count For i = 1 To NbreRef If ThisWorkbook.VBProject.References(i).Name = Nom Then ReferenceActive = True Exit Function End If Next i End Function 'Fonction active reference Sub ActiverReference(NomComplet As String) ThisWorkbook.VBProject.References.AddFromFile NomComplet End Sub