Fermer un fichier par VBA

Version imprimable

Bonjour à tous,

J'ai un problème pour fermer un fichier .xlsx sous VBA, voici comment est initialisé le programme :

Code:

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
Private Sub MaSub()
 
 Dim xlPath As String 'xlPath : chemin du fichier Excel
 Dim wsName As String 'wsName : nom de la feuille Excel qui contient les données à importer
 
 xlPath = "\Chemin...xlsx"
 wsName = "Feuil1"
 
   'déclaration des variables
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
 
    'initialisation des variables
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
 
    Dim i As Integer, SQL As String
    i = 1
 
    'pour éviter les messages lors de l'ajout des enregistrements
    DoCmd.SetWarnings False
 
    With wks        
                 'Traitement des données
    End With
 
    'on réactive les messages d'erreurs
    DoCmd.SetWarnings True
 
    'libération variables
    Set wks = Nothing
    Set wkb = Nothing
    Set app = Nothing
 
    MsgBox "Import du fichier Excel réussi.", vbInformation + vbOKOnly, "Opération terminée..."
    wkb.Close False
 
End Sub

J'ai une erreur sur mon avant dernière ligne, si j'enlève cette ligne je n'ai aucun soucis et le code fonctionne, quand j'intègre cette ligne pour fermer le fichier excel mis en jeu, j'ai une erreur : Varaible du bloc With Non Definie. Comment palier à ce problème en sachant qu'elle en fait pas partie du bloc With.

Merci à tous pour vos suggestions

BH

03/07/2014, 11h36
Marc-L

Bonjour,

tout à fait normal vu la ligne n°34 ‼ :lol:
03/07/2014, 11h43
benoaa

Ok, en fait, voilà mon soucis initial, après avoir traiter le fichier Excel, je ne peux ni l'ouvrir, ni le supprimer. Je pensais qu'en fermant le fichier dans le programme, cela résolurait le problème mais il n'en n'est rien. Auriez-vous déjà rencontrer ce problème ?

Clt,

B
03/07/2014, 12h04
Marc-L

Question à poser sur le forum de l'application car ce programme n'est pas dans Excel ! …

Bonjour,test ça

Code:

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
Private Sub MaSub()
 
 Dim xlPath As String 'xlPath : chemin du fichier Excel
 Dim wsName As String 'wsName : nom de la feuille Excel qui contient les données à importer
 
 xlPath = "\Chemin...xlsx"
 wsName = "Feuil1"
 
   'déclaration des variables
    Dim app As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
 
    'initialisation des variables
    Set app = New Excel.Application
    Set wkb = app.Workbooks.Open(xlPath)
    Set wks = wkb.Worksheets(wsName)
 
    Dim i As Integer, SQL As String
    i = 1
 
    'pour éviter les messages lors de l'ajout des enregistrements
    DoCmd.SetWarnings False
 
    With wks
                 'Traitement des données
    End With
 'Si tu veux sauvegarder le fichier
 'wkb.Save
 'on ferme le fichier sans le sauvegarder
 wkb.Close False
 app.Quit
    'on réactive les messages d'erreurs
    DoCmd.SetWarnings True
 
    'libération variables pas à faire avant la fin du traitement {wkb.Save, wkb.Close False, app.Quit}
    Set wks = Nothing
    Set wkb = Nothing
    Set app = Nothing
 
    MsgBox "Import du fichier Excel réussi.", vbInformation + vbOKOnly, "Opération terminée..."
End Sub

03/07/2014, 13h09
benoaa

Malheuresement, j'ai une erreur 424 : Objet requis avec ce bloc de code supplémentaire (en ayant supprimé la libération des variables)
03/07/2014, 13h23
Invité

oui j'avais pas fait attention, mais en même temps DoCmd est une instruction Access!
03/07/2014, 14h01
benoaa

Oui et du coup comment puis je procéder?

Cdl,

B
03/07/2014, 14h06
Invité

il faut identifier les erreurs dans ton code!
dans la mesure du possible je n’inhibe pas les message d'erreur {On Error Resume Next}
03/07/2014, 14h13
benoaa

N'y aurait-il pas une référence à intégrer dans OUTILS > Références
J'ai sélectionné :

Visual Basic For Applications
Microsoft Access 14.0 Object Library
Microsoft Office 14.0 Access database engine Object
Microsoft Excel 14.0 Object Library
03/07/2014, 14h23
Invité

si mais tu utilises Access? et en plus tu l'utilise dans Excel vba
03/07/2014, 14h24
benoaa

C'est bon j'ai trouvé !! merci beaucoup pour vos réponses.