ça marche, sauf si on annule et qu'on sélectionne pas de fichier, j'ai bien le MsgBox mais j'ai aussi
Erreur d’exécution '1004' : Faux.xlsx introuvable [...]
Ah c'est bon, j'ai trouvé... je ne mettais pas mon code dans le if.
Super ! Merci pour votre aide, mais ce n'est que le début, j'ai plein d'autres demandes
Je met le code final pour que ça puisse aider d'autres personnes qui souhaitent :
importer toutes les lignes, sauf la 1ere, d'une feuille excel d'un fichier pour les ajouter à la suite des lignes existantes d'une feuille excel d'un autre fichier
Sub Import()
'
' Import
'
MonClasseurActif = ActiveWorkbook.Name 'memorise le classeur actif
Dim QuelFichier
QuelFichier = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls", Title:="Sélectionnez le fichier à importer")
If QuelFichier <> False Then
Workbooks.Open QuelFichier
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
ActiveWindow.Close
Windows(MonClasseurActif).Activate
ActiveSheet.Range("A1").End(xlDown).Offset(1).Select
ActiveSheet.Paste
Else
MsgBox "Vous n'avez pas sélectionné de fichier"
End If
End Sub
le feuille que j'importe est dans un classeur qui ne comporte qu'une feuille.