copier coller dans colone non vide

skoobi

XLDnaute Barbatruc

• 30 Mai 2008

• #2

Re : copier coller dans colone non vide

Bonsoir,

avec ce que tu donnes comme infos on pourra pas aller loin.
Les 2 classeurs sont ouverts?
Tu as oublié de préciser les feuilles destination et source.
Bref, soit plus précis.

 

Vote positif 0 Vote négatif

W

WITER

XLDnaute Occasionnel

• 2 Juin 2008

• #3

Re : copier coller dans colone non vide

Voici le fichier que j'utilise pour copier coller les données;
merci d avance

 

Pièces jointes

• Copier.xls

  43.5 KB · Affichages: 69
• Copier.xls

  43.5 KB · Affichages: 69
• Copier.xls

  43.5 KB · Affichages: 72

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 2 Juin 2008

• #4

Re : copier coller dans colone non vide

Bonjour,

test ce code:

Code:

Sub ouvrir()
Dim source As Workbook
Dim dercol As Long

dercol = Range("IV6").End(xlToLeft).Column
Set source = Workbooks.Open(Filename:="C:\Donnees\Fichiergest\" & Range("A1").Value & "PR.xls")
ThisWorkbook.Activate
With source.Sheets("Portefeuille")
  .Columns("K:K").Copy Columns(dercol + 1)
End With
End Sub

Comme les 5 premières lignes sont toujours vide, je suppose qu'il faut tester la prochaine colonne vide avec la ligne 6, ce que j'ai fais.

 

Vote positif 0 Vote négatif

W

WITER

XLDnaute Occasionnel

• 2 Juin 2008

• #5

Re : copier coller dans colone non vide

Merci skoobi ca fonction parfaitement avec ton code

 

Vote positif 0 Vote négatif