Bonjour à tous
j'ai fait un petit programme qui ouvre les sorties d'un des logiciels sur lesquels je travaille et les convertis automatiquement.
Cependant j'aimerais un peu l'améliorer pour en gros:
"Si le classeur n'existe pas, on passe a la ligne suivante (la ligne contient le nom du classeur suivant) . J'ai testé avec les on error go to error handler mais ca ne marche pas

voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub recup_output()
Dim i As Integer, j As Integer, length As Integer
Dim workspace As Variant, temp As Variant
Dim product As String
Dim classeurtemp As Workbook, classeurrecup As Workbook
 
Set classeurrecup = ActiveWorkbook
workspace = Cells(1, 2).Value
 
'recupération longueur liste
i = 2
While Cells(i, 2).Value <> ""
length = i + 1
i = i + 1
Wend
 
'ouverture de la liste , conversion et copie des valeurs
 
For i = 2 To length - 1
 
 
    product = classeurrecup.Sheets(1).Cells(i, 2).Value
    Set classeurtemp = Workbooks.Open(Filename:=workspace & "\" & product & ".pro")
 
 
    classeurtemp.Sheets(1).Range("A1:A65000").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers _
    :=True
 
    classeurtemp.Sheets(1).Copy After:=classeurrecup.Sheets(i - 1)
 
    classeurtemp.Saved = True
    classeurtemp.Close
    Selection.Delete
 
   Next i
 
 
 
   Sheets(1).Activate
End Sub
merci par avance pour votre aide!
Guillaume