Copier + coller spécial + macro

5 réponses

G. L

30/10/2004 à 08:25

Bonjour à toutes et à tous,

Voici ci-dessous un extrait de macro qui jusqu'à présent fonctionnait
correctement. J'ai ajouté une macro au classeur sans rien modifier dans
celle de l'extrait.

Depuis : « la méthode PasteSpecial de la range a échoué »

J'ai coché « faire confiance à VB » comme le suggère l'aide mais en vain

Avez-vous une idée ? Sachant que cet extrait fonctionne dans d'autre
classeur et qu'il a été généré a l'aide de l'enregistreur de macro !

Mon but : figé l'instant de lancement de la macro. Il y a certainement plus
simple

Merci d'avance

Gérard

Range("H1").Select

ActiveCell.FormulaR1C1 = "=NOW()"

Range("H1").Copy

Range("I19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("I19").NumberFormat = "d/m/yy h:mm;@"

Range("A1").Select

5 réponses

papou

30/10/2004 à 11:19

Bonjour
Oui, il y a effectivement plus simple :
Worksheets("Feuil1").[I19] = Now
A adpater avec le nom de ta feuille.
Cordialement
Pascal

"G. " <sugere~KillPub~@online.fr> a écrit dans le message de news:
418333e7$0$17455$

Bonjour à toutes et à tous,

Voici ci-dessous un extrait de macro qui jusqu'à présent fonctionnait
correctement. J'ai ajouté une macro au classeur sans rien modifier dans
celle de l'extrait.

Depuis : « la méthode PasteSpecial de la range a échoué »

J'ai coché « faire confiance à VB » comme le suggère l'aide mais en vain

Avez-vous une idée ? Sachant que cet extrait fonctionne dans d'autre
classeur et qu'il a été généré a l'aide de l'enregistreur de macro !

Mon but : figé l'instant de lancement de la macro. Il y a certainement
plus
simple

Merci d'avance

Gérard

Range("H1").Select

ActiveCell.FormulaR1C1 = "=NOW()"

Range("H1").Copy

Range("I19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

:úlse, Transpose:úlse

Application.CutCopyMode = False

Range("I19").NumberFormat = "d/m/yy h:mm;@"

Range("A1").Select

30/10/2004 à 11:31

et même....;-)
[Feuil1!A1] = Now()

AV

Jacky

30/10/2004 à 11:49

Bonjour à tous
A condition qu'il n'est pas besoin de la formule en H1, non??
sinon
'---------
[H1].Formula = "=NOW()"
[I19] = Now()
[a1].Select
'---------
Salutations
JJ

"AV" a écrit dans le message de
news:

et même....;-)
[Feuil1!A1] = Now()

AV

papou

30/10/2004 à 11:50

Bonjour
Oui mais notre ami a stipulé :

Mon but : figé l'instant de lancement de la macro. Il y a certainement plus
simple

Cordialement
Pascal

"Jacky" a écrit dans le message
de news:

Bonjour à tous
A condition qu'il n'est pas besoin de la formule en H1, non??
sinon
'---------
[H1].Formula = "=NOW()"
[I19] = Now()
[a1].Select
'---------
Salutations
JJ

"AV" a écrit dans le message de
news:
et même....;-)
[Feuil1!A1] = Now()

AV

G. L

01/11/2004 à 22:03

Bonsoir à tous

Rentré seulement maintenant de We ou fleurs et souvenirs font pour un jour
oublié le quotidien, je vois à vos réponses que l'enregistreur de macro n'
empêche pas de réfléchir un peu et surtout simplifier beaucoup ;)

Merci à vous tous pour cette démonstration.

Effectivement c'est pour ne pas avoir la formule que j'avais utilisé cette
méthode de copie.

Cordialement à tous

Gérard

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:%

Bonjour
Oui mais notre ami a stipulé :
Mon but : figé l'instant de lancement de la macro. Il y a certainement
plus

simple

Cordialement
Pascal

"Jacky" a écrit dans le message
de news:
Bonjour à tous
A condition qu'il n'est pas besoin de la formule en H1, non??
sinon
'---------
[H1].Formula = "=NOW()"
[I19] = Now()
[a1].Select
'---------
Salutations
JJ

"AV" a écrit dans le message de
news:
et même....;-)
[Feuil1!A1] = Now()

AV

Copier + coller spécial + macro

5 réponses

Veuillez sélectionner un problème