[VBA-O] Probleme de fenetre active [Résolu]

[Elstak]

Hello,

voilà je copie des données d'outlook dans Excel et j'aimerai créer un volet sur ma feuille Excel.

Je savais pas trop comment faire j'ai donc utilisé l'enregistreur de macro Excel et j'ai mis ce code sous outlook (ca à bien marché pour le "autofit" donc jme suis dis pourquoi pas pour ca...):

Code :

1
2
3
4
5
6
7
8
9
ex.sheets(1).Activate
    ex.sheets(1).Cells.EntireColumn.AutoFit
    
    ex.sheets(1).Range("A2").Select
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True

seulement j'ai un souci au niveau de la fenetre active on dirait... J'ai une erreur sur la ligne rouge "propriete ou methode non gérée par cet objet"

voici comment j'ai declaré "ex"

Code :

1
2
'Ajoute un nouveau classeur
Set ex = AppliExcel.Workbooks.Add

J'arrive très bien à naviguer sur mon classeur Excel avec sauf dans ce cas..

[ouskel'n'or]

Code :

1
2
3
    ex.sheets(1).Activate
    ex.sheets(1).Range("A2").Select
    ActiveWindow.FreezePanes = True

ça devrait suffire

[Elstak]

Et bah non

meme erreur sur :

Code :

ActiveWindow.FreezePanes = True

mais c'est pas à cause du activewindow??

[SilkyRoad]

bonjour

tu peux essayer cette syntaxe

Code :

1
2
3
4
5
6
7
8
9
Dim AppXl As Excel.Application
Dim Wb As Excel.Workbook
 
Set AppXl = CreateObject("Excel.Application")
AppXl.Visible = True
 
Set Wb = AppXl.Workbooks.Add
 
AppXl.ActiveWindow.FreezePanes = True

bonne journée
michel

[ouskel'n'or]

Je penserais plutôt à

Code :

1
2
3
    ex.sheets(1).Select ' à la place d'activate
    ex.sheets(1).Range("A2").Select
    ActiveWindow.FreezePanes = True

Tu dis mais avec le code de Silky, les volets de figent "un peu n'imposte où"
Désolé Michel, C'est bien la première fois

[SilkyRoad]

bonjour cher ouskel'n'or

ce n'etait qu'un simple exemple pour montrer le principe d'utilisation...;o)


bon apres midi
michel

[ouskel'n'or]

J'avais bien compris mais pour ce qui est d'Elstak, j'en étais pas sûr

[Elstak]

Meuh !

y'est pas noté babache non plus !!


bon allez merci SILKY