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 ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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 ???
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
Bonjour Probablement protection en cause mais quel est le message d'erreur ? Cordialement Pascal
"sunburn" a écrit dans le message de 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
Bonjour
Probablement protection en cause mais quel est le message d'erreur ?
Cordialement
Pascal
"sunburn" <sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1CA07885-CB44-4AA2-84A0-EBFA91B68FBD@microsoft.com...
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 ???
Bonjour Probablement protection en cause mais quel est le message d'erreur ? Cordialement Pascal
"sunburn" a écrit dans le message de 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
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
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 ....
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
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
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
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
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
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 ???
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
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
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
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
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" a écrit dans le message de groupe de discussion : Précision : le code est dans le ThisWorkbook
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" <sunburn@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 3DAA6046-46FC-42D5-B546-5C7B95F63830@microsoft.com...
Précision :
le code est dans le ThisWorkbook
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" a écrit dans le message de groupe de discussion : Précision : le code est dans le ThisWorkbook
sunburn
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" a écrit dans le message de groupe de discussion : Précision : le code est dans le ThisWorkbook
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" <sunburn@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 3DAA6046-46FC-42D5-B546-5C7B95F63830@microsoft.com...
Précision :
le code est dans le ThisWorkbook
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" a écrit dans le message de groupe de discussion : Précision : le code est dans le ThisWorkbook