asmaa17
Messages postés89Date d'inscriptionmercredi 10 janvier 2007StatutMembreDernière intervention14 mai 2009
-
12 juin 2007 à 10:22
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 2007
-
13 juin 2007 à 13:39
salut,
j'aimerai ouvrir un fichier excel précis en appuyant sur un boutton, je ve que ce fichier s'affiche sur l'ecran pour pouvoir y travailler.
merci de répondre.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 12 juin 2007 à 15:49
Juste une chose,
pensez à utiliser les vrai types objets, plutot que As Object..
Pourquoi ? Car Object n'est vérifié qu'à la compilation, et qu'en utilisant le vrai type, on a accès aux membres de l'objet :
' cocher référence MS Excel Object Library
Dim xlsApp As New Excel.Application
Dim xlsBook As Excel.WorkBook
Set xlBook = xlsApp.WorkBook.Open(...)
A partir de là, en tapant xlBook. (avec le point, hein !) tous les membres (méthodes, propriétés) apparaitront.
asmaa17
Messages postés89Date d'inscriptionmercredi 10 janvier 2007StatutMembreDernière intervention14 mai 2009 12 juin 2007 à 22:36
Salut ,
d'autre question .si je veux affiche un fichier bloc note (pas excel),qu'est ce que je doit faire à la place de "excel.application".
merci d'avance pour vos aides.
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 20073 13 juin 2007 à 07:53
Voila un petit exemple de code qui te permettra de creer ou de manipuler un fichier Texte.
Public Sub test3()
Dim fs, a
Dim ligne As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Documents and Settings\BorelNi\Bureau\fichiertest.txt", True)
a.WriteLine ("Ceci est le test1")
a.WriteLine ("Ceci est le test2")
a.WriteLine ("Ceci est le test3")
a.WriteLine ("Ceci est le test4")
a.WriteLine ("Ceci est le test5")
a.Close
Set b = fs.OpenTextFile("C:\Documents and Settings\BorelNi\Bureau\fichiertest.txt", 1, 0)
ligne = b.Readline 'lire la première ligne et passe à la seconde
MsgBox ligne
ligne = b.Readline 'lire la seconde ligne passe à la troisième
MsgBox ligne
b.skipline 'Sauter la ligne
ligne = b.Readall 'Lire le fichier dans son ensemble à partir de la ligne courante
MsgBox ligne
b.Close 'Fermeture du fichier
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 13 juin 2007 à 08:02
Salut Nicko,
Et ben c'est cool...Mais je pense et ne le prend pas mal, que notre ami souhaite ouvrir un fichier, l'affiché, faire des modifes et enregistrer par la suite...C'est pour cela qu'il demande quoi mettre à la place de : excel.application...
Je pense que pour faire ce qu'il demande il lui faudra le contrôle :
RichTextBox...
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 20073 13 juin 2007 à 08:16
Je ne le prends pas mal et en effet, cette phrase aurait pu me mettre sur la voie
"je ve que ce fichier s'affiche sur l'ecran pour pouvoir y travailler."
Dans ce cas, on pourrait faire pareil que ce que tu as fait avec Excel pour Word (je me rapelle plus pour enlever les alert mais ca doit pas etre compliquer de le trouver :
Public Sub test2()
'Ouverture fichier
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WrdDoc = WordApp.Documents.Open("C:\Documents and Settings\BorelNi\Bureau\job_aid_r1.rtf")
Set ActiveDocument = WrdDoc
'Fermeture Word
WordApp.ActiveDocument.Save
WordApp.ActiveDocument.Close
WordApp.Quit