Fonctionnement général d'un code VBA...

Bonjour Pijaku,

Je pourrais le mettre mais il fait 1700 lignes... J'en mets juste une partie mais je ne pense pas que ça ait de l'importance pour ma question

Option Explicit
Const VersionLogiciel = "2.02 du 28/02/2007"
Global glocal
Global NoBloc As String
Global Chemin_Atr As String
Global chemin As String
Global Commande_Atr As String
Global Fichier_Tol_Atr As String
Global classeur_atr As String '= "PVAI_ACG.XLS"
Global classeur_pvc As String '= "PVC_ACG.XLS"
'Const fp = "Poutre_umi.xls"
Global fp As String
Global FichRes As String
Global Fichier
Global titre As Integer
Global freqx As Single
Global freqy As Single
Global freqz As Single
Global tabmes(1000, 100) As Double
Global FEG(3) As Double
Global FEA(3) As Double
Global VersionBanc As String

Declare Function htonl Lib "ws2_32.dll" (ByVal l As Long) As Long
Declare Function htons Lib "ws2_32.dll" (ByVal l As Integer) As Integer


Public Sub DEB00()
Dim FichErr As String
Dim i As Integer
Dim rep As Integer
Dim s1 As String
Dim s2 As String
Dim FichierVersion As String

On Error Resume Next
fp = ActiveWorkbook.Name
Windows(fp).Activate
Application.Cursor = xlWait
Application.Cursor = xlDefault
Application.ScreenUpdating = False
chemin = Range("chemin").Value
Chemin_Atr = Range("chemin").Value + "\RECETTE\PVAI"
Commande_Atr = Range("Commande").Value
classeur_atr = Range("classeur_atr").Value
classeur_pvc = Range("classeur_pvc").Value
NoBloc = Range("NoBloc").Value
FEG(1) = Range("Param!FEG1").Value
FEG(2) = Range("Param!FEG2").Value
FEG(3) = Range("Param!FEG3").Value
FEA(1) = Range("Param!FEA1").Value
FEA(2) = Range("Param!FEA2").Value
FEA(3) = Range("Param!FEA3").Value

'ouverture des fichiers PVAI et PVC vierges
Workbooks.Open Filename:="D:\MMT_V01\" & classeur_atr
Workbooks.Open Filename:="D:\MMT_V01\" & classeur_pvc


MkDir Chemin_Atr
FichRes = Chemin_Atr + "\Res_Rec_" + NoBloc + ".INI"
Open FichRes For Binary As 1
Close 1
Kill FichRes
rep = EcritIni("RESULTATS", "SerialNumber", Strings.Format$(div_val(NoBloc)), FichRes)
titre = 1
Windows(fp).Activate
info "traitement fichier Compo"
Fichier = chemin + "\Recette\" + Range("Compo").Value
FichierCompo
'Modif 03/07/2013 lecture des données Histo_Fugas et CFG FUGAS
Windows(fp).Activate
Fichier = chemin + "\Init\" + Range("HISTO_FUGAS").Value
Histo_Fugas
Windows(fp).Activate
Fichier = chemin + "\Calibration\" + Range("HISTO_FUGAS").Value
Histo_Fugas


Windows(fp).Activate
Fichier = chemin + "\Init\" + Range("Config_FUGAS").Value
CFG_Fugas
Windows(fp).Activate
Fichier = chemin + "\Calibration\" + Range("Config_FUGAS").Value
CFG_Fugas

et plus loin toutes les sous routines/fonctions :

Sub nomCellules()

Dim i As Integer
Dim nom As String
For i = 1 To 54
nom = Cells(1, i).Value
Cells(1, i).Name = nom
Next i

End Sub

Public Sub RenseigneResultats_atr()
Windows(classeur_atr).Activate
Sheets("NomCell").Activate
nb_val = Application.CountA(Sheets("NomCell").Range("A:A"))
MsgBox "nb_val = " & nb_val
ReDim tableau(nb_val) As String
For i = 1 To nb_val
    tableau(i) = Cells(i, 1).Value
Next i

Sheets("Données").Activate
fichCalib = Chemin_Atr & "\CALIB_" & NoBloc & ".ini"
fichRecette = Chemin_Atr & "\RECETTE_" & NoBloc & ".ini"
fichCalpente = Chemin_Atr & "\CALPENTE_" & NoBloc & ".ini"

Dim t As String * 255
For i = 1 To nb_val
    valeur = tableau(i)
    r = LitIni("RESULTATS", valeur, "RIEN", t, 255, fichCalib)
    res = DIV_Rtrim(t)
    If res = "RIEN" Then
        r = LitIni("RESULTATS", valeur, "RIEN", t, 255, fichRecette)
        res = DIV_Rtrim(t)
    End If
    If res = "RIEN" Then
       r = LitIni("RESULTATS", valeur, "RIEN", t, 255, fichCalpente)
       res = DIV_Rtrim(t)
    End If
        
        If res <> "RIEN" Then
            Range(valeur).Value = res
        End If
    
Next i

End Sub

et plein d'autres fonctions ensuite...

Oui en fait je me suis dit que j'ai pas besoin de tout mettre étant donné que je cherche juste à savoir si tout est lu ou non. J'ai saisi le fonctionnement de la macro (ce qu'elle fait) ce n'est pas vraiment mon plus gros problème même si j'ai mis du temps à la comprendre !

Il y a en réalité deux autres modules où sont déclarées ou implémentées d'autres fonctions... EcritIni est par exemple déclarée dans un de ces modules via un alias (WritePrivateProfileStringA) [je ne dois pas employer le bon vocabulaire mais ça doit rester compréhensible]

Bref ! En tout cas je crois que tu as répondu à ma question en me disant que la Sub "Deb00" semble être la procédure principale.

Une question demeure :
J'ai une routine "nomCellules" nommant donc des cellules, qui n'est jamais appelée dans "Deb00". Est ce que cette routine sera exécutée ? J'aurais tendance à dire non mais je ne sais pas vraiment...

Ca marche, merci pour tes réponses pikaju !

J'ai également posté une autre question concernant la compatibilité entre Excel 2003 et 2010, si jamais tu tombes dessus ^_^