Voila le probleme que je n'arrive pas a resoudre
Suite a l'utilisation du code ci-dessous
Si je clique sur Donnees/Filtre automatique ou elabore
Je n'ai plus de possibilite de filtrer
Les fleches n'apparaissent plus sur les cellules a filtrer
Pour que cela fonctionne il faut que je ferme Excel
que je supprime Excel.xlb
Ensuite quand je relance Excel tout est normal
et des que je lance la macro cela recommence
plus de filtre automatique ou elabore
Si quelqu'un voit d'ou vient le probleme
Sub TXJour()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("A2:O450").Select
Range("A2:O450").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("critere"), Unique:=False
ActiveSheet.Copy
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
LeftHeader = "&""Arial,Gras""Tenue Caisse&""Arial,Normal""" & Chr(10) & "" &
Chr(10) & "CHIC AU PLI"
CenterHeader = "&""Arial,Gras""&12&UCHIFFRE D'AFFAIRES&""Arial,Normal""&10&U" &
Chr(10) & "" & Chr(10) & "Du :" & DateJour
RightHeader = ""
LeftFooter = ""
CenterFooter = "&""Arial,Italique""&8Imprime le : &D"
RightFooter = ""
LeftMargin = Application.InchesToPoints(0.393700787401575)
RightMargin = Application.InchesToPoints(0.393700787401575)
TopMargin = Application.InchesToPoints(0.78740157480315)
BottomMargin = Application.InchesToPoints(0.708661417322835)
HeaderMargin = Application.InchesToPoints(0.511811023622047)
FooterMargin = Application.InchesToPoints(0.511811023622047)
PrintHeadings = False
PrintGridlines = False
CenterHorizontally = True
CenterVertically = True
Orientation = xlLandscape
Zoom = 100
End With
ActiveWorkbook.PrintOut
ChDir "C:\CABackup"
ActiveWorkbook.SaveAs Filename:=Format(DateJour, "dd-mmm-yy") & ".xls"
ActiveWorkbook.Close
ActiveSheet.ShowAllData
Application.ScreenUpdating = False
End Sub
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MCL
Bonjour Je n'arrive toujours pas à solutionner le problème J'ai cherche sur Google groups des infos sur les filtres en VBA j'ai vu que d'autres personnes avaient été confrontés à ce problème de flèches invisibles Quelq'un pourrait-il svp me dire ce qui cloche dans le code ci-dessous, Merci
Chr(10) & "CHIC AU PLI" CenterHeader = "&""Arial,Gras""&12&UCHIFFRE D'AFFAIRES&""Arial,Normal""&10&U" &
Chr(10) & "" & Chr(10) & "Du :" & DateJour RightHeader = "" LeftFooter = "" CenterFooter = "&""Arial,Italique""&8Imprime le : &D" RightFooter = "" LeftMargin = Application.InchesToPoints(0.393700787401575) RightMargin = Application.InchesToPoints(0.393700787401575) TopMargin = Application.InchesToPoints(0.78740157480315) BottomMargin = Application.InchesToPoints(0.708661417322835) HeaderMargin = Application.InchesToPoints(0.511811023622047) FooterMargin = Application.InchesToPoints(0.511811023622047) PrintHeadings = False PrintGridlines = False CenterHorizontally = True CenterVertically = True Orientation = xlLandscape Zoom = 100 End With ActiveWorkbook.PrintOut ChDir "C:CABackup" ActiveWorkbook.SaveAs Filename:=Format(DateJour, "dd-mmm-yy") & ".xls" ActiveWorkbook.Close ActiveSheet.ShowAllData Application.ScreenUpdating = False End Sub -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Bonjour
Je n'arrive toujours pas à solutionner le problème
J'ai cherche sur Google groups des infos sur les filtres en VBA
j'ai vu que d'autres personnes avaient été confrontés à ce problème de
flèches invisibles
Quelq'un pourrait-il svp me dire ce qui cloche dans le code ci-dessous,
Merci
Bonjour Je n'arrive toujours pas à solutionner le problème J'ai cherche sur Google groups des infos sur les filtres en VBA j'ai vu que d'autres personnes avaient été confrontés à ce problème de flèches invisibles Quelq'un pourrait-il svp me dire ce qui cloche dans le code ci-dessous, Merci
