Sub Import_Nmoins2()
Dim cl As Range
Dim str As Variant
Dim ok As Boolean
'
'On teste si il n'y a pas de cellule vide dans la plage
'Si une cellule est vide on informe l'utilisateur et on sort de la procédure
For Each cl In Worksheets("Accueil").Range("B9")
If cl.Value = "" Then
MsgBox "L'année de référence n'est pas renseignée", vbExclamation, "Message Erreur"
cl.Activate
Exit Sub
End If
Next cl
'Suppression de l'affichage des calculs
Application.ScreenUpdating = False
Dim a As Variant, b As Variant, Nom As String, Nom2 As String
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Nom2 = ActiveWorkbook.Name
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows(Nom).Activate
Sheets("JC N-2 par mission").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
Windows(Nom2).Close
Application.DisplayAlerts = True
Sheets("Accueil").Activate
'Suppression de l'affichage des calculs
Application.ScreenUpdating = True
End Sub