Ouverture d'un fichier

Résolu
Signaler
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009
-
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
-
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

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

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

Bravo et pas mieux. Clair, net, precis.
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut Mortalino,

Merci de l'info...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009

salut à tout,
merci bcccccccccccccq pour vos aide
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009

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.
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Il me semble que c'est filesystemobject.

Je te donnerai un petit code demain, enfin tout a l'heure plutot LOL.
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009

merci nicko11
j'attend votre code
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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

 
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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


 
Messages postés
89
Date d'inscription
mercredi 10 janvier 2007
Statut
Membre
Dernière intervention
14 mai 2009

Salut ,
merci  Nicko11,
j'aimerai affiche le bloc note dans l'ecran comme fichier excel ,pas dans un msgbox.Il 'y des solution???
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
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