Fermeture de fichier dans macro

Question

Bonjour,

   Je mets en place actuellement une macro pour faciliter le traitement de données : je dois copier les données de 5 fichiers dans un seul fichier excel. Pour cela j'ai créé une macro pour ouvrir les fichiers voulus et copier l'onglet dans mon fichier excel. Cependant je ne réussi pas à fermer le fichier de données ouvert. 
   Ci-joint ma macro, avec en vert un essai vain que j'avais fait pour fermer le fichier.

Sub Importation()
Dim MonFichier As Variant
'Dim bk1 As Variant
'Sélection du fichier à intégrer
MonFichier = Application.GetOpenFilename("Text Files (*.xls), *.xls")
If MonFichier <> False Then
    Workbooks.Open Filename:=MonFichier
    'copie de l'onglet dans le fichier
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy Before:=Workbooks("Fichier de traitement.xls").Sheets(1)
    ' fermeture du fichier après transfert des données dans le fichier "Fichier de traitement"
    'Set bk1 = Workbooks(MonFichier)
    'Workbooks(MonFichier).Close Savechanges:=False
    'Workbooks.Close Filename:=MonFichier
End If
End Sub

Merci d'avance pour votre aide,

cs_lermite222 · Answer

Bonjour,
essaye avec...
Workbooks(MonFichier).Close (False)
ou,
Workbooks(MonFichier).Close (Savechanges:=False)     'Savechanges n'est pas nécessaire

A+

Lukatha · Answer

Merci pour la réponse,

J'avais bien essayé avant, mais lorque j'essaye cela, cela me marque l'erreur suivante :
      Erreur d'execution '9'
      L'indice n'appartient pas à la sélection
Je comprends pas trop....

A+

Fermeture de fichier dans macro

2 réponses

Votre réponse

Discussions similaires