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 26 27 28
| Sub OuvertureDeFichiers()
Dim OuvrirFichiers As Variant
ChDir ("C:\Documents and Settings\Portable COFA\Mes documents\aide excel\ESSAI BOIS ABATTU\donnes terrain\")
OuvrirFichiers = Application.GetOpenFilename(Filefilter = "Fichiers texte(*.csv),*.csv", FilterIndex:=2, Title:="ouverture de fichiers terrain", MultiSelect:=True)
If OuvrirFichiers = False Then
MsgBox "Aucun Fichiers n' a été sélectionné. Fin de la procédure", vbOKOnly + vbCritical, "Fin de la procédure"
Exit Sub
End If
If UBound(OuvrirFichiers) > 1 Then
Dim rep As Long
Dim Liste As String
Dim compteur As Byte
For compteur = 1 To UBound(OuvrirFichiers)
Liste = Liste & vbCr & OuvrirFichiers(compteur)
Next compteur
rep = MsgBox("Lutilisateur a sélectionné plusieurs fichiers. En voici la liste." & Liste & vbCr & "Voulez-vous les ouvrir?", vbYesNo + vbQuestion, "Ouvrir les Fichiers?")
If rep = vbYes Then
For compteur = 1 To UBound(OuvrirFichiers)
Workbooks.Open Filename:=OuvrirFichiers(compteur)
Next compteur
End If
Else
Workbooks.Open Filename:=OuvrirFichiers(1)
End If
End Sub |