pdf

[rvkgb]

bonjour le forum,

J'ai un fichier un peu lourd (même zippé) pour être mis en PJ.
Ce fichier a 3 feuilles avec des données ainsi que des numéros de semaine en automatique. Lorsque je valide par un bouton de commande la suppression de la feuille 1, la 2 et la 3 se décalent d'une feuille (les données viennent sur la feuille 1 etc...). Avant que la feuille 1 disparaisse, je voudrais un document pdf que je pourrais sauvgarder dans un dossier. Avez vous une idée ?
Merci pour votre contribution.

 

[condors.s]

Re : pdf

Si tu as Excel 2007 ou plus, tu peux essayer d'adapter ce bout de code :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\Factures\" & Sheets("Facture N°").Range("D5") & Sheets("Facture N°").Range("A9") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

 

[rvkgb]

Re : pdf

bonjour condors.s

Oui, j'ai 2007. Je vais essayer le code et te tiens au courant. Merci
A+

 

[condors.s]

Re : pdf

En fait la partie du code suivante défini l'emplacement ou tu enregistre le fichier et son nom.
Ici, le pdf est enregistré dans un dossier nomé "Dossier sauvegardes" qui se trouve à coté de l'endroit ou est ton fichier Excel (il faut que tu créé le dossier)

Ensuite il faut que tu donnes un nom à ton fichier, dans mon exemple il s'appel "Nom Fichier + contenu de la cellule D5".

Pour que ton affaire marche il faut bien sur que chaque enregistrement est un nom différent, il faut donc que tu trouves un façon de le nommer qui te convient et qui change à chaque enregistrement

ThisWorkbook.Path & "\Dossier sauvegardes\" & Sheets("Nom Fichier").Range("D5") & Sheets("Facture N°").Range("A9") & ".pdf"

 

[rvkgb]

Re : pdf

Re,

le bout de code ne fonctionne pas. J'ai un message "erreur de compilation"
Merci de votre aide.

 

[condors.s]

Re : pdf

le bout de code ne fonctionne pas.

Ca ne fonctionne pas parceque tu ne l'a pas adapté. As tu créé un dossier dont le nom est le même que celui du code?

Remplace "Facture N°" par le nom de l'onglet concerné et D5 et A9 par les cellules que tu veux utiliser

Si pb poste ton fichier je regarderais

 

[rvkgb]

Re : pdf

bonjour

Tu as raison, je l'ai collé sans l'adapter....Je reviens vers toi si ça ne fonctionne pas.
Bonne journée

 

[rvkgb]

Re : pdf

Re,

j'ai mis mon fichier en ligne car je n'arrive pas à le faire fonctionner.
Merci de votre aide.

http://cjoint.com/?iBiobJoRyU

 

[condors.s]

Re : pdf

Tu trouveras ton fichier à l'adresse : http://cjoint.com/?iBkh3kp4yF

Le code utilisé est

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\Dossier Choisi\" & Sheets("EN COURS").Range("A1") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Il faut que tu créé un dossier appelé "dossier choisi" qui aurait la même adresse que ton fichier Excel.
Si tu change le nom du dossier, change le code avec...

 

[rvkgb]

Re : pdf

Merci condors, je vais tester.
A+