Pb macro fonctionne en 2003 mais pas 2010

[KELLY]

Bonjour,
J'avais un fichier fait sur excel 2003 que j'ai enregistré sur 2010. Malheureusement, j'ai des macros qui ne veulent plus fonctionner sur 2010.
Pouvez-vous m'aider ?
Merci d'avance.
Voici la macro qui coince :

Worksheets("feuil1").Range("V2") jour = Worksheets("feuil2").Range("G2").Value
Worksheets("feuil1").Range("V3") = "<=" & jour & ""
Worksheets("feuil1").Range("A2:S150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2:V3"), CopyToRange:=Range("Y2:AP2"), Unique:=False
DERNIERVALEUR = Worksheets("feuil1").Range("aD2").End(xlDown).Address

 

[Papou-net]

Re : Pb macro fonctionne en 2003 mais pas 2010

Bonjour Kelly,

Si la copie de ton code est extraite de ton code original, le problème se situerait au niveau de :

"AdvancedFilt er"

qui comporte un espace indésirable

Si ça ne fonctionne pas mieux, tu pourrais peut-être joindre une copie de ton fichier, sans données confidentielles.

Bon dimanche à toi.

Cordialement.

 

[KELLY]

Re : Pb macro fonctionne en 2003 mais pas 2010

Bonjour Papou-net,

Tout d'abord merci pour ta réponse !
Je ne peux malheureusement pas joindre mon fichier (trop gros) !
Dans ma macro, je n'ai pas d'espace dans "AdvancedFilter".
ça fonctionnait très bien sous 2003 mais depuis l'engistrement sous 2010, il m'affiche "erreur d'exécution '1004' Nom de champ incorrect dans la plage d'extraction" ici :

Worksheets("feuil1").Range("A2:S150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2:V3"), CopyToRange:=Range("Y2:AP2"), Unique:=False

Merci d'avance pour votre aide.

 

[Papou-net]

Re : Pb macro fonctionne en 2003 mais pas 2010

RE KELLY,

As-tu essayé de mettre le nom de la feuille devant "Range("U2:V3")" et "Range("Y2:AP2")" ? Surtout si ce code n'est pas dans une procédure appartenant à la feuille 1.

Sinon, peut-être qu'en joignant l'intégralité de ton code au lieu de ton fichier.

Cordialement.

 

[KELLY]

Re : Pb macro fonctionne en 2003 mais pas 2010

J'ai essayé mais ça ne fonctionne pas plus, j'ai toujours le même message.

Voici le code :

Private Sub OptionButton1_Click()

Worksheets("feuil1").Range("V2")
jour = Worksheets("feuil2").Range("G2").Value
Worksheets("feuil1").Range("V3") = "<=" & jour & ""
Worksheets("feuil1").Range("A2:S150").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2:V3"), CopyToRange:=Range("Y2:AP2"), Unique:=False
DERNIERVALEUR = Worksheets("feuil1").Range("aD2").End(xlDown).Address
ListBox1.RowSource = "Y3: " & DERNIERVALEUR & ""
If Worksheets("feuil1").Range("X2") <> 1 Then
nombre = Worksheets("feuil1").Range("X2")
MsgBox "Vous en avez " & nombre & " !"

Else
CommandButton4.Enabled = False
CommandButton1.Enabled = False
End If
End Sub

Merci d'avance.

 

[Papou-net]

Re : Pb macro fonctionne en 2003 mais pas 2010

RE KELLY,

J'ai reproduit la macro chez moi, et ça fonctionne.

Je ne vois pas l'origine de l'erreur, mais peut-être qu'en modifiant la ligne suivante :

Worksheets("feuil1").Range("A2:S150").AdvancedFilt er Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2"), CopyToRange:=Range("Y2"), Unique:=False

ça pourrait fonctionner.

Sinon, sans ton fichier, difficile de poursuivre l'analyse.

Cordialement.

 

[néné06]

Re : Pb macro fonctionne en 2003 mais pas 2010

Bonsoir Papou-net, bonsoir KELLY

Parfois cela fonctionne mieux en plaçant cette instruction sur une ligne entière .

Worksheets("feuil1").Range("A2:S150").AdvancedFilt er Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2"), CopyToRange:=Range("Y2"), Unique:=False

=xlFilterCopy, CriteriaRange:=Range("U2:V3"), CopyToRange:=Range("Y2:AP2"), Unique:=False

Range( _ REM ce trait me chifone un peu : à essayer sans retour ligne ?
"U2"), CopyToRange:=Range("Y2"), Unique:=False

A+

 

[Staple1600]

Re : Pb macro fonctionne en 2003 mais pas 2010

Bonsoir à tous

Une recherche dans l'omnipotent moteur de recherche du web avec ces mots-clés
erreur d'exécution '1004' Nom de champ incorrect dans la plage d'extraction
vous livrera quelques pistes à suivre