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

[Lardon]

Ca marche !

Merci beaucoup

edit : J'ai crié victoire trop vite, lorsque je clique sur "annuler" ca bug. j'ai cette erreur là : "Variable objet ou variable bloc With non définie (erreur 91)".

[EvaristeGaloisBis]

je ne reproduis pas l'erreur chez moi avec ce morceau de code. Vois si tu n'utilises pas le wbMyWb plus loin dans ton code ou fait nous parvenir tout ton code avec l'endroit où il bugue.

[Lardon]

C'est bon ! C'est moi qui fesait une erreur.
Merci beaucoup, le problème est résolu.

[michou66]

Bonjour Lardon,



Aurais-tu encore ton document ?

En effet, je dois réaliser quasiment le même document que toi, mais je bloque sur la partie 4/ de ton document.

Pour le moment, j'arrive uniquement à fermer la page recherché et ouverte , or si le document excel ce ferme je ne peux plus coller les informations que j'ai décidé de coller précedemment...

Je n'arrive aussi pas à coller l'information, mais chaque problèmes en son temps...

Merci d'avance pour ton aide.

Cordialement,

Michel


PS : Je n'ai que 9 ans de retard^^

[Flopai]

Bonjour Michou66,

En effet, je dois réaliser quasiment le même document que toi, mais je bloque sur la partie 4/ de ton document.
Pour le moment, j'arrive uniquement à fermer la page recherché et ouverte , or si le document excel ce ferme je ne peux plus coller les informations que j'ai décidé de coller précedemment...

Je n'arrive aussi pas à coller l'information, mais chaque problèmes en son temps...

Tout d'abord, je préfère préciser les termes que j'utilise plus bas :
- Ficher de travail : fichier duquel est lancé la macro et ou tu vas importer tes données
- Fichier cible ou source : fichier dans lequel tu vas récupérer la donnée à copier et que tu iras ensuite coller dans le fichier "de travail"

De ce que je comprend de ton message, tu as trouvé comment fermer le classeur du fichier cible mais tu n'arrive pas coller les données du fichier cible => fichier de travail. Ai-je bien compris ?
Si tel est bien le cas, pourrais-tu, stp, nous donner des informations sur la structure de la zone de données à copier dans le classeur cible ?

• As-tu des entêtes dans la feuille du classeur cible?

- Si oui : ou se situent t-elles et souhaite tu les coller avec les données dans ton classeur de travail?

• La zone contenant les données à copier possède t-elle des cellules/colonnes/lignes VIDES avant la fin de la zone ?

• Le nombre de lignes ou colonnes de la zone à copier est-il de taille ou structure différentes lors de l'utilisation de ta macro?

• Y'a t-il des cas où ta zone cible ne contient pas de données ?

Ci-dessous un bout de code qui peut probablement s'appliquer à ton cas.
Je suis relativement novice en VBA, il y'a donc probablement de meilleurs moyen de le faire, mais là c'est tout ce que j'ai comme solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub MacroTestMichou()
 
Dim strDernCell As String
 
'Exemple de copie de donner du fichier source avec la macro se situant dans le Fichier de Travail
With Workbooks("Fichier Source.xlsm").Worksheets("Source2")
 
'Détermination de la dernière cellule de la plage de données
'Attention : fonctionne uniquement s'il n'y a pas de cellule vide dans la première colonne et la première ligne
strDernCell = .Range("A1").End(xlDown).End(xlToRight).Address
 
    .Range("A2", strDernCell).Copy
 
End With
 
ThisWorkbook.Worksheets("Travail").Range("A2").PasteSpecial (xlValue) 'Je pré-suppose que tu as les même entêtes que dans le fichier cible en ligne 1 et colle donc à partir de la ligne 2
 
 
Application.CutCopyMode = False 
 
 
End Sub

En espérant avoir pu t'aider.
Bien cordialement