XL 2010 problème de version pour un scrip

[sebbbbb]

bonjour

le scrip ci-dessous fonctionne tres bien avec excel 2007 mais pas du tout avec excel 2010. Peut on y remédier svp ?

**

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "CSR" Then
If Sheets("CSR").Range("I9").Value = "" Or Sheets("CSR").Range("N9").Value = "" Then
Cancel = True
MsgBox "Veuillez insérer les dates de mise a quai et départ du navire pour pouvoir imprimer"
End If
End If

ensub

**

merci par avance
seb

 

[sebbbbb]

Ok merci
J essaie ce soir
Je te confirme que les fichiers sont exactement les memes d un ordi a l autre

Seul diff au boulot, j ai le choix entre plusieurs imprimantes. Cela pourrait il etre la cause ?

Merci
Seb

 

[vgendron]

j'ai noté une chose dans ton code
pour les derniers cas de feuille active: à partir de la feuille SOF EXXON
tu regardes le contenu de E15 dans la feuille "Données" (et plus dans la feuille active comme pour les cas précédents)
et ta syntaxe est telle que: si le contenu n'est pas bon, alors tu fais "cancel=true"
et le msgbox est affiché quelque soit le contenu
c'est peut etre normal?

 

[sebbbbb]

Oui c est voulu et cela fonctionne chez moi

 

[sebbbbb]

EUREKA !

J'ai trouvé. En fait les 2 codes fonctionnent très bien sur les 2 bécanes. La seule différence c'est que sur mon ordi de boulot le message apparaît après avoir lancé le OK sur la boite de dialogue de l'imprimante alors que chez moi, cela se fait des que je clique sur fichier / imprimer

merci en tout cas pour le temps passé à essayer de me dépatouiller

seb