Problèmes de récup de données d'un tableau à l'autre ..encore

[pietrus2]

Re - bonjour le forum ,

Aujourd'hui j'ai un problème, je cherche a copier les données du tableau excel du fichier 1 vers le fichier 2 en utilisant le code que l'on m'a gentillement donné la derniere fois , mais , pour ce type de cas , je ne veut pas prendre en compte les colones ou il y a des zero dans la ligne grand total (ligne 10) du fichier 1.

merci

pierre

ps : code utilisé :

Sub copie()
Dim DerCol As Long
Workbooks.Open "C:\Documents and Settings\pga\Bureau\fichier1.xls", 0
Workbooks("fichier2.xls").Activate
With Workbooks("fichier1.xls")
With .Sheets("Feuil1")
DerCol = .[C10].End(xlToRight).Column
.Range(.Cells(4, DerCol - 19), .Cells(30, DerCol - 10)).Copy
[B9].PasteSpecial Paste:=xlPasteValues
.Range(.Cells(4, DerCol - 9), .Cells(30, DerCol)).Copy
[N9].PasteSpecial Paste:=xlPasteValues
End With
End With
Application.CutCopyMode = False
Workbooks("fichier1.xls").Close SaveChanges:=False
End Sub

 

[Gael]

Re : Problèmes de récup de données d'un tableau à l'autre ..encore

Bonjour Pietrus,

Ci-joint ton fichier modifié. J'ai ajouté la recherche de la première colonne à 0 et pris la colonne précédente comme valeur de "Dercol".

Ceci sous réserve que j'ai bien compris et qu'il s'agit d'éliminer toutes les dernières colonnes à 0.

@+

Gael

 

[pietrus2]

Re : Problèmes de récup de données d'un tableau à l'autre ..encore

Merci beaucoup Gael , c'est exactement ce que je cherchais .

bonne soirée , encore merci