Discussion :

[benoaa]

Bonjour à tous,

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

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
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

[Marc-L]

Bonjour,

tout à fait normal vu la ligne n°34 ‼

[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

[Marc-L]

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

[Invité]

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
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

[benoaa]

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

[Invité]

oui j'avais pas fait attention, mais en même temps DoCmd est une instruction Access!

[benoaa]

Oui et du coup comment puis je procéder?

Cdl,

B

[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}

[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

[Invité]

si mais tu utilises Access? et en plus tu l'utilise dans Excel vba

[benoaa]

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