Pareil pour la progress barre
Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
Set Refs = .VBProject.References
For Each Ref In Refs
If Ref.IsBroken Then
Refs.Remove Ref
End If
Next
.VBProject.References.AddFromGuid _
"{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 0
End With
End Sub
Au niveau du spreadsheet qui n'apparait plus
Sheets("Suivi Dossier").Select
Range("A1:G" & Findutableau(5)).Select
Selection.Copy
Suivi.Spreadsheet1.Range("A1").Paste
Sheets("Suivi Dossier").Select
Range("A1:G" & Findutableau(5)).Select
Selection.Copy
Suivi.Spreadsheet1.Range("A1").Paste
Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
Set Refs = .VBProject.References
For Each Ref In Refs
If Ref.IsBroken Then
Refs.Remove Ref
End If
Next
.VBProject.References.AddFromGuid _
"{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 0
'références : Microsoft office Web components 9.0
.VBProject.References.AddFromGuid _
"{0002E540-0000-0000-C000-000000000046}", 1, 0
End With
End Sub
Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
Set Refs = .VBProject.References
For Each Ref In Refs
If Ref.IsBroken Then
Refs.Remove Ref
End If
Next
.VBProject.References.AddFromGuid _
"{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 0
End With
End Sub
Il Oui toujours la même erreur.
.VBProject.References.AddFromGuid _
"{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 0
'références : Microsoft office Web components 9.0
.VBProject.References.AddFromGuid _
"{0002E540-0000-0000-C000-000000000046}", 1, 0
Sub AfficherLesGuids_Propriétés()
Dim X As Integer, Sh As Worksheet
Dim NbRef As Integer
Set Sh = Worksheets.Add(After:=Sheets(Sheets.Count))
On Error Resume Next
With Sh
.Name = "GUIDS"
.Cells(1, 1) = "Nom de la bibliothèque"
'Son appellation dans la fenêtre Reférences
.Cells(1, 2) = "Description"
.Cells(1, 3) = "Guid"
.Cells(1, 4) = "Major"
.Cells(1, 5) = "Minor"
.Cells(1, 6) = "Chemin complet"
With .Range("A1:F1")
.Font.Bold = True
.Font.Size = 12
End With
With Sh.Parent.VBProject.References
NbRef = .Count
X = 2
For a = 1 To NbRef
Sh.Cells(X, 1) = .Item(a).Name
Sh.Cells(X, 2) = .Item(a).Description
Sh.Cells(X, 3) = .Item(a).GUID
Sh.Cells(X, 4) = .Item(a).Major
Sh.Cells(X, 5) = .Item(a).Minor
Sh.Cells(X, 6) = .Item(a).fullpath
X = X + 1
Next
End With
.Range("A1").CurrentRegion.EntireColumn.AutoFit
End With
End Sub
Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
Set Refs = .VBProject.References
For Each Ref In Refs
If Ref.IsBroken Then
Refs.Remove Ref
End If
Next
'Bibliothèque : Microsoft Windows Common Controls 6.0(sp6)
.VBProject.References.AddFromGuid _
"{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}", 2, 0
'Microsoft Forms 2.0 Object Library
.VBProject.References.AddFromGuid _
"{0D452EE1-E08F-101A-852E-02608C4D0BB4}", 2, 0
'Microsoft ActiveX Data Objects 2.8 Library
.VBProject.References.AddFromGuid _
"{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8
'Microsoft ActiveX Data Objects Recordset 2.8 Library
.VBProject.References.AddFromGuid _
"{00000300-0000-0010-8000-00AA006D2EA4}", 2, 8
'Microsoft Word 14.0 Object Library
.VBProject.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 4
'Microsoft Outlook 14.0 Object Library
.VBProject.References.AddFromGuid _
"{00062FFF-0000-0000-C000-000000000046}", 9, 3
End With
End Sub