Algo

Filtrer, copier et coller des données dans un autre classeur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Filtrer, copier et coller des données dans un autre classeur

Papillon34

Bonjour tout le monde,

je me permets à faire appel à vos connaissances car ça fais deux semaines que je cherche mais je ne trouve pas la solution. :pfff: (Je suis débutane!!!)

Je souhaite en faite créer un bouton sur un dossier x qui lorsque j'appuie dessus va
1. ouvrir le dossier Y
2. Filtrer les données par exemple tous les comptes commençant par 706
3. Copier toutes les lignes où il y a des données (qui vont varier d'une année sur l'autre)
4. Revenir sur le dossier x
5. Copier les données sur ma feuille excel sur la colonne A à la ligne 17 par exemple

Voici la macro que j'ai réalisé grâce à l'enregistreur mais ça ne fonctionne pas!!!

Code :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/10/2007
Windows("Balance holding.xls" ).Activate
ActiveSheet.Range("A1" ).AutoFilter , Field:=1, Criteria1:="<70601000>", VisibleDropDown:=False
Dim i As Integer
i = 1
While Cells(i, 1) <> "" '1 représente ici la colonne
Cells(i, 1).Copy
Windows("Ventilation des charges.xls" ).Activate
Feuil3.Range("A12:c12" ).PasteSpecial
Operation = xlPasteSpecialOperationAdd
Wend
End Sub

En vous remerciant par avance!!!

Publicité

Profil supprimé

A tu développé un procédure de suivi d'exécution ?

Profil supprimé

A, woai, débutante, j'avais oublié,

Non, la réponse c'est que la bonne section c'est probablement aide au devoir !

SI non, c'est quoi qui cloche ?

Mais moi perso je répondrais pas plus, je n'ai pas les spécificités requises.

Papillon34

Salut jovalise,

en faite c lors du copier que ça ne fonctionne pas! Ca copie la ligne où il y a mais flèche pour le filtre et non les données!

et je ne sais pas qu'est qu'une procédure de suivi d'exécution! Débutante...

Profil supprimé

Ben, c'est bien, t'as plus qu'à apprendre l'info

Papillon34

Je ne dois pas apprendre l'info je me débrouille mais il y a certains terme que je connais pas! C'estpour ca que je m'adresse à vous!

Profil supprimé

Et Microsoft ils disent quoi ?

Papillon34

J'ai regardé l'aide de microsoft si tu ve savoir!

Profil supprimé

Appelles les et demandes leur la correction de ton programme.
Tu leur dis que tu as suivi la procédure d'enregistrement et que ça ne fonctionne pas.

Papillon34

C'est bon j'ai trouvé la solution donc pour les autres voici les algo :

Code :

Sub Macro1()
Windows("Balance holding.xls" ).Activate
Sheets("Feuil1" ).Select
Selection.AutoFilter Field:=1, Criteria1:="=70601000", Operator:=xlAnd
Cells(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Ventilation des charges.xls" ).Activate
Feuil1.Range("A12:A12" ).PasteSpecial
Operation = xlPasteSpecialOperationNone
End Sub

FORUM HardWare.fr

Programmation

Algo

Filtrer, copier et coller des données dans un autre classeur

Sujets relatifs
Extraire de données de fichier texte vers excel	[RESOLU] Comparer 2 fichiers de données
Lire données EXIF de fichiers dans un répertoire	imprimer recto tout un classeur excel
Synchroniser tables de deux bases de données en VB.NET	programmation pour crypter des données
lancement automatique d'une macro à l'ouverture d'un classeur excel	pb formulaire html recuperer données avc perl/cgi ou c++
probléme de base de données une fois pausé sur serveur	Pb pour trier des données .xls à l'aide d'une macro
Plus de sujets relatifs à : Filtrer, copier et coller des données dans un autre classeur

Page générée en 0.052 secondes