XL 2016 VBA Sub Doublons_supprimer_colonnes_trier()

[FAB80170]

Bonjour,
je suis complètement nul en programmation VBA.

Un membre de ce forum (00) m'a gentiment proposé un code qui fonctionnait à merveille.
J'ai fait une copie de mon fichier original afin de perfectionner d'autres onglets du classeur.
Depuis, lorsque j'exécute le code, le message d'erreur "400" apparaît et le classeur source
s'ouvre automatiquement. Je suppose qu'une "liaison" existe entre ces 2 classeurs est me
provoque ce dysfonctionnement ???

Si vous trouvez une réponse à mon problème, est il possible de me répondre pas à pas.

Par avance merci pour votre aide !!!

Bien cordialement

 

[jecirbe]

Bonjour
je viens d'ouvrir ton fichier joint. Je n'ai aucune erreur! Est ce le bon ;-) ?
A+

 

[FAB80170]

Bonjour jecirbe
As-tu lancé le code ?
Est-ce peut être parce ce que le fichier source n'est pas présent sur ton PC ?
Peux tu regarder d'éventuelles liaisons ...

Par avance merci

 

[jecirbe]

'Ceci est un commentaire

Sub Doublons_supprimer_colonnes_trier() ' Déclaration de la procédure
Dim c As Range 'Déclaration de la variable c en tant que plage, cellule

' on demande à excel de ne pas raffraichir l'affichage, de lancer les calculs manuellement, et de ne pas lancer les évènements
'tout ça pour gagner vitesse
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
'Pour chaque c prsent dans la ligne 1 formatage spécial
For Each c In Rows("1:1").SpecialCells(xlCellTypeConstants, 23)
'on sélectionne c
c.Select
'Avec la sélection des colonne en entier
With Selection.EntireColumn
'supprimer les doublons dans colonne 1, définition en tête
.RemoveDuplicates Columns:=1, Header:=xlYes
'on classe
.Sort [Selection], Header:=xlYes
'fin de la procédure
End With
Next
' on demande à excel d'aller en a1
Application.Goto Range("a1"), True
' on remet les éléments désactiver en début en fonction
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

Donc a priori je ne vois pas de liaison
Voilà j'espère ne pas avoir glisser d'erreur dans le commentaire

 

[FAB80170]

jecirbe, merci pour ton aide

Qu'est ce qui pourrait expliquer que le lancement du code ouvre un autre classeur avec un message d'erreur "400" ?

 

[jecirbe]

j'ai l'erreur
C'està ce niveau là qu'il y a un soucis (touver grâce au pas à pas)
With Selection.EntireColumn
.RemoveDuplicates Columns:=1, Header:=xlYes
.Sort [Selection], Header:=xlYes
End With

c'est tout ce que je peux te dire