Problème fermeture de fichier

Ken Hutchinson · 5 Novembre 2007

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 · 5 Novembre 2007

Re : Problème fermeture de fichier

Bonjour Ken

essaye peut être comme ceci :

Code:

Workbooks("MonFichier").Close

bonne journée
@+

Pierrot93 · 5 Novembre 2007

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 · 5 Novembre 2007

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"

Pierrot93 · 5 Novembre 2007

Re : Problème fermeture de fichier

Re

regarde mon post de 8h46...celui la doit fonctionner

Ken Hutchinson · 5 Novembre 2007

Re : Problème fermeture de fichier

OUPS !!! j'ai édité mon message entre temps... je tente ton nouveau code.

Problème fermeture de fichier

Ken Hutchinson

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Ken Hutchinson

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Ken Hutchinson

XLDnaute Occasionnel

Discussions similaires