Discussion :

[Methodrone8]

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

[EngueEngue]

Les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On error goto Solution
'--
Solution:
'--

Devrait marcher

Mais fais plutôt un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Dir("C:\toto.pro") = "" Then 
'--
Else
'--
End if

[Methodrone8]

oui c'est ce que j'ai essayé en disant "errorhandler" mais je dois mal les placer dans le programme, et surtout je ne sais pas trop quoi mettre dans "solution",

[EngueEngue]

suffira de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = i+1

...

[Methodrone8]

solution trouvée en mettant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
solution:
   i = i + 1
   product = classeurrecup.Sheets(1).Cells(i, 2).Value
   Resume

mais maintenant j'ai droit a une nouvelle erreur:

"Dépassement de capacité" et le i=i+1 est surligné lors du débogage

[EngueEngue]

Bah normal, i est un integer donc va jusqua 32767, or a un moment dans ta colonne il y a des cases vides.. il va chercher des fichiers dont le nom est vide.. et il continue ainsi.

Mets une condition if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
solution:
  product = classeurrecup.Sheets(1).Cells(i+1, 2).Value
if product <>"" then
   i = i + 1
end if
   Resume