Importer données d'un classeur precis

Re : Importer données d'un classeur precis

bonjour

je pense avoir trouvé cela fonctionne
Si quelqu un veut verifier cette macro MERCI D AVANCE

Private Sub Importation()
MsgBox "Vous allez importer toto"

'Ne pas toucher
Dim nodeb As Long
Dim nofin As Long
Dim moi As String
moi = ActiveWorkbook.Name
Dim LeNom As String

ChDrive ("H:") 'Adapter la lettre du lecteur voulu
ChDir "\\svr2000\aDupond$\test\" 'Indiquer le chemin complet jusqu'au répertoir voulu
While MonFichier <> ""
Workbooks.Open MonFichier
MonFichier = Dir()
Wend
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name = moi Then
MsgBox "Import abandonnée!"
Exit Sub
End If
MonFichier = ActiveWorkbook.Name
nodeb = InputBox("Ligne de debut ?", "identification", "3")
nofin = InputBox("Ligne de fin ?", "identification", "6500")
Range("A2").Select
ActiveWorkbook.ActiveSheet.Range("A" & nodeb & ":W" & nofin).Copy Destination:=Workbooks(moi).Sheets("Import").Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(MonFichier).Close
Sheets("Import").Select
End Sub