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

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

@+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 899
Membres
101 834
dernier inscrit
Jeremy06510