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
Partager