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
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
A voir également:
- Ouvrir un dossier
- Vba ouvrir un dossier - Forum Visual Basic
- Tag ip ouvrir une session - Forum C / C++ / C++.NET
- Ouvrir userform vba ✓ - Forum Visual Basic
- Ouvrir un userform à partir d'un click sur une case excel... ✓ - Forum Visual Basic
- Ouvrir un UserForm à condition que .. ✓ - Forum VBA Office (Excel, Word ...)
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
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
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
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
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
27 signifie que tu ne es normand ou bien autre chose.
Bierataise
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
21 juil. 2005 à 13:36
Exactement le 27 signifie bien que je suis normand.
Ricks27
Ricks27
