Discussion :

[brahda]

bonjour
j'ai crée une petite application en vb6 qui gère la mission au sein d'une établissement .mais lorsque je clique sur la commande imprimer un document excel ce message s'affiche " le document est peut-être en lecteur seul ou crypté"
merci pour votre aide

[rtg57]

Bonjour,

c'est vague comme info:
- Quel EXCEL utilisez-vous ?
- Lorsque vous voulez imprimer, c'est à travers le code Visual Basic, ou vous utilisez la commande 'Imprimer' du menu 'Fichier' ?
- Si c'est du code VBA, pouvez-vous nous transmettre une partie de celui-ci ?

@ bientôt....

[brahda]

salut
excel 2003
la commande imprimer d'après vb6
voila la parie de code ou se trouve le chemin de document

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("E:\stage-ANCFCC\etape finale\pvdeplacement")
 
 
Set bd = OpenDatabase("ismailo")
Set rc = bd.OpenRecordset("sortie")
Set rs = bd.OpenRecordset("personnel")
 
'redimensionner la hauteure des lignes
Cells.Select
Selection.RowHeight = 12
 
 
 
With appExcel.ActiveSheet.PageSetup
 
'Set left margin to 0.25 inches 'Set marge de gauche à 0,25 pouces
            .LeftMargin = appExcel.InchesToPoints(0.1)
'Set right margin to 0.25 inches «Marge de droite Set à 0,25 pouces
            .RightMargin = appExcel.InchesToPoints(0.1)
            .TopMargin = appExcel.InchesToPoints(0.1)
            .BottomMargin = appExcel.InchesToPoints(0.1)