Discussion :

[jules_31]

Bonjour,

Je cherche a récupérer certaines données d'un classeur pour les insérer dans un autre. Je dois tout d'abord effectuer une requête de tri dans le classeur source avant d'en récupérer les données. Cependant je n'arrive pas a l'activer.

Voici mon code, situé dans le classeur destination :

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
 
Private Sub STL()
    Dim appExcel As Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet
    Dim Path As String 
    'Dim RSE As Integer                  'Dernière ligne du fichier source
    'Dim CSE As Integer                  'Dernière colonne du fichier source
 
 
    Path = Application.GetOpenFilename("Nom fichier,*.xls")
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(Path)
    Set wsExcel = wbExcel.Worksheets(1)
 
    'RSE = wsExcel.Range("A65536").End(xlUp).Row
    'CSE = wsExcel.Range("IV1").End(xlToLeft).Column
 
    wbExcel.Activate       '=> Probleme : wbExcel ne s'active pas !!!!!!
    MsgBox (ActiveWorkbook.Name)
 
    'ActiveWorkbook.Cells(RSE, CSE).Select
    'Range(Selection, "A1").Select
    'puis requête de tri
 
    '(...)
 
    wbExcel.Close False
    Set wsExcel = Nothing
    Set wbExcel = Nothing
    appExcel.Quit
    Set appExcel = Nothing
End Sub

Dans la Msgbox s'affiche le nom du fichier destination (ThisWorkbook) alors que je souhaiterais obtenir le nom du fichier source (wbExcel).

Merci de m'avoir lu et merci pour votre aide,
Sébastien

[pgz]

Bonjour.

Peut-être en ajoutant

Code :

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

AppExcel.Visible = True

?

PGZ

[jules_31]

Merci pour ta réponse PGZ. j'ai placé cette ligne de cette façon :

Code :

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

1
2
3
AppExcel.Visible = True
wbExcel.Activate
MsgBox (ActiveWorkbook.Name)

Rien à faire, il ne me renvoie toujours pas le nom du fichier que je veux activer.

Sébastien


Edit : Ça t'aide si je te dis que ce code est placé dans un module ?

[Krovax]

Bonjour,

Pourquoi passer par un activate s'il pose problème alors qu'il parfaitement possible de le supprimer? (il faudra virer tous les select qui vont suivre mais tu verra c'est une bonne habitude a prendre)
Bon dans ton cas il va sans doute faloir retravailler un peux les choses mais bon
essaye quelque chose comme

Code :

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

wbExcel.Range(Cells(RSE, CSE),"A1").CeQueTuVeux

[jules_31]

Bonjour,

J'essaie de faire un tri sans passer par Select

Code :

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

1
2
3
4
5
6
7
 
Dim RSE As Integer
Dim CSE As Integer
Dim CTS as String
 
wsExcel.Range(Cells(RSE, CSE), "A1").Sort _
Key1:=Range(CTS & "1", CTS & RSE), Order1:=xlDescending

J'obtiens une erreur 1004 : Method 'Range' of Object '_Worksheet' failed
Je précise que l'objet wsExcel fonctionne sans problème dans les précédentes lignes de code.

[Krovax]

Bonjour sans pouvoir tester précise le classeur et la feuille popur chaque range (la feuille c'est un oublie de ma part)

Code :

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

1
2
wsExcel.worksheets("NomFeuille").Range(Cells(RSE, CSE), "A1").Sort _
Key1:=wsExcel.worksheets("NomFeuille").Range(CTS & "1", CTS & RSE), Order1:=xlDescending

Par contre je doute que CTS soit bien al lettre qui corespond a la colonne et non le numéro. je te laisse vérifier si c'est le numéro de colonne utilise cells

Code :

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

Range(wsExcel.worksheets("NomFeuille").cells(1,CTS), wsExcel.worksheets("NomFeuille").cells(RSE,CTS)),

Comme tu le voi l'criture devient lourde je te conseil l'utilisation utilise un with