Problème sur appel selection d'un autre fichier

Bonjour,

J'aimerai, depuis n'importe quelle feuille du tableau pouvoir convertir ceci

Feuille : "TABLEAU 2019"

Tableau : "TABLEAU2019"

Colonne : "Date dem. client"

de façon à ne pas être redirigé sur la feuille "TABLEAU 2019" mais en restant sur la feuille active

Macro :

Sub Convert_DDEMCLIENT()
'
' Convertir les dates de demande client
'

'
    With ThisWorkbook.Worksheets("TABLEAU 2019")
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range( _
        "TABLEAU2019[[#Headers],[Date dem. client]]"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

    ThisWorkbook.Worksheets("TABLEAU 2019").objet("TABLEAU2019").Range.AutoFilter Field:=4
    End With

End Sub

Merci d'avance le forum

Bonjour,

En début de macro, vous pouvez désactiver l'affichage et enregistrer le nom de l'onglet sur lequel vous travaillez, la macro s'exécutera sans que votre affichage ne bouge, et le réactiver votre onglet et l'affichage en fin de macro avec :

Application.ScreenUpdating = False 'au début
NomOngletEnCours = Application.ActiveSheet.Name 'retient le nom de l'onglet sur lequel vous étiez en train de travailler
...
...
...
VOTRE CODE
...
...
...
Sheets(NomOngletEnCours).Select 'Sélection de l'onglet de départ avant réactivation de l'écran
Application.ScreenUpdating = True 'à la fin

J'espère vous avoir aidé.

Bonne journée!

Cindy

Bonjour cindyD,

Lorsque je tente de lancer la formule, j'obtiens l'erreur : Erreur de compilation

La ligne sélectionné est :

Sub Convert_DDEMCLIENT()

merci pour votre aide !

Sub Convert_DDEMCLIENT()
'
' Convertir les dates de demande client
'

'
Application.ScreenUpdating = False 'au début
Sheets("TABLEAU DE BORD 2019") = Application.ActiveSheet.Name  'retient le nom de l'onglet sur lequel vous étiez en train de travailler
...
...
...
Columns("D:D").Select
    Selection.TextToColumns Destination:=Range( _
        "TABLEAU2019[[#Headers],[Date dem. client]]"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

    ActiveSheet.ListObjects("TABLEAU2019").Range.AutoFilter Field:=4
...
...
...
Sheets("TABLEAU DE BORD 2019").Select 'Sélection de l'onglet de départ avant réactivation de l'écran
Application.ScreenUpdating = True 'à la fin

End Sub

Si vous partez toujours de Tableau de bord 2019, ce n'est pas la peine de mettre la partie du début Application.Activesheet...

Cindy

Je viens de supprimer la ligne que vous avez cité et j'ai toujours le même code d'erreur, et toujours sur la même ligne ?

Bonjour,

Avant d'ajouter mon code vous aviez la même erreur ou pas?

Cindy

Bonjour CindyD,

Non je ne l'avait pas auparavant.

Mais le sujet à été résolu ailleurs :

https://forum.excel-pratique.com/viewtopic.php?p=754314#p754314

Merci encore votre aide !