ouvrir un dossier

Je voudrai récupérer plusieurs valeurs dans des cellules différentes d'un fichier excel comment faire.Si qq1 a une idée merci d'avance.

Bonjour,

Voici un petit exemple


Dans un Module

Public Valeur1 As String, Valeur2 As String, Valeur3 As String

Sub RécupData(ByVal CheminDocument As String)
          Dim AppExcel As Excel.Application        
         
          On Error GoTo TraiteErreurs
          Screen.MousePointer = vbHourglass
          Set AppExcel = CreateObject("Excel.application")
          AppExcel.Workbooks.Open (CheminDocument)
         
          On récupère le contenu de la cellule A1 que l'on stocke dans la variable Valeur1
          Valeur1 = AppExcel.Range("A1")
          On récupère le contenu de la cellule B1 que l'on stocke dans la variable Valeur2
          Valeur2 = AppExcel.Range("B1")
          On récupère le contenu de la cellule C1 que l'on stocke dans la variable Valeur3
          Valeur3 = AppExcel.Range("C1")
         
TraiteErreurs:
          Screen.MousePointer = vbDefault
          AppExcel.Quit
          Set AppExcel = Nothing
          Exit Sub
End Sub

Exemple :

Dans une Form au Form_Load

Call RécupData("c:\MonDocumentExcel.xls")

On affiche le contenu des variables
Msgbox Valeur1 & " - " & Valeur2 & " - " & Valeur3

Ricks27

Je te remerci Ricks27, je  vais tester ta solution.
27 signifie que tu ne es normand ou bien autre chose.
Bierataise

Exactement le 27 signifie bien que je suis normand.

Ricks27