Discussion :

[_Drama]

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.

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

l'erreru se déclanche au niveau du 2eme "Worksheets(1).Activate" et le débug ne veut passer aucune instruction.
Mon premier fichier est donc bien traité. Le second s'ouvre mais ne veut rien entendre...


Merci par avance.

Drama

[Tofalu]

Bonjour,

Pourquoi travailler avec la sélection (Select ?)
Pourquoi ouvrir deux fois un objet Excel.Application ?
Les objets ne sont pas fermé ni détruits

[_Drama]

Alors pour l'utilisation de select, je ne vois manière plus simple pour selectionner puis supprimer des colonnes.

Pour la création en double, je veux après la fermeture du premier classeur, réinitialiser les variables pour traiter le second classeur.

[_Drama]

Bonjour,

Pourquoi travailler avec la sélection (Select ?)
Pourquoi ouvrir deux fois un objet Excel.Application ?
Les objets ne sont pas fermé ni détruits

Alors en effet supprimer le doublon objet Excel.Application me permet de traiter les deux fichiers.

Cependant, cette erreur est souvent récurrente lorsque je lance ce genre de traitements via access. Dans la plupart des cas, je dois fermer le fichier excel puis lancer à nouveau l'execution pour qu'elle ne se mette pas en debug.

Est-ce causé par l'utilisation de la méthode Select?