XL 2010 Ouvrir fichier dans repertoire par defaut

[TVulcain]

Bonjour

J'aimerais ouvrir un fichier xls à partir de ma macro lancé par mon application

avec Workbooks.Open Filename:="Export.xls" manifestement il ne connait pas le chemin pour l'ouvrir.
Je voudrais l'ouvrir à partir du même répertoire que mon application et pourtant ne spécifiant pas de chemin je pensais que cela allait se faire par defaut.
merci

 

[Staple1600]

Re

On peut encore réduire un chouia le code
(test OK sur mon PC)

Sub TEST3()
Dim fin As Long
fin = Cells(Rows.Count, 1).End(3).Row
Cells(1).Resize(fin, 8).Sort key1:=[H2], Order1:=1, key2:=[G2], Order2:=1, key3:=[E2], Order3:=1, Header:=1
End Sub

 

[TVulcain]

J'ai essayé le tri, ça fonctionne impec

Selection.AutoFilter lui, je suis obligé de l'exécuter 2 fois pour avoir accès au filtre

 

[Staple1600]

Re,

Normalement avec le filtre aussi pas besoin de Select

Sub TEST_4()
Dim fin As Long
fin = Cells(Rows.Count, 1).End(3).Row
If Not ActiveSheet.AutoFilterMode Then
'ici mettre ton propre critère de filtre
Cells(1).Resize(fin, 8).AutoFilter Field:=3, Criteria1:="9"
End If
End Sub

 

[TVulcain]

Ok merci mais pour les critères, sans VBA il ne donne pas de critères donc les numéros correspondandent à quoi
La colonne ?

 

[Staple1600]

Re

Comme tu n'as pas joint de fichier exemple, je teste sur mon filtre sur un fichier de mon cru.
Pour voir comment j'ai testé, lance la macro TEST_5 sur une feuille vide

Sub TEST_5()
Dim fin As Long
créer_données_TEST
fin = Cells(Rows.Count, 1).End(3).Row
If Not ActiveSheet.AutoFilterMode Then
MsgBox "Appliquer le filtre?" & Chr(13) & "Colonne filtrée: C, critère du filtre: =0", vbQuestion, "TEST"
Cells(1).Resize(fin, 8).AutoFilter Field:=3, Criteria1:="0"
End If
End Sub
Sub créer_données_TEST()
[A1] = "ITEM1": [A1].AutoFill Destination:=[A1:H1], Type:=0: [A2:H26] = "=MOD(ROW()-1,5)"
End Sub

 

[TVulcain]

Ben si tu veux je dois afficher tout le fichier mais seulement avoir les flèches en entête pour pouvoir selectionner ce que je veux

 

[Staple1600]

Re,

Tu as fait le test avec le code proposé dans mon précédent message?

 

[TVulcain]

j'ai fais ça : Cells(1).Resize(fin, 8).AutoFilter Field:=3, Criteria1:="0"

ça fonctionne mais il manque une colonne prise en compte

 

[TVulcain]

oui j'ai bien mon filtre mais il manque la colonne I qui me permet la selection dans le filtre

 

[Staple1600]

Re

Ce n'était pas la question!
Je te demande si tu testé tout le code que j'ai mis dans le message#20

 

[TVulcain]

Oui je l'ai fais et j'ai toujours le manque d'une colonne avec le filtre valide
la colonne de A à H ok , il me faudrais la G en plus

 

[Staple1600]

Re

Il te suffit d'utiliser l'enregistreur de macros lorsque que tu filtres pour adapter le code VBA en conséquence, non ?

 

[TVulcain]

L'enregistreur de macro me donne la ligne Selection.AutoFilter
En tout cas j'ai bien avancé garce à toi merci

 

[Staple1600]

Re

Mon enregistreur de macros est plus bavard

Sub Macro1()
ActiveSheet.Range("$A$1:$H$26").AutoFilter Field:=3, Criteria1:="0"
ActiveSheet.Range("$A$1:$H$26").AutoFilter Field:=7, Criteria1:="1"
End Sub

 

[TVulcain]

Ha oui, le mien me fais un range et toujours la même instruction
par contre avec cette ligne
Cells(1).Resize(fin, 10).AutoFilter Field:=9, Criteria1:="0"
toutes les colonnes sont prise en compte mais j'aimerais que le filtre 9 soit avec la sélection totale et là c'est top