SVP je veux importer un fichier excel avec VBA

[Imadinho]

SVP je veux importer un fichier excel avec VBA (je veux afficher la premiere ligne de mon fichier Excel). pour que je puisse traiter un fichier Excel avec VBA
par exemple :😱
lorsque je clique sur un bouton d'un formulaire sous VBA un MsgBox apparait avec le contenu de la premiere cellule;
SVP c'est urgent
Merciiii 🙂

 

[gilbert_RGI]

Re : SVP je veux importer un fichier excel avec VBA

Bonjour;

Pourquoi ne pas ouvrir directement le fichier.xls ?

Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
ChDrive "C:"  ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
    , "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
 Application.ScreenUpdating = True
Workbooks(Nom).Activate
End Sub

😕