Discussion :

[jérémy pro]

Bonjour,

Je voudrais en cliquant sur un bouton (en partant d'un dossier Excel où se situe ce bouton bien sur) pouvoir ouvrir l'explorateur de fichiers puis de sélectionner mon fichier Excel et de se ficher de pouvoir sélectionner une feuille (car elle varie en fonction du classeur que j'aurai sélectionné) de ce classeur de la copier et de la coller sur le classeur de base mais sur la feuil2 (là ou il y le bouton).

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
25
Sub copier()
 
 Dim MonDossier As String
 Dim wk As Variant
 Dim i As Integer
  i = 1
 
 If Len(Dir(MonDossier, vbDirectory)) > 0 Then 'vérifie si le Dossier existe
 
      Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMinimizedNoFocus
 
 End If
 
     Set wk = Workbooks.Open(a)  'cette ligne m'affiche un message d'erreur (Désolé... Nous ne trouvon pas. Peut-être l'avez-vous déplacé, renommé ou supprimé ?)
 
     MonDossier = Worksheets(i).Name
     Sheets(MonDossier).Copy after:=Workbooks(FichierActuel).Sheets(2)
     wk.Close SaveChanges:=False
 
     Workbooks(FichierActuel).Activate
     Worksheets("Vente").Activate
     Range("A1").Select
     Selection.EntireColumn.Insert
 
End Sub

[Jean-Philippe André]

bonjour,

pour ouvrir l'explorateur et récupérer le chemin du classeur sélectionné (comportement du menu Fichier/Ouvrir), tu peux utiliser la fonction

Code :

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

Application.GetOpenFileName()

[mfoxy]

Hello,

Fait en vitesse, mais devrais te convenir, à coller dans un nouveau Module, et a testé sur une copie de ton fichier.

1) Lancer OpenWB() t'ouvrira une boite de dialogue te permettant de choisir ton workbook dans le quel la page cible se trouve.
2) Dans le Wb cible choisir ta feuille à "importer"
3) Lancer la macro CopyActiveSheet2Wb() , après le paramétrage de la feuille et range de destination.

Bàt,

Mfoxy

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
Public wbSource As Workbook
Public wbActive As Workbook
 
Sub OpenWB()
 
 Dim fd As Office.FileDialog
 Dim sChemin As String
 Dim sWbSource As String
 Dim sh As Worksheet
 
 
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    With fd
        .Filters.Clear
        .Title = "Select a Excel File"
        .AllowMultiSelect = False
 
        If .Show = True Then
            sChemin = .SelectedItems(1)           ' Récup le path.
            sWbSource = Dir(.SelectedItems(1))    ' Récup file name.
        End If
    End With
 
    Workbooks.Open Filename:=sChemin ' Open Selected Excel File
 
    Set wbActive = ThisWorkbook
    Set wbSource = Workbooks(sWbSource)
 
  Set fd = Nothing
 
End Sub
 
Sub CopyActiveSheet2Wb()
 
 Dim shExport As Worksheet
 Dim rExport As Range
 
  Set shExport = wbActive.Worksheets("Sheet1") ' A modifier "Sheet1" par le nom de la feuille d'export
  Set rExport = shExport.Range("A1")           ' A modifier "A1" par la cellue de destination
 
    wbSource.ActiveSheet.Cells.Copy Destination:=rExport
    wbSource.Close False
 
 Set wbActive = Nothing:   Set wbSource = Nothing
 Set shExport = Nothing:   Set rExport = Nothing
 
End Sub

[Dayzindes]

Bonjour,

Votre code m'intéresse fortement
J'ai testé et essayé de comprendre
Mais étant débutant, comme le mot le dit je bute rapidement.
lors de l'exécution de la première macro tout va bien.
Mais lors du lancement de la deuxième macro pour exécuter la copie j'ai un message d'erreur m'indiquant : L'indice ne correspond pas à la sélection
J'ai essayé de sélectionner les cellules dans le fichier qui s'ouvre, avant de lancer la seconde macro mais pas mieux.
Pouvez vous m'éclairer

Merci d'avance.