Re : gros probleme avec Application.DisplayAlerts le programme revient au début du code ??
bonjour,
merci de répondre.
donc je viens d'essayé avec Application.DisplayAlerts = false
puis Application.DisplayAlerts = true à la fin de mon code.
le retour se fait encore mais je viens de remarqué l'endroit ou il vient se repositionné, c'est en fait une étiquette appelée " fin7:"
voici un exemple de mon code.
Workbooks.Open filename:="" & lienfichierX & ".xls"
'recherche date d'ouverture,
j = 12
Do While Cells(6, j).Value <> date_ouverture
On Error GoTo fin7:
j = j + 1
Loop
'date ouverture
Cells(i, 10) = date_ouverture
'on place
Cells(i, 5).Value = "A déterminer"
Cells(i, j).Value = "ORi"
Cells(i, j + 5).Value = "P"
Cells(i, j + 10).Value = "Coco"
Cells(i, j + 15).Value = "tata"
'le type d'incident
If type_incident = "X km" Then Cells(i, 1) = "R"
If type_incident = "Log" Then Cells(i, 1) = "L"
If type_incident = "G" Then Cells(i, 1) = "RG"
fin7:
'on ferme le fichier en sauvegardant
ActiveWorkbook.SaveAs filename:= _
"" & lienfichierX & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close
Workbooks.Open filename:="" & lienfichierZ & ".xls"
ici on fait des opérations sur le fichier Z
MkDir "" & rep & client & "\Réclamations\" & annee & "\0" & n_Rec & " - " & inc
ActiveWorkbook.SaveAs filename:= _
"" & lienfichierZ & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
'la ou est le bug et revient à la ligne fin7:
ActiveWindow.Close
Merci pour votre aide