Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 problème de version pour un scrip

sebbbbb

XLDnaute Impliqué
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
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

XLDnaute Impliqué
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…