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

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

Marsh Posté le 16-10-2007 à 12:07:33    

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 :
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' Macro enregistrée le 09/10/2007
  6.     Windows("Balance holding.xls" ).Activate
  7.     ActiveSheet.Range("A1" ).AutoFilter , Field:=1, Criteria1:="<70601000>", VisibleDropDown:=False
  8.     Dim i As Integer
  9.     i = 1
  10.     While Cells(i, 1) <> "" '1 représente ici la colonne
  11.     Cells(i, 1).Copy
  12.    
  13.     Windows("Ventilation des charges.xls" ).Activate
  14.     Feuil3.Range("A12:c12" ).PasteSpecial
  15.     Operation = xlPasteSpecialOperationAdd
  16.    
  17. Wend
  18. End Sub


 
En vous remerciant par avance!!!

Reply

Marsh Posté le 16-10-2007 à 12:07:33   

Reply

Marsh Posté le 16-10-2007 à 12:44:24    

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

Reply

Marsh Posté le 16-10-2007 à 12:51:18    

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.

Reply

Marsh Posté le 16-10-2007 à 13:42:50    

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...

Reply

Marsh Posté le 16-10-2007 à 14:04:56    

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

Reply

Marsh Posté le 16-10-2007 à 14:17:49    

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!

Reply

Marsh Posté le 16-10-2007 à 14:25:24    

Et Microsoft ils disent quoi ?

Reply

Marsh Posté le 16-10-2007 à 14:28:52    

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

Reply

Marsh Posté le 16-10-2007 à 14:37:35    

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.

Reply

Marsh Posté le 16-10-2007 à 15:57:58    

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

Code :
  1. Sub Macro1()
  2.   Windows("Balance holding.xls" ).Activate
  3.     Sheets("Feuil1" ).Select
  4.     Selection.AutoFilter Field:=1, Criteria1:="=70601000", Operator:=xlAnd
  5.     Cells(1, 1).Select
  6.     Range(Selection, Selection.End(xlToRight)).Select
  7.     Range(Selection, Selection.End(xlDown)).Select
  8.     Selection.Copy
  9.     Windows("Ventilation des charges.xls" ).Activate
  10.     Feuil1.Range("A12:A12" ).PasteSpecial
  11.     Operation = xlPasteSpecialOperationNone
  12. End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed