Salut à tous, j'essaye de copier les valeurs d'une feuille ("Feuil1") d'un classeur ("Classeur 2.xlsm") que je sélectionne par une boîte de dialogue vers un autre classeur ("Classeur 1.xlsm") dans une feuille ("Feuil1") pour l'exemple. Le bouton d'importation étant dans le Classeur 1, c'est comme sa qu'Excel sait où copier les valeurs.
Voici mon code, malheureusement j'ai une erreur, mais je reste bloquée !
Sub SelectFichier()
Dim QuelFichier
QuelFichier = Application.GetOpenFilename("Excel, *.xlsm")
If QuelFichier <> False Then
Copie (QuelFichier)
Else
MsgBox "Vous n'avez pas sélectionné de fichier"
End If
End Sub
Sub Copie(QuelFichier)
Dim nomUn, NewBook As Workbook
Set nomUn = ThisWorkbook
Set NewBook = Workbooks.Open
NewBook.Activate
Sheets("Feuil1").Range("A1:Q27").Copy
nomUn.Activate
Worksheets("Feuil1").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
NewBook.Close False
End Sub
Cordialement