Bonjour à tous,
Je travaille actuellement sur une BDD access qui importe des fichiers excel sur des tables.
Avant ces importations j'ai rédigé quelques lignes de codes qui permettent de trier et supprimer des colonnes inutiles.
Je rencontre un problème d'éxecution lorsque je passe du traitement d'un classeur excel à un autre. En me renseignant sur cette erreur, je me suis rendu compte que c'etait un classique mais n'ai pas réussi à la contourner.
l'erreru se déclanche au niveau du 2eme "Worksheets(1).Activate" et le débug ne veut passer aucune instruction.
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97 Private Sub Commande1_Click() 'FAX 'Ouverture de l'application 'et Ouverture d 'un fichier Excel Dim i As Integer Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application 'et Ouverture d 'un fichier Excel Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open("C:\BOBBY\DO\2010 01\FDA_TROPIC_ExtrJan2010_FAX.xls") Set wbExcel = appExcel.ActiveWorkbook appExcel.Visible = True 'suppression des colonne Worksheets(1).Activate Sheets(1).Select Range("AU:AX").Select Selection.Delete Shift:=xlToLeft Range("AD:AS").Select Selection.Delete Shift:=xlToLeft Range("S:AB").Select Selection.Delete Shift:=xlToLeft Range("K:Q").Select Selection.Delete Shift:=xlToLeft Range("G:G").Select Selection.Delete Shift:=xlToLeft Range("C:E").Select Selection.Delete Shift:=xlToLeft Range("A:A").Select Selection.Delete Shift:=xlToLeft 'sauvegarde du fichier d'extraction sur le chemion souhaité ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\656893\Desktop\ExtractionFAX.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close ''''' ''''' 'SWIFT 'Ouverture de l'application 'et Ouverture d 'un fichier Excel Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open("C:\BOBBY\DO\2010 01\FDA_TROPIC_ExtrJan2010_SWIFT.xls") Set wbExcel = appExcel.ActiveWorkbook appExcel.Visible = True 'suppression des colonnes 'Sheets("suivi matériel").Select 'essaie ' ThisWorkbook.Worksheets("suivi matériel").Select wbExcel.Activate Worksheets(1).Activate Range("AU:AX").Select Selection.Delete Shift:=xlToLeft Range("AD:AS").Select Selection.Delete Shift:=xlToLeft Range("S:AB").Select Selection.Delete Shift:=xlToLeft Range("K:Q").Select Selection.Delete Shift:=xlToLeft Range("G:G").Select Selection.Delete Shift:=xlToLeft Range("C:E").Select Selection.Delete Shift:=xlToLeft Range("A:A").Select Selection.Delete Shift:=xlToLeft 'sauvegarde du fichier d'extraction sur le chemion souhaité ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\656893\Desktop\ExtractionSWIFT.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
Mon premier fichier est donc bien traité. Le second s'ouvre mais ne veut rien entendre...
Merci par avance.
Drama
Partager