1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Sub FonctionPrincipale(Numbaie As String, DAnalyse As String, CheminImages As String)
Dim tableauGraphic() As String
Dim numero As Integer
tableauGraphic = GenererTableauGraphe()
For numero = 1 To 8
OkImage = VerifImage(tableauGraphic(numero, 0), Numbaie, DAnalyse, CheminImages)
OkBaie = VerifBaie(Numbaie, DAnalyse, CheminImages)
Recherche TypeAnalyse:=tableauGraphic(numero, 0)
If OkImage = 1 Then
InsertionImage TypeAnalyse:=tableauGraphic(numero, 0), Numdelabaie:=Numbaie, DateAnal:=DAnalyse, cheminFichiers:=CheminImages
Else
If OkBaie = 1 Then
InsertionTexte Numdelabaie:=Numbaie, TypeAnalyse:=tableauGraphic(numero, 0)
Else
MsgBox "Aucun fichier images n'a été trouvé, soit l'analyse n'a pas été lancée soit il y a erreur dans le remplisage des champs"
End If
End If
Next numero
End Sub |
Partager