Excel

Mettre dans les déclarations du module (ou de la feuille en tant que Dim)
Global MonAppWorld As Excel.Application
Global MonWbWorld As Excel.Workbook
Global MesFeuillesXls(1 To 20) As String

Ouvrir Excel:
Sub XlsSetup()
   Dim MaXlsFeuille As Excel.Worksheet
    On Error Resume Next ‘ignore errors
    Set MonAppWorld = GetObject(, « Excel.Application ») ‘rechercher une copie d’Excel en cours
    If Err Then ‘Si Excel n’est pas en cours
        Err.Clear
        Set MonAppWorld = CreateObject(« Excel.Application ») ‘le lancer
        If Err Then MsgBox « Erreur XlsSetup, CreateObject ‘Excel.application’   » & Error$
    End If    

    Err.Clear   ‘ Effacer l’objet Err en cas d’erreur.
    Set MonWbWorld = MonAppWorld.Workbooks.Open(MonFicXls)
    If Err Then MsgBox  » Erreur XlsSetup, Open  » & MonFicXls &  »    » & Error$    

    Err.Clear
    ‘ Parcourt la collection de feuilles et ajoute
    ‘ le nom de chaque feuille dans la liste déroulante.
    For Each MaXlsFeuille In MonWbWorld.Sheets
        Ii = Ii + 1
        MesFeuillesXls(Ii) = MaXlsFeuille.Name
    Next MaXlsFeuille
    On Error GoTo 0
    Set MaXlsFeuille = Nothing
End Sub

Faire le traitement:
Sub RécupèreProdDuJour(ByVal MaDate As String, MaMachine As String)
    Dim MaXlsFeuille As Excel.Worksheet
    Dim MonXlsChamp As Excel.Range
    Dim MaLigne As Integer                  ‘Ligne de Excel dans laquelle on écrit
    Dim MaColonne As Integer                ‘Colonne de Excel dans laquelle on écrit
    Dim NbJours As Integer, TmpMois As String

    MaDate = Left$(MaDate, 2)    

    If MonAppWorld Is Nothing Then XlsSetup

    ‘————————————————————————————————————-
    Err.clear: On Error Resume Next
    Set MaXlsFeuille = MonWbWorld.Sheets(MaMachine)
    If Err Then MsgBox « Erreur dans SauveSurExcel, Set MaXlsFeuille    » & Error$
    On Error GoTo 0    

    Set MonXlsChamp = MaXlsFeuille.Rows(1)    

    ‘Recherche de la colonne Excel qui nous interesse (en fonction de la date à lire)
    MaColonne = 0
    Dim MaCase
    For j = 3 To 33
        Tmp = MonXlsChamp.Cells(4, j)
        If Right$(Format$(Tmp, « 00 »), 2) = MaDate Then
            MaColonne = j
            For MaLigne = 5 To 50
                If MonXlsChamp.Cells(MaLigne, 1) = «  » Then Exit For
                If Val(MonXlsChamp.Cells(MaLigne, MaColonne)) > 0 Then
                    macouleur = MonXlsChamp.Cells(MaLigne, MaColonne).Interior.Color
                End If
            Next MaLigne
            Exit For
        End If
    Next j    

    ‘————————————————————————————————————-
    ‘ Nettoie.
    Set MaXlsFeuille = Nothing
    Set MonXlsChamp = Nothing
End Sub

Fermer Excel:
Sub XlsClose()
    ‘ Ceci doit forcer un déchargement de Microsoft Excel,
    ‘ à conditon qu’aucune autre application ou aucun autre utilisateur ne l’ait chargé.
    Err.Clear: On Error Resume Next
    MonWbWorld.Close True
    Set MonWbWorld = Nothing
    Set MonAppWorld = Nothing
    On Error GoTo 0
End Sub