Problème fermeture de fichier

Ken Hutchinson

XLDnaute Occasionnel
Bonjour les amis d'Excel !!!

Voilà un petit code avec lequel j'ai un problème. C'est un bouton qui permet d'aller chercher un fichier à passer dans la macro. Le contenu de la feuil1 est copié et collé dans la macro. puis le fichier copié est fermé... et ça ne marche pas... pourtant j'avais bon espoir.

Code:
Private Sub CommandButton1_Click()
    
  Dim MonFichier As String

  
    MonFichier = Application.GetOpenFilename
 
    
    
    
      
    If MonFichier = "Faux" Then
      MsgBox ("Vous n'avez pas choisi de fichier")
      Exit Sub
    Else
      Workbooks.Open MonFichier
    
    End If
    
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Windows("Macro v3.xls").Activate
    Cells.Select
    ActiveSheet.Paste
    Workbooks.Close MonFichier


End Sub
et ça plante sur
Code:
Workbooks.Close MonFichier
Merci de votre aide !!
 

Pierrot93

XLDnaute Barbatruc
Re : Problème fermeture de fichier

Bonjour Ken

essaye peut être comme ceci :

Code:
Workbooks("MonFichier").Close
bonne journée
@+
 

Pierrot93

XLDnaute Barbatruc
Re : Problème fermeture de fichier

Re

aarf, ca peut pas marcher bien sur...

essaye plutot comme ca :

Code:
Dim w As Workbook
MonFichier = Application.GetOpenFilename
    If MonFichier = "Faux" Then
      MsgBox ("Vous n'avez pas choisi de fichier")
      Exit Sub
    Else
            Set w = Workbooks.Open(MonFichier)
    End If
Workbooks(w.Name).Close
@+
 

Ken Hutchinson

XLDnaute Occasionnel
Re : Problème fermeture de fichier

Merci Pierrot93 mais ça plante toujours... Tout le processus se déroule correctement jusqu'à la fermeture de ce maudit fichier...

"Erreur d'execution 9 : l'indice n'appartient pas à la sélection"
 

Discussions similaires


Haut Bas