Discussion :

[Lardon]

Bonjours à tous,

Dans un classeur Excel, j'ai ajouté un bouton de commande qui doit permettre :
1 - de choisir un autre fichier excel,
2 - de l'ouvrir,
3 - de copier les infos qui m'interresse
4 - de les placer dans mon fichier excel,
5 - et fermer le fichier.

Je n'arrive pas à trouver la solution pour ouvrir une fenêtre, choisir mon fichier et l'ouvrir. Les solutions sur internet, que j'ai trouvées, montrent du code où on connait le nom du fichier. Ce qui n'est pas mon cas, je voudrais pouvoir le selectionner.

Bref, au secours !

Merci d'avance

[mnarchi]

Bonjour,
voici un exemple en utilisant la méthode GetOpenFileName

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Ouvre()
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
    Workbooks.Open Filename:=Nom_Fichier
End If
 
End Sub

Bon courage

[Lardon]

Merci beaucoup pour cette solution !
Ca fonctionne parfaitement !

Par contre, pour fermer la fenêtre, je n'y arrive pas j'ai essayé un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Windows("Nom_Fichier").Activate
ActiveWorkbook.Close

Comment faire ?

[mnarchi]

bonjour,

Nom_Fichier étant une variable, il ne faut pas l'écrire entre guillemets. La syntaxe doit être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Windows(Nom_Fichier).Activate
ActiveWorkbook.Close

bon courage

[Lardon]

Cela ne fonctionne pas, j'obtiens l'erreur : "Indice en dehors de la plage (erreur 9)".
Cela doit etre un problème avec ma variable. Elle est définie en Variant.

[EvaristeGaloisBis]

Ce n'est jamais bon de communiquer avec un Workbook comme ça(avec des workbook.activate, Activeworkbook, activeSheet etc..) car si le process dure un peu et que l'utilisateur click que un fichier excel, ça vire au cauchemar pour lui.
Crée plutot un objet qui t'ouvrira les portes de toutes les méthodes et propriétés de l'objet!

Essaie un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Ouvre()
dim wbMyWb as workbook
dim Nom_Fichier as variant
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
If Nom_Fichier <> False Then
   set wbMyWb= Workbooks.Open(Nom_Fichier)
  wbmyWb.Activate
End If
 
End Sub