[macro Excel]

Version imprimable

14/09/2005, 11h50
Mugette

[macro Excel]

Est-ce que quelqu'un peut m'aider pour faire le script suivant en vb script :

- ouverture d'un fichier txt
- parcourir ce fichier
- extraire TOUTES les lignes de ce fichier
- ajouter ces lignes en COMMENTAIRE dans une cellule excel

Merci

si vous avez une idée parce que la, j'en peux plus, l'ordi va passer par la fenetre. :cry: :cry: :cry:
14/09/2005, 12h04
Mugette

merci !!!
jai vais essayer de bricoler un truc, ca devrait le faire.
si ca marche, je tapel "mon sauveur" :wink:

S'il s'agit d'un script VBS, la difficulté proviendra sans doute de la communication avec Excel.

Voici un exemple de script répondant partiellement à tes besoins :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
' Déclaration et ouverture du fichier de données 
' via l'objet FileSystemObject
 
SourceFile      = "C:\Documents and Settings\Julien\Bureau\Données.txt"
Set fs          = CreateObject("Scripting.FileSystemObject")
Set Stream      = fs.OpenTextFile(SourceFile)
 
' Déclaration et ouverture du fichier Excel
' via l'objet Application Excel
 
WBFile          = "C:\Documents and Settings\Julien\Bureau\Cible.xls"
SheetName       = "Feuil1"
Set Application = CreateObject("Excel.Application")
Set WB          = Application.Workbooks.Open(WBFile)
Set S           = WB.Worksheets(SheetName)
 
' Parcours du fichier Source ligne à ligne
' Dans cet exemple, la ligne 1 du fichier Source
' sera mis en commentaire dans la premier cellule de la colonne 1
' la ligne 2 du fichier Source
' sera mis en commentaire dans la premier cellule de la colonne 2
' etc... 
 
While Not Stream.AtEndOfStream
    C = C + 1
    S.Cells(1, C).AddComment Stream.ReadLine
Wend
 
' Fermeture des flux fichiers (texte et Excel)
 
WB.close
Stream.close
 
'Libération mémoire
 
Set Application = Nothing
Set fs    = Nothing

14/09/2005, 15h05
Megaxel

C'est marrant, Mugette, mais dans un autre de tes posts (en page 3 pour le moment), qui s'appelle "Excel", titre très parlant (un peu comme celui-ci), quelqu'un t'a déjà donné une solution proche de celle d'Ouskelnor.
Bon, Catbull, c'est carrément encore mieux, mais quand même...
15/09/2005, 09h54
Mugette

Oui je sais mais je pensais qu'en étant plus clair sur ce que je voulais j'aurais des réponses plus claires, ça a été le cas...

Merci à tous.