VB et Excel (ouvrir des fichiers Excel à partir de VB)
cacoole
Messages postés
11
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
19 juillet 2005
-
19 juil. 2005 à 00:50
cacoole Messages postés 11 Date d'inscription mercredi 4 juin 2003 Statut Membre Dernière intervention 19 juillet 2005 - 19 juil. 2005 à 18:18
cacoole Messages postés 11 Date d'inscription mercredi 4 juin 2003 Statut Membre Dernière intervention 19 juillet 2005 - 19 juil. 2005 à 18:18
A voir également:
- VB et Excel (ouvrir des fichiers Excel à partir de VB)
- Vb vba - Forum Visual Basic
- Arctan excel - Forum Visual Basic
- Tangente et arctangente ✓ - Forum C++ & C++ .NET
- Planning de maintenance préventive excel - Forum VB.NET
- Arctangente excel - Forum Visual Basic
3 réponses
Ricks27
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005
19 juil. 2005 à 12:01
19 juil. 2005 à 12:01
Bonjour,
Pour ouvrir un document Excel :
'A Mettre dans un module
Sub OuvreDocumentExcel(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)
AppExcel.Visible = True
TraiteErreurs:
Screen.MousePointer = vbDefault
Set AppExcel = Nothing
End Sub
'Exemple
Call OuvreDocumentExcel("C:\MonDocumentExcel.xls")
PS : Pour utiliser ce code, il te faut ajouter une référence à ta version d'Excel ("Microsoft Excel xx .x Object Library")
Ricks27
Pour ouvrir un document Excel :
'A Mettre dans un module
Sub OuvreDocumentExcel(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)
AppExcel.Visible = True
TraiteErreurs:
Screen.MousePointer = vbDefault
Set AppExcel = Nothing
End Sub
'Exemple
Call OuvreDocumentExcel("C:\MonDocumentExcel.xls")
PS : Pour utiliser ce code, il te faut ajouter une référence à ta version d'Excel ("Microsoft Excel xx .x Object Library")
Ricks27
Ricks27
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005
19 juil. 2005 à 12:03
19 juil. 2005 à 12:03
Sinon, pour ouvrir le répertoire ou se trouve tes documents Excel :
'A Mettre dans un module
Sub OuvreRépertoire(ByVal Répertoire As String)
If Répertoire <> vbNullString Then
Shell "Explorer.exe " & Répertoire, vbNormalFocus
End If
End Sub
'Exemple
Call OuvreRépertoire("C:\MonRépertoire")
Ricks27
'A Mettre dans un module
Sub OuvreRépertoire(ByVal Répertoire As String)
If Répertoire <> vbNullString Then
Shell "Explorer.exe " & Répertoire, vbNormalFocus
End If
End Sub
'Exemple
Call OuvreRépertoire("C:\MonRépertoire")
Ricks27
cacoole
Messages postés
11
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
19 juillet 2005
19 juil. 2005 à 18:18
19 juil. 2005 à 18:18
Ok merci à toi je vais essayer ca dès demain, je te tiens au courant si ca marche.
Cacoole
Cacoole
