RiversideB
XLDnaute Nouveau
Bonjour à tous !
Je débute tout juste avec le langage VBA dans Excel et je suis confronté à un problème que je n'arrive pas à résoudre, j'aimerais obtenir votre aide.
Voici la partie de ma macro qui bug :
Sub VL06_()
'
'Selection feuille & clear des données
Sheets("VL06").Select
'ote et remet les filtres
Range("e12").Select
If Not ActiveSheet.AutoFilter Is Nothing Then
Selection.AutoFilter
Selection.AutoFilter
Else
Selection.AutoFilter
End If
nb = Range("e" & Rows.Count).End(xlUp).Row + 1
Range("a13:j" & nb).Clear
Range("e13").Select
'Ouverture du fichier d'import
Workbooks.OpenText Filename:=AdrFichImport, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8 _
, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 4), Array(13, 1)), _
TrailingMinusNumbers:=True
'Trouve la dermiere ligne a importer
nb = Range("e" & Rows.Count).End(xlUp).Row + 1
'Trouve la dermiere ligne a importer
nb = Range("e" & Rows.Count).End(xlUp).Row
'copie des valeurs
Range("b2😱" & nb).Copy
Windows(FichTrav).Activate
ActiveSheet.Paste
'Fermeture fichier source
Windows(FichImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close False
End Sub
Quand je lance la macro, excel me dit : Erreur d'exécution '1004' La méthode Autofilter de la classe Range a échoué et quand je clique sur Débogage, Excel me colore en jaune Selection.Autofilter (comme présenté ci-dessus), je n'arrive absolument pas à comprendre pourquoi, pourriez-vous m'aider svp ?
Je débute tout juste avec le langage VBA dans Excel et je suis confronté à un problème que je n'arrive pas à résoudre, j'aimerais obtenir votre aide.
Voici la partie de ma macro qui bug :
Sub VL06_()
'
'Selection feuille & clear des données
Sheets("VL06").Select
'ote et remet les filtres
Range("e12").Select
If Not ActiveSheet.AutoFilter Is Nothing Then
Selection.AutoFilter
Selection.AutoFilter
Else
Selection.AutoFilter
End If
nb = Range("e" & Rows.Count).End(xlUp).Row + 1
Range("a13:j" & nb).Clear
Range("e13").Select
'Ouverture du fichier d'import
Workbooks.OpenText Filename:=AdrFichImport, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8 _
, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 4), Array(13, 1)), _
TrailingMinusNumbers:=True
'Trouve la dermiere ligne a importer
nb = Range("e" & Rows.Count).End(xlUp).Row + 1
'Trouve la dermiere ligne a importer
nb = Range("e" & Rows.Count).End(xlUp).Row
'copie des valeurs
Range("b2😱" & nb).Copy
Windows(FichTrav).Activate
ActiveSheet.Paste
'Fermeture fichier source
Windows(FichImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close False
End Sub
Quand je lance la macro, excel me dit : Erreur d'exécution '1004' La méthode Autofilter de la classe Range a échoué et quand je clique sur Débogage, Excel me colore en jaune Selection.Autofilter (comme présenté ci-dessus), je n'arrive absolument pas à comprendre pourquoi, pourriez-vous m'aider svp ?