Utilisation incorrect de Null

Posts
1
Registration date
Tuesday November 12, 2019
Status
Member
Last seen
November 20, 2019
-
Salut !!
J'arrive pas a résoudre cette erreur Utilisation incorrecte de Null merci de m'aider svp
For i = 2 To nbligne
            With fichierSource
                jourLivraison2 = .RecupCellule(Feuil1, "N" & i)
                jourLivraison2 = Replace(jourLivraison2, "'", "''")

                'titre
                For L = 1 To 1
                     .EcrireCellule Feuil1, "S" & L, "TYPE_JOURS"
                     fichierSource.ChangeColorFond Feuil1, "S" & L, 116, 208, 241
                     .EcrireCellule Feuil1, "S" & L, "JOURS"
                     fichierSource.ChangeColorFond Feuil1, "T" & L, 116, 208, 241
                Next L
                
                querySelect1 = ""
                querySelect1 = querySelect1 & " Select Date_prochaine_liv "
                querySelect1 = querySelect1 & " From T_BASE_PLANNING_FERIE"
                querySelect1 = querySelect1 & " WHERE Date_prochaine_liv = '" & jourLivraison & "'"
                
                Donnees_Date() = bao.ExecQuerySelect(querySelect1, 1)
                
                Debug.Print querySelect1
                Debug.Print Donnees_Date(1)
   
                If (Donnees_Date(1) = jourLivraison2) Then
                    .EcrireCellule Feuil1, "S" & i, "Férié"
                    .EcrireCellule Feuil1, "T" & i, jourLivraison
                Else
                    .EcrireCellule Feuil1, "S" & i, "Ouvrable"
                End If
            End With
            Progres47.Value = ProgressBar + 1
          Next i
See more 

1 reply

Posts
7290
Registration date
Friday October 30, 2015
Status
Contributor
Last seen
December 8, 2019
358
0
Thank you
Hi,

Your question was posted on our English forum. You can repost your question on the French forum using this link.

Thanks.
Respond to HelpiOS