Probleme avec le PasteSpecial

[nsqualli]

bonjour,

j'ai une macro dans laquelle je dois copier une ligne d'une feuille et la coller dans une autre feuille en la supprimant de la premiere, j'ai fais le code suivant:

.Range("A" & Lig & ":AO" & Lig).Copy
        FeuilDst.Range("A" & DerLD + 1 & ":AO" & DerLD + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("A" & Lig).EntireRow.Delete

mais lors de l'execution il me sort une fenetre comme quoi si je veux enregister ou non, en sachant que le copier coller se fait tres bien. c'est juste que cette fenetre ne doit pas apparaitre.

svp dites moi c dû à quoi?

 

[porcinet82]

Re : Probleme avec le PasteSpecial

Salut,

Etrange, car chez moi, il n'y a pas de fenetre qui s'ouvre...
Mais sinon, peut etre en mettant Application.DisplayAlerts = False en début de code et Application.DisplayAlerts = True à la fin.

@+

 

[nsqualli]

Re : Probleme avec le PasteSpecial

mais comme ça j'aurai pas la fenetre de conformation d'enregistrement quand je fermerai mon classeur, et j'en ai besoin

 

[Pierrot93]

Re : Probleme avec le PasteSpecial

Bonjour nsqualli, Romain

essaye peut être en procédant ainsi :

.Range("A" & Lig & ":AO" & Lig).Cut _
        FeuilDst.Range("A" & DerLD + 1 & ":AO" & DerLD + 1)

bonne journée
@+

 

[nsqualli]

Re : Probleme avec le PasteSpecial

merci bcp porcinet82, en fait j'avais tord et ça marche tres bien.
merci une autre fois