Erreur code

Le
sunburn
Bonjour,
j'ai un code qui fonctionnait bien avant des tests sous 2007, et maintenant
ça bug en Excel 2003.
C'est pour inscrire la date du jour dans une plage avant l'impression, afin
d'avoir un suivi des impressions.

voici le code :
-
'pour insérer la date du jour dans la plage "date"
Private Sub Workbook_BeforePrint(cancel As Boolean)
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date '********ça bug ici
*********
End If
End Sub
-

Si vous avez des idées du pourquoi ça plante ? protection de feuille ???

merci.
YANN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20440541
bonjour Yann,

essai avec :

range(C.Address).Offset(1) = Date

isabelle



sunburn a écrit :
Bonjour,
j'ai un code qui fonctionnait bien avant des tests sous 2007, et maintenant
ça bug en Excel 2003.
C'est pour inscrire la date du jour dans une plage avant l'impression, afin
d'avoir un suivi des impressions.

voici le code :
-------
'pour insérer la date du jour dans la plage "date"
Private Sub Workbook_BeforePrint(cancel As Boolean)
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date '********ça bug ici
*********
End If
End Sub
-------

Si vous avez des idées du pourquoi ça plante ? protection de feuille ???

merci.
YANN



papou
Le #20440531
Bonjour
Probablement protection en cause mais quel est le message d'erreur ?
Cordialement
Pascal

"sunburn" news:
Bonjour,
j'ai un code qui fonctionnait bien avant des tests sous 2007, et
maintenant
ça bug en Excel 2003.
C'est pour inscrire la date du jour dans une plage avant l'impression,
afin
d'avoir un suivi des impressions.

voici le code :
-------
'pour insérer la date du jour dans la plage "date"
Private Sub Workbook_BeforePrint(cancel As Boolean)
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date '********ça bug ici
*********
End If
End Sub
-------

Si vous avez des idées du pourquoi ça plante ? protection de feuille ???

merci.
YANN


sunburn
Le #20441051
Bonjour,
le message qu'il me met est :
------
erreur d'execution '1004' :
Erreur définie par l'application ou par l'objet
-----
j'ai testé avec le code d'isabelle, même message ....

YANN
michdenis
Le #20441031
Bonjour Sunburn,

Si tu veux utiliser une variable objet de type "Range",
pourquoi ne pas la définir au préalable.

Dim C as range
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date
End if
Daniel.C
Le #20441021
Bonjour.
Tu parles d'une plage "date". Le mot est réservé, tu ne devrais
l'utiliser. Essaie de le changer.
Daniel

Bonjour,
j'ai un code qui fonctionnait bien avant des tests sous 2007, et maintenant
ça bug en Excel 2003.
C'est pour inscrire la date du jour dans une plage avant l'impression, afin
d'avoir un suivi des impressions.

voici le code :
-------
'pour insérer la date du jour dans la plage "date"
Private Sub Workbook_BeforePrint(cancel As Boolean)
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date '********ça bug ici
*********
End If
End Sub
-------

Si vous avez des idées du pourquoi ça plante ? protection de feuille ???

merci.
YANN


sunburn
Le #20441141
bonjour,
j'ai essayé, ça, et ça bug toujours, le même message :
---------
'pour insérer la date du jour dans la plage "date"
Private Sub Workbook_BeforePrint(cancel As Boolean)
Dim C As Range
Set C = [DA!N64].End(xlUp)
If IsDate(C) And C.Value <> Date Then
'Range(C.Address).Offset(1) = Date
C.Offset(1).Value = Date
End If
End Sub
---------
YANN

"michdenis" wrote:

Bonjour Sunburn,

Si tu veux utiliser une variable objet de type "Range",
pourquoi ne pas la définir au préalable.

Dim C as range
Set C = [DA!N65].End(xlUp)
If IsDate(C) And C.Value <> Date Then
C.Offset(1).Value = Date
End if





sunburn
Le #20441131
Précision :
le code est dans le ThisWorkbook
michdenis
Le #20441451
Si ça ne fonctionne pas, tu dois chercher une raison autre que
le passage d'une version office 2007 à 2003.
J'ai testé ce code sous 2003 et cela n'a généré aucun problème !



"sunburn" discussion :
Précision :
le code est dans le ThisWorkbook
sunburn
Le #20441551
Ok, en creusant, je désactive te je réactive le protection de la feuille "DA" :
Sheets("DA").Unprotect
C.Offset(1).Value = Date
Sheets("DA").Protect

et là c'est OK......
Bizarre, car avant ça marchait sans problème..... j'ai du toucher quelque
chose qui fallait pas.
Merci à vous tous.
YANN


"michdenis" wrote:

Si ça ne fonctionne pas, tu dois chercher une raison autre que
le passage d'une version office 2007 à 2003.
J'ai testé ce code sous 2003 et cela n'a généré aucun problème !



"sunburn" discussion :
Précision :
le code est dans le ThisWorkbook



Publicité
Poster une réponse
Anonyme