Discussion :

[chapeau_melon]

Bonjour,

je voudrais importer un fichier txt en Filemaker.
Hors ce fichier doit d'abord être modifié structurellement :
remplacer des caractères non-imprimable / puis text-to-colums / et en dernier transposer.

Je sais faire tout cela avec une macro excel dans excel et ensuite importe ce fichier modifié par import en FM.

Hors mon problème est que je voudrais créer un bouton en Filemaker que exécute ce script/macro mais par exemple en language VB donc sans passer par le programme excel.

En gros faire les mêmes modifs que la macro excel fait, mais en utilisant VB.

La raison est que mes clients n’ont peut-être pas tous Excel sur leur machine !

Pourriez-vous éventuellement m’aider ?

Voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
Sub ReplaceAndTranspose()
 
Dim FromChars As Variant
Dim ToChars As Variant
Dim iCtr As Long
 
FromChars = Array(Chr(28))
ToChars = Array(Chr(124))
 
If UBound(FromChars) <> UBound(ToChars) Then
MsgBox "design error--make from/to match"
Exit Sub
End If
 
For iCtr = LBound(FromChars) To UBound(FromChars)
ActiveSheet.Cells.replace What:=FromChars(iCtr), _
Replacement:=ToChars(iCtr), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next iCtr
 
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
 
Range("A1:B200").Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
 
End Sub

[LeXo]

Bonjour

le probleme est que si tu passes par vb tu dois déclarer que objet tu traites quand tu l'instancies

ça donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim exapp as excel.application

pour pouvoir traiter ton objet il faut bien savoir de quoi il s'agit pour que ton programme sache ce qu'il recherche et comment il doit le traiter

si ils n'utilisent pas excel alors ils utilisent koi ??

[chapeau_melon]

hmmm bien vue, je venais de lire justement qqchose à ce sujet.

Un autre language de codage sinon ?

[ced600]

Ce que tu fait sous Excel ces du script, alors tu peut le faire en VBS, Visual Basic Script. D'ailleurs il y a un sous forum sur le VBS existant sur ce site. Un fichier VBS peut être éditer avec n'importe quel éditeur, et son exécution peut être faite avec l'interpreteur de windows. Pour que windows le fasse automatiquement il suffit de donner l'extension ".vbs" au fichier de script.
Néanmoins si tu lit dans un fichier Excel le contenu de cellule, quelque soit le language que tu utilises, tu seras obligé d'ouvrir le fichier excel via le script. Mais tu n'auras pas besoin de lancer Excel pour lancer le script, juste lancer Excel à partir du script pour lire les données.

[LeXo]

reuu

si tu sais limité le nombres de format de fichiers tu peux créer une interface qui ferait un niveau d'abstraction

et selon le format il ira choisir la méthode, grosso merdo, ça donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if .xls then
extraireXls (monfichier)
elseif .txt then
extraireTxt(monfichier)
end if

et tu codes les 2 méthodes avec les 2 manières selon tel ou tel type de fichier

[SfJ5Rpw8]

Ben pour executer une macro excel il faut excel... !

sinon pour faire ta modification de format il va falloir en savoir plus sur le format du fichier initial et le format du fichier désiré... tu dois pouvoir ensuite traiter ton fichier texte comme .. un fichier texte..(lol) ... pourrai tu nous en dire plus sur ce fameux format... , ton code excel n'est pas facile à déchiffer sans exemple...