PhunkyBob

Envoyé par PhunkyBob

Bonjour,

Personnellement, je trouve les rapports dans QlikView particulièrement pas pratique.

Je préfère largement passer par une macro qui fera l'export dont j'ai besoin.

Par exemple :

Code vb :

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
25
26
27
28
29
30
31
32
sub export_all
 
	for i = 0 to ActiveDocument.NoOfSheets - 1
		set sh = ActiveDocument.GetSheet(i)
		shID = sh.GetProperties.SheetId
		shName = str_clean(sh.GetProperties.Name)
 
		'msgbox(shId & " - " & shName)
 
		ActiveDocument.Sheets(shId).Activate
		ActiveDocument.GetApplication.WaitForIdle
 
		'msgbox "C:\temp\" & i & ". " & shName & ".bmp"
		ActiveDocument.Sheets(shId).ExportBitmapToFile "C:\temp\" & i & ". " & shName & ".bmp"
		ActiveDocument.GetApplication.WaitForIdle
	next
end sub
 
Function str_clean (strtoclean)
	Dim objRegExp, outputStr
	Set objRegExp = New Regexp
 
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "[(?*"",\\<>&#~%{}+_.@:\/!;]+"
	outputStr = objRegExp.Replace(strtoclean, "-")
 
	objRegExp.Pattern = "\-+"
	outputStr = objRegExp.Replace(outputStr, "-")
 
	strClean = outputStr
End Function

La macro "export_all" fera le tour des feuilles, et les enregistrera en tant qu'image dans le répertoire "c:\temp".

On peut améliorer la macro en définissant la taille de la fenêtre, en exportant vers un document PowerPoint, etc...