Discussion :

[bernard38]

Bjr,
Apres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(SousPlage).Paste

la question voulez-vous remplacer les donnees est posée
comment puis-je forcer pour éviter cette question ?
Cdt

[tirex28]

Bonsoir,

Je ne trouve pas de méthode Paste pour l'objet Range, seulement PasteSpecial.

Ceci dit tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.DisplayAlerts = False
Range(SousPlage).PasteSpecial xlPasteAll
Application.DisplayAlerts = True

Cordialement,

Tirex28/

[bernard38]

Merci Tirex
J'ai contourné en faisant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("PausesRepasVoiAUR.xls").Sheets("mois").Range("B1:AH60").Copy Destination:=Workbooks("AMELIOR Pauses Repas.xls").Sheets("sem" & sem).Range(SousPlage)

ça fonctionne je vais tester quand même.
Cdt