filtre élaboré pour JB

[armelle1303]

Bonjour Jb
encore moi !
un problème avec un filtre élaboré.
j'ai un fichier BDDRD et un récap
j'ai repris l'exemple que vous m'aviez donné et d'ailleurs qui marche avec un autre fichier que récap.
Mais avec celui, il me collent les données sur la 1èer feuille de récap (à partir de K) au lieu de la feuille 2 de BDDRC.
et en plus il coupe les données au lieu de les copier
et il ne fait pas le tri (met toutes les données)

j'ai pourtant essayé plein de trucs : enregistreur de macro : cela marche mais dès que je mets le code dans mon fichier récap : KO
copier coller le code que j'ai utilisé dans le fichier qui fonctionne : idem; crée un fichier"neuf"...
Bref j'ai tourné en rond tout le week end
Si vous pouviez jeter un œil sur mon code j'aimerais vraiment comprendre le pourquoi .

Comment peut on faite pour mettre des PJ dans les messages privés?
c'est quoi le bouton "insérer un lien vers un mail?"

 

[PascalXLD]

Re : filtre élaboré pour JB

BOnjour


Bon désolé je ne suis pas JB alors je sors mais en petit lien en partant

Lien supprimé

 

[BOISGONTIER]

Re : filtre élaboré pour JB

Bonjour,

Voir PJ

Private Sub btnPrepa_Click()
Application.DisplayAlerts = False 'supprime le message d'alerte bdd déja ouvert ...
FichierRecept = ThisWorkbook.Name
chemin = ThisWorkbook.Path
Workbooks.Open chemin & "\BDDRC"
Sheets(1).Unprotect ("florel")
Sheets(2).Unprotect ("florel")          
Sheets("données").Range("A1:AR18").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("calculs").Range("A5:A6"), _
          CopyToRange:=Workbooks(FichierRecept).Sheets("données").Range("A1:AR1"), Unique:=False
ActiveWorkbook.Close False
Sheets("données").Activate

JB

 

[armelle1303]

Re : filtre élaboré pour JB

merci pour la réponse
je teste ce soir et donne des nouvelles

concernant le message de Pascal :
Bien lu le lien et pris note de la charte
je ne voulais pas embêter tout le monde sachant que BoisGontier m'avait déjà beaucoup aidée sur ce problème et je me demandai que si il recevrai ma demande si je relançai ma discussion initiale (car je voulais mettre des PJ avec mon code en message privé et je crois qu'on ne peut pas le faire).
enfin c'est fait et je tacherai de bien respecter la charte les prochaines fois, ceci pour le bon fonctionnement du forum

A+

 

[PascalXLD]

Re : filtre élaboré pour JB

concernant le message de Pascal :
Bien lu le lien et pris note de la charte
je ne voulais pas embêter tout le monde sachant que BoisGontier m'avait déjà beaucoup aidée sur ce problème et je me demandai que si il recevrai ma demande si je relançai ma discussion initiale (car je voulais mettre des PJ avec mon code en message privé et je crois qu'on ne peut pas le faire).
enfin c'est fait et je tacherai de bien respecter la charte les prochaines fois, ceci pour le bon fonctionnement du forum

A+

Re

Ok bonne résolution
Mais c'est aussi pour toi
Personne n'a de contrat ni d'obligation avec le forum donc quelqu'un peut ne pas se connecter pendant plusieurs jours et dans ce cas là ......

 

[armelle1303]

Re : filtre élaboré pour JB

bonjour

je n'ai pas pu attendre : j'ai testé c'est nickel et en plus je peux copié directement dans le classeur final.

en fait je n'avais pas précisé le nom du classeur et le nom de la feuille de destination (cela marchait bien sur un exemple déja fait avant ; je vais le compléter aussi pour être plus fiable).

Merci aussi pour This Workbook.Path

y' a plus qu'à

A+