Excel comme base de données...
z980x
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
-
3 août 2003 à 14:33
Diegoch Messages postés 56 Date d'inscription vendredi 30 mars 2001 Statut Membre Dernière intervention 7 septembre 2011 - 4 août 2003 à 10:42
Diegoch Messages postés 56 Date d'inscription vendredi 30 mars 2001 Statut Membre Dernière intervention 7 septembre 2011 - 4 août 2003 à 10:42
A voir également:
- Excel comme base de données...
- Javascript base de données - Conseils pratiques -Javascript
- Connexion base de données - Conseils pratiques -PHP
- Base de données access - Conseils pratiques -Visual Basic / VB.NET
- Connecter une application android à une base de données - Conseils pratiques -Java
- Exemple base de donnée gestion de stock ✓ - Forum Visual Basic
1 réponse
Diegoch
Messages postés
56
Date d'inscription
vendredi 30 mars 2001
Statut
Membre
Dernière intervention
7 septembre 2011
6
4 août 2003 à 10:42
4 août 2003 à 10:42
Definition des objets :
Dim XL As Object
Set XL = CreateObject("Excel.Application")
Pour eviter les erreurs, commence par verifier que ton fichier existe :
If Dir("C :\ Nomfichier.xls") = " Nomfichier.xls" Then ……. Endif
Ensuite tu peux l’ouvrir :
XL.Workbooks.Open Nomfichier
Et enfin sauvegarder sous un autre nom :
XL.ActiveWorkbook.SaveAs "C:\unautrefichier.xls", 1, "", "", False, False
Et enfin sauvegarder sous le meme nom :
XL.ActiveWorkbook.Save
Le fermer :
XL.ActiveWorkbook.Close
Pour ne pas voir le fichier a l’ecran :
XL.application.Visible = False
Bien sur, tout ceci n’est valable qu ‘en VB. Pas en VBA
J'espere que ça aura répondu relativement simplement a ta question ;o)
Dim XL As Object
Set XL = CreateObject("Excel.Application")
Pour eviter les erreurs, commence par verifier que ton fichier existe :
If Dir("C :\ Nomfichier.xls") = " Nomfichier.xls" Then ……. Endif
Ensuite tu peux l’ouvrir :
XL.Workbooks.Open Nomfichier
Et enfin sauvegarder sous un autre nom :
XL.ActiveWorkbook.SaveAs "C:\unautrefichier.xls", 1, "", "", False, False
Et enfin sauvegarder sous le meme nom :
XL.ActiveWorkbook.Save
Le fermer :
XL.ActiveWorkbook.Close
Pour ne pas voir le fichier a l’ecran :
XL.application.Visible = False
Bien sur, tout ceci n’est valable qu ‘en VB. Pas en VBA
J'espere que ça aura répondu relativement simplement a ta question ;o)