Discussion :

[malababar]

Bonjour,

J'ai un classeur dans lequel on trouve :
3 feuilles de devis (Feuill1,Feuill2,Feuill3) et une feuille qui me sert de tableau de bord pour faire quelques actions répétitives à partir des 3 Feuilles de Données précédentes.
C'est depuis ce "tableau de bord" que j'exécute diverses macros qui tournent correctement.

Maintenant je souhaite pouvoir exporter mes 3 Feuilles en PDF et les enregistrer dans des répertoires qui se créent déjà depuis le tableau de bord.

Chemin$ ( c'est le chemin ou j'enregistre les répertoires puis les fichiers, ex. : F\:SOCIETE\DEVIS_2010\) se situe en B10 sur la feuille tableau de bord.
Repertoire$ (c'est un dossier qui porte le nom du client) se situe en B14 sur la feuille tableau de bord.
Fichier$ (c'est le nom du client et la version du devis) se situe en B26 sur la feuille tableau de bord.

Maintenant voici la macro "une idée de cette macro, mais qui bien sûr ne fonctionne pas..."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Export_PDF()
 
End Sub
Dim Chemin$, Repertoire$, Fichier$
Chemin = Range("B10")
Repertoire = Range("B14")
If Dir(Chemin & Repertoire, 16) = "" Then MkDir Chemin & Repertoire
Fichier = Range("B26")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin & Repertoire & "\" & Fichier ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
End Sub

Concrètement il y a un gros problème de mise en forme et je ne sais pas lui dire que c'est la feuill1 qu'il faut exporter.

J'espère que ce n'est pas trop confus et que quelqu'un saura m'aider.

Merci d'avance.

[PPz78]

Bonjour,

Avec quelle version d'Excel as tu des PB ?
Peux tu nous décrire ce qui se passe ?
A la main (sans macro) arrives tu à générer un PDF ?

PPz

[malababar]

Bonjour,

je travaille sur excel 2007.
J'arrive à exporter depuis excel en utilisant cette macro .

Code :

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

1
2
3
4
5
6
Sub Export_PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "O:\SOCIETE\Tableau d'évaluation vierge.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
   End Sub

Celle si fonctionne depuis la feuille active.
Mon soucis je veux exporter une autre feuille que celle qui est active.
En plus le nom est issu d'une case (B26) de mon tableau de bord.

Cdt.

[Invité]

La version d'Excel est indiquée à côté du titre du sujet.

[PPz78]

Et si à la place d'

Code :

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

ActiveSheet

tu mettais son petit nom ?

Ou encore, le temps de l'impression ne peux tu pas activer la feuille à imprimer ?

PPz

[malababar]

En fait le nom du fichier et du répertoire change à chaque nouveau devis.
Donc je dois utiliser des variables.

Code :

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

1
2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin & Repertoire & "\" & Fichier ".pdf",

Au lieau de activesheet il faudrait que je puisse appeler la "Feuill2" par exemple.
Ensuite pour

Code :

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

Chemin & Repertoire & "\" & Fichier ".pdf",

Je suis pas sûr du tout de la mise en forme.

[malababar]

Bon, jeviens de faire qqes modifs.
Voici ce que ça donne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Export_PDF()
    Dim Chemin$, Repertoire$, Fichier$
    Chemin = Range("B10").Select
    Repertoire = Range("B14").Select
    Fichier = Range("B26").Select
    Sheets("Tarif").Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & Repertoire & "\" & Fichier & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Quand je lance j'ai le message suivant:
Erreur d'éxecution 1004.
Documents non enregistré. Le documents est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement.

Qu'est ce qui cloche encore????

[mercatog]

pas testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Export_PDF()
Dim Chemin$, Repertoire$, Fichier$
With Sheets("TableauBord")                            'à adapter
    Chemin = .Range("B10")
    Repertoire = .Range("B14")
    Fichier = .Range("B26")
    Sheets("Tarif").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & _
        Repertoire & "\" & Fichier & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

[malababar]

Nickel!!!
Je viens d'essayer cette solution et ça fonctionne!!!!

De plus j'ai fait une petite modif car sur ma feuille tableau de bord il y avait un PB : La cellule B26 ( le nom du fichier ) contenais le Chr$ :

Parfait et encore Merci.

Cdt