Discussion :

[LordPeterPan2]

Bonjour, je chercher désespéremment à faire comprendre à matlab que je veux aller à la dernière cellule de ma feuille excel :

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
 
[filename, pathname, filterindex] = uiputfile('*.xls', 'Pick an XLS File');
true_filename = [pathname filesep filename] ;
 
objExcel = actxserver( 'Excel.Application' );
 
if exist(true_filename,'file')
    myWorkbook = invoke(objExcel.Workbooks, 'open', true_filename);
    mode_create = 0 ;
else
    objWorkbooks = objExcel.Workbooks ;
    myWorkbook = invoke( objWorkbooks, 'Add' );
    mode_create = 1 ;
 
end;
 
mySheets = objExcel.ActiveWorkBook.Sheets ;
 
myCurrentSheet = get(mySheets,'Item',get(mySheets,'Count'));
myCells = myCurrentSheet.Cells;
invoke(myCells,'SpecialCells','xlLastCell') % et là c'est drame :o

Je sais que je dois appeler la méthode SpecialCell, je sais que la dernière cellule c'est xlLastCell (ce n'est pas une variable matlab vu que j'essaie justement de savoir le nom de cet <censured> de cellule).


En fait je veux faire un programme qui va écrire dans une feuille excel plusieurs données formatées (texte + data). La feuille excel peut ne pas exister, mais si elle existe alors je veux rajouter mes données à la fin de la feuille et pas réécraser ce qui existe déjà

A votre bon coeur m'sieur dame

[Jerome Briot]

Je n'ai pas testé mais en cherchant dans le code de XLSREAD, j'ai trouvé ceci :

Code :

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

DataRange = Excel.ActiveSheet.UsedRange;

Dans ton cas, ce serait :

Code :

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

DataRange = myCurrentSheet.UsedRange

Je ne sais pas ce que ça renvoie, mais je pense qu'il doit être possible de déterminer ce que tu cherches à partir de DataRange, non ?

[LordPeterPan2]

Je te remercie Dut, mais en fait, c'est toujours le même problème j'ai tous les argument mais pas la moindre diée de la synthaxe.

De plus, j'ai décidé de jouer le conan le barbare :

Code :

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

1
2
 
nRow = size(myCurrentSheet.UsedRange.Formula,1)+1;

[Jerome Briot]

Tu peux me dire ce que contient ActiveSheet.UsedRange ?

DataRange serait de quel type et contiendrait quoi ?

[LordPeterPan2]

Alors :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
get(myCurrentSheet.UsedRange)
            Application: [1x1 Interface.Microsoft_Excel_11.0_Object_Library._Application]
                Creator: 'xlCreatorCode'
                 Parent: [1x1 Interface.Microsoft_Excel_11.0_Object_Library._Worksheet]
              AddIndent: 0
                Address: '$A$1:$BW$49'
           AddressLocal: '$A$1:$BW$49'
                  Areas: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Areas]
                Borders: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Borders]
                  Cells: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
             Characters: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Characters]
                 Column: 1
                Columns: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
            ColumnWidth: 10.7100
                  Count: 3675
           CurrentArray: [1x202 char]
          CurrentRegion: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
             Dependents: [1x202 char]
       DirectDependents: [1x202 char]
       DirectPrecedents: [1x202 char]
           EntireColumn: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
              EntireRow: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
                   Font: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Font]
                Formula: {49x75 cell}
           FormulaArray: NaN
           FormulaLabel: 'xlNoLabels'
          FormulaHidden: 0
           FormulaLocal: {49x75 cell}
            FormulaR1C1: {49x75 cell}
       FormulaR1C1Local: {49x75 cell}
               HasArray: 0
             HasFormula: 0
                 Height: 652.5000
                 Hidden: [1x228 char]
    HorizontalAlignment: 1
            IndentLevel: 0
               Interior: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Interior]
                   Left: 0
         ListHeaderRows: 0
        LocationInTable: [1x237 char]
                 Locked: 1
              MergeArea: 'Error: Object returned error code: 0x800A03EC'
             MergeCells: 0
                   Name: 'Error: Object returned error code: 0x800A03EC'
                   Next: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
           NumberFormat: 'Standard'
      NumberFormatLocal: 'Standard'
                 Offset: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
            Orientation: -4128
           OutlineLevel: [1x234 char]
              PageBreak: [1x231 char]
             PivotField: [1x232 char]
              PivotItem: [1x231 char]
             PivotTable: [1x232 char]
             Precedents: [1x202 char]
        PrefixCharacter: ''
               Previous: [1x230 char]
             QueryTable: 'Error: Object returned error code: 0x800A03EC'
                 Resize: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
                    Row: 1
              RowHeight: NaN
                   Rows: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Range]
             ShowDetail: [1x232 char]
            ShrinkToFit: 0
              SoundNote: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.SoundNote]
                  Style: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Style]
                Summary: [1x229 char]
                   Text: NaN
                    Top: 0
      UseStandardHeight: 1
       UseStandardWidth: 1
             Validation: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Validation]
                  Value: {49x75 cell}
                 Value2: {49x75 cell}
      VerticalAlignment: -4107
                  Width: 4500
              Worksheet: [1x1 Interface.Microsoft_Excel_11.0_Object_Library._Worksheet]
               WrapText: 0
                Comment: []
               Phonetic: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Phonetic]
       FormatConditions: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.FormatConditions]
           ReadingOrder: -5002
             Hyperlinks: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.Hyperlinks]
              Phonetics: []
                     ID: 'Error: Object returned error code: 0x800A03EC'
              PivotCell: 'Error: Object returned error code: 0x800A03EC'
                 Errors: 'Error: Object returned error code: 0x800A03EC'
              SmartTags: [1x1 Interface.Microsoft_Excel_11.0_Object_Library.SmartTags]
              AllowEdit: 1
             ListObject: []
                  XPath: [1x579 char]

Et DataRange ????
Moi j'y vais à tattons là dessus

[Jerome Briot]

Après un petit test rapide, le code suivant devrait fonctionner :

Code :

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

1
2
str=DataRange.Address
[minCol,minLigne,maxCol,maxLigne]=strread(str(2:end),'%s%d:%s%d','delimiter','$')

A tester

[LordPeterPan2]

thanks folks

J'essaierai quand on me demandera une amélioration