Clolorier une cellule excel avec une fonction
Résolu
la pive
Messages postés
3
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
7 septembre 2004
-
7 sept. 2004 à 17:53
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 8 sept. 2004 à 08:55
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 8 sept. 2004 à 08:55
A voir également:
- Createobject(excel application)
- Créer interface application - Conseils pratiques -Graphisme
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Arctan excel - Forum VBA Office (Excel, Word ...)
- Application de gestion de rendez-vous - Forum VB.NET
- Comment créer une application android - Forum VB.NET
1 réponse
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
8 sept. 2004 à 08:55
8 sept. 2004 à 08:55
OUI BIEN SUR :
En Ayant Projet...Références...Microsoft Excel XX Object Library de Coché..
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
If MonXl.Range("A4").Value ="Samedi" Then MonXl.Range("A4").Interior.Color =&HC0C0C0 ' Gris
Mais tu peux le faire directement sous Excel si ton fichier existe déja..
It@li@
En Ayant Projet...Références...Microsoft Excel XX Object Library de Coché..
' Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\MonFichier.xls"
If MonXl.Range("A4").Value ="Samedi" Then MonXl.Range("A4").Interior.Color =&HC0C0C0 ' Gris
Mais tu peux le faire directement sous Excel si ton fichier existe déja..
It@li@
