Discussion :

[robindr400]

Bonjour,

Apres avoir epluché plein de topic sur le forum, je suis coincé !

Voici mon projet.

J ai un classeur excel qui contient une page de menu. Sur cette page de menu j ai mis mes variables qui me donne le repertoire et le nom du fichier. Jusque la tout va bien.

Je souhaite selectionner quelques feuilles de mon classeur (feuille : fraise ; feuille : framboise ; feuille banane) ; definir pour chaque feuille la zone a imprimer en pdf (fraise : a1 : f42 ; framboise : b2 : j65 ; banane : b8 : h57) et prendre dans ma feuille menu le chemin et le nom du fichier qui se trouve en AZ1.

Et bhen ... j'y arrives po !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Pour l'instant j ai fais ca :
 
Sub sauvepdf()
 
 
Worksheets("Fraise").Range("A1:F42").ExportAsFixed Format Type:=xlTypePDF, _
Filename:=[AZ1].Value 
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
 
End Sub

Sauf que :

Je ne sais pas comment lui dire d aller chercher le nom sur la feuille menu ni comment lui dire qu il y a 3 onglets ....

Quelqu'un peut m'aider :-)

Merci d'avance

[Gado2600]

Bonjour,

J'ai eu quelques soucis pour l'exportation PDF de seulement quelques onglets d'un fichier excel.

En effet, pour ma part, excel m'exportait tous les onglets sans restriction.
Je te conseille donc de réaliser une copie de tes onglets dans un autre document Excel.
Si mes souvenirs sont exacts, il exportera chacun de tes onglets dans un fichier PDF à part. Il te suffira donc de fusionner ces fichiers (il y a un excellent topic sur la fusion de fichiers PDF sur le forum réalisé par kiki)

Après, pour le nom du fichier dans le menu, je ne comprends pas vraiment où tu coinces. Il te suffit de lire le contenu de la cellule en question :

Code :

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

thiworkbook.sheets("Menu").range("A1").text

Ou alors, on manque de détails.


Cordialement,