Discussion :

[retraite83]

Bonjour,

qui peut me dire dans mon code suivant à l'ouverture du classer A pourquoi à la fin je ne suis pas sur la feuille infos de ce classeur à la fin de "Thisworkbook open" (qui ouvre un second classeur B)

Tout se passe bien, le résultat est celui attendu mais à la fin je suis positionné sur une feuille de ce second classeur B et non revenu sur la feuille "Infos " du classeur A...

Il me semble pourtant avoir appliqué tout ce que j'ai vu dans les documentations
Merci de votre éclairage

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
 
Option Explicit
Private Sub Workbook_Open()
 
Dim derClient As Integer, catal As String, clientCatal As Variant, CurWB As Workbook, hotelCatal As Variant nomFic As String
 
Set CurWB = ThisWorkbook
nomFic = ActiveWorkbook.Name
 
catal = ThisWorkbook.path & "\" & fich2 & ".xlsm"   ' fich2 défini en Public constante dans module 3
 
' Ouverture du Catalogue
On Error GoTo EndHandler
    Application.EnableEvents = False
    Workbooks.Open catal
EndHandler:
    Application.EnableEvents = True
 
' "Clients"
Set clientCatal = Workbooks(fich2 & ".xlsm").Sheets("Clients")
clientCatal.Visible = True
clientCatal.Select
clientCatal.Activate
With Cells(Rows.Count, "A").End(xlUp).MergeArea: derClient = .Cells(.Cells.Count).Row: End With
 
CurWB.Sheets("Clients").Range("A2:H" & derClient).Value = ActiveWorkbook.Sheets("Clients").Range("A2:H" & derClient).Value
clientCatal.Visible = xlSheetHidden
 
Workbooks(nomFic).Activate
Worksheets("Infos").Select
Worksheets("Infos").Activate
 
End Sub

[patricktoulon]

Bonjour Retraité

je sais pas si tu a tout bien fait

au pire entre nous si on raisonne un peu logiquement
je remplace ca

Code :

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

Workbooks(nomFic).Activate

par ca etant donné que la macro est dans lui meme

Code :

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

thisworkbook.activate

maintenanant perso je ne m'embete pas je fait comme j'ai toujour fait

Code :

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

 windows(thisworkbook.name).activate

a ben ca marche mieux d'un coup je sais

[retraite83]

Bonjour Patrick

j'ai mis ce que tu me conseilles :

Code :

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

windows(thisworkbook.name).activate

à la place de

Code :

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

Workbooks(nomFic).Activate

mais je suis toujours sur le mauvais classeur

Il doit y avoir qq chose d'autre qui gêne

[patricktoulon]

teste ca dans un module a part

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
Sub test()
    Dim derClient As Integer, catal As String, clientCatal As Variant, wbk1 As Workbook, hotelCatal As Variant, catalogue As Workbook
    Set wbk1 = ThisWorkbook
 
    catal = ThisWorkbook.Path & "\" & fich2 & ".xlsm"   ' fich2 défini en Public constante dans module 3
    ' Ouverture du Catalogue
    'On Error GoTo EndHandler
    ' Application.EnableEvents = False 'pourquoi faire ??,
    Set catalogue = Workbooks.Open(catal)
    'EndHandler:
    'Application.EnableEvents = True 'pourquoi faire
    ' "Clients"
    Set clientCatal = catalogue.Sheets("Clients")
    With clientCatal
        .Visible = True
        .Select    ' facultatif
        .Activate    ' facultatif
        With .Cells(Rows.Count, "A").End(xlUp).MergeArea: derClient = .Cells(.Cells.Count).Row: End With
        tablo = .Sheets("Clients").Range("A2:H" & derClient).Value
        .Visible = xlSheetHidden
    End With
 
    wbk1.Sheets("Clients").Range("A2:H" & derClient).Value = tablo
    Windows(ThisWorkbook.Name).Activate
    'Worksheets("Infos").Select    ' c'est l'un ou l'autre
    'Worksheets("Infos").Activate    ' c'est l'un ou l'autre
End Sub

[retraite83]

J'ai testé, j'ai défini

Code :

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

tablo as variant

j'ai erreur 438, propriété ou méthode non géré par cet objet sur la ligne

Code :

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

tablo = .Sheets("Clients").Range("A2:H" & derClient).Value

[Patrice740]

J'ai testé, j'ai défini

Code :

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

tablo as variant

j'ai erreur 438, propriété ou méthode non géré par cet objet sur la ligne

Code :

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

tablo = .Sheets("Clients").Range("A2:H" & derClient).Value

Commençons par les fondamentaux : l'objet Sheet n'a pas de propriété Range !