Discussion :

[amandon]

Bonjour à tous,

Dans le code ci dessous dans sub importer j’incrémente un liste dans un userform formulaire puis dans le code enregistrer je veux que pour chaque fichier de la liste de fichier précédemment importer s'applique le sub lecture

cela marche très bien mais arriver au dernier fichier de la liste la ou la variable "fichierchoisi" est Null ca me met un code erreur 94 utilisation incorrecte du null j'ai l'impression que la boucle ne se fini pas . je pense qu'il faut peut-être une fonction if mais je ne sais pas comment la formalisé.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Dim ligne_debut As Integer, colonne_debut As Integer
Dim ligne_fin As Integer, colonne_fin As Integer
Dim ligne_enCours As Integer, colonne_enCours As Integer
Dim bookname As Variant, classeursource As Workbook
Dim fichiersource As Variant, fichierchoisi As Variant
 
 
Private Sub enregistrer_Click()
Dim i As Integer
ligne_debut = 2: colonne_fin = 1
ligne_enCours = ligne_debut: colonne_enCours = colonne_debut
 
Worksheets("Couverture").Range("A2:O119").Clear
 
 For Each fichierchoisi In liste_fichier.List
 
lecture liste_fichier.List(i)
 
    Next fichierchoisi
End Sub
 
Private Sub fermer_Click()
formulaire.Hide
End Sub
 
Private Sub importer_Click()
 
fichierchoisi = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls", , "Séléctionner un fichier Excel")
 
If (LCase(fichierchoisi) <> "faux" And fichierchoisi <> "0") Then
    liste_fichier.AddItem (fichierchoisi)
End If
End Sub
 
Private Sub lecture(fichier As String)
 
Dim classeursource As Workbook
Dim NomClasseurDestination  As String
Dim FileExtStr As String
    FileExtStr = ".xlsx"
NomClasseurOrigine = ThisWorkbook.Name
chemincourant = ActiveWorkbook.Path & "\"
 
Set classeursource = Application.Workbooks.Open(fichierchoisi)
With ActiveSheet.Range("A1:O200").Copy
ThisWorkbook.Activate
ThisWorkbook.Sheets("Couverture").Range("A1").PasteSpecial
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 
If Workbooks.Count = 2 Then
For i = 1 To 2
If Workbooks(i).Name <> ThisWorkbook.Name Then fichiersource = Workbooks(i).Name
bookname = Left(Right(fichiersource, Len(fichiersource) - 0), 13)
Next i
Workbooks(fichiersource).Close savechanges:=False
End If
ActiveWorkbook.SaveCopyAs chemincourant & (bookname) & FileExtStr
 
End With
End Sub

[révèr]

Bonjour amandon,

Afin de repérer à quel niveau se situe l'erreur, je te conseille de créer une variable numérique que tu incrémentes de 1 à chaque boucle. En comparant avec le nombre d'éléments composant ta liste tu devrais pouvoir repérer d'où vient l'erreur, ou bien d'utiliser Debug.Print, qui pourrait être mieux je pense.

L'important c'est de savoir avec exactitude où se situe ton erreur, et non pas un "je pense...". Ca m'est arrivé de penser que l'erreur se situait sur la ligne en question, alors qu'en réalité elle se situait au-dessus suite à un appel hasardeux.

Par ailleurs, j'ai utilisé parfois la manipulation d'erreur :

Code :

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

1
2
3
4
5
6
7
8
On Error GoTo errorhandler
'Code générateur d'erreur
errorhandler:
If Err.Number = "Ton_Numéro_d'Erreur" Then
   'Quoi faire en cas d'erreur
Else
   'Continue normalement
End If