Modification macro copier coller

[Vario29]

Bonjour,

J’utilise ce code pour copier des données d’un classeur vers un autre classeur. Ce macro copie les données en effaçant les données déjà présentes dans le classeur destination. Sauf que je viens de me rendre compte qu’il ne le fait pas ! et je sais pas comment corriger mon macro pour arriver à mon objectif.

Pouvez m’aider à modifier ce code ?

Merci d’avance pour vos réponses,

Christophe

Sub Urssaf()
Dim FichS As Workbook
Dim FichD As Workbook
Dim rs As Range
Dim rd As Range
Dim Chemin$
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Set FichS = ThisWorkbook
Set rs = Range("C1:N" & Range("A65000").End(xlUp).Row)

Chemin = "F:\COMMUN\PAIE\COTISATIONS\COTISATIONS QCOM\Cotisations 2009\Cotisations-Excel\Urssaf.xls"
Workbooks.Open Chemin

Set FichD = ActiveWorkbook
Set rd = FichD.Sheets("Chiffres").Range("A1")
rd.Cells.Clear
rs.Copy rd
With FichD
.Save
.Close
End With
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

 

[mromain]

Re : Modification macro copier coller

bonjour Vario29,

à tester : remplacer

rd.Cells.Clear

par

FichD.Sheets("Chiffres").Cells.Clear

a+

 

[RENAUDER]

Re : Modification macro copier coller

Bonjour,

Tu as essayé
rd.Cells.ClearContents

Clear : Efface toutes les valeurs de propriété de l'objet Err.
ClearContents : Cette méthode efface les formules de la plage

 

[vbacrumble]

Re : Modification macro copier coller

Bonjour tous



rd.Clear devrait fonctionner non ?
( rd.ClearContents ou rd=vbNullString également )


rd correspondant à la cellule A1 de la feuille Chiffres du classeur actif.

 

[mromain]

Re : Modification macro copier coller

bonjour

supprimé

a+

 

[Vario29]

Re : Modification macro copier coller

J'essaye et je vous tiens au courant,

Merci, c'est sympa

 

[vbacrumble]

Re : Modification macro copier coller

Re


Pour moi, tel quel rd est bien égale et seulement égale à la cellule A1 non ????

ou alors il faudrait par exemple:

Set rd=FichD.Sheets("Chiffres").Range("A1").CurrentRegion
ou
Set rd=FichD.Sheets("Chiffres").UsedRange
ou
Set rd=FichD.Sheets("Chiffres").Cells

 

[Vario29]

Re : Modification macro copier coller

Je viens de tester cette fonction : FichD.Sheets("Chiffres").Cells.Clear

Le code fonctionne,

Merci