Ouvrir un dossier

bierataise Messages postés 55 Date d'inscription mardi 28 juin 2005 Statut Membre Dernière intervention 4 mai 2006 - 20 juil. 2005 à 16:55
Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005 - 21 juil. 2005 à 13:36
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.

3 réponses

Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
20 juil. 2005 à 17:25
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
0
bierataise Messages postés 55 Date d'inscription mardi 28 juin 2005 Statut Membre Dernière intervention 4 mai 2006
21 juil. 2005 à 11:19
Je te remerci Ricks27, je vais tester ta solution.
27 signifie que tu ne es normand ou bien autre chose.
Bierataise
0
Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
21 juil. 2005 à 13:36
Exactement le 27 signifie bien que je suis normand.

Ricks27
0