Ouverture d'un fichier

Résolu
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009 - 12 juin 2007 à 10:22
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 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. 

14 réponses

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
12 juin 2007 à 10:24
Salut,

Regarde ce petit bout de code en VB6, et vois si tu peux l'adapter :

     ' Variable object
      Dim ApExcel As Object
    
     ' Définition de l'object
       Set ApExcel = CreateObject("excel.application")
      
     ' True pour Excel visible et false pour le mettre en arrière plan
       ApExcel.Visible = True
      
     ' Evite les erreurs de traitement
       ApExcel.DisplayAlerts = False
      
     ' Ouvre le fichier
       ApExcel.Workbooks.Open "Chemin de ton fichier"
       
     ' Libération des ressources
       Set ApExcel = Nothing

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
3
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
12 juin 2007 à 10:26
Record battu Exploreur, 1min58,

Bravo et pas mieux. Clair, net, precis.
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
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.

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
12 juin 2007 à 16:18
Salut Mortalino,

Merci de l'info...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009
12 juin 2007 à 22:19
salut à tout,
merci bcccccccccccccq pour vos aide
0
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 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.
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
13 juin 2007 à 00:04
Il me semble que c'est filesystemobject.

Je te donnerai un petit code demain, enfin tout a l'heure plutot LOL.
0
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009
13 juin 2007 à 01:04
merci nicko11
j'attend votre code
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
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




End Sub
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
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...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
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

'Libération de la mémoire.


Set WrdDoc = Nothing
Set WordApp = Nothing


End Sub
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
13 juin 2007 à 08:45
Salut Nicko,

C'est à peu près le même cheminement...Pour les alerte c'est : DisplayAlerts = False

A+
Exploreur

 Linux a un noyau, Windows un pépin


 
0
asmaa17 Messages postés 89 Date d'inscription mercredi 10 janvier 2007 Statut Membre Dernière intervention 14 mai 2009
13 juin 2007 à 13:22
Salut ,
merci  Nicko11,
j'aimerai affiche le bloc note dans l'ecran comme fichier excel ,pas dans un msgbox.Il 'y des solution???
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
13 juin 2007 à 13:39
Et bien c'est exactement ce que je t'ai donné (sauf que c'est Word et pas Bloc Notes), tu as juste a remplacer le chemin du fichier:

'Ouverture fichier
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WrdDoc = WordApp.Documents.Open(" C:\Document_Test.rtf ")
Set ActiveDocument = WrdDoc
0