Classement de fournisseurs et lancement automatique

pierrejean

XLDnaute Barbatruc

• 26 Mai 2012

• #2

Re : Classement de fournisseurs et lancement automatique

Bonjour lilijolie

Teste ceci
L'enregistrement des .PDF se fait dans le même repertoire que celui du fichier
Il est evidemment possible de le mettre dans un autre repertoire (sous reserve d'en connaitre le chemin complet )
Ps: devrait fonctionner aussi bien sous 2007 que 2010

 

Pièces jointes

• Vision 2012 - Ranking Supplier PROD-v.26.05.2012.xlsm

  89.4 KB · Affichages: 407

Vote positif 0 Vote négatif

L

lilijolie

XLDnaute Nouveau

• 26 Mai 2012

• #3

Re : Classement de fournisseurs et lancement automatique

Bonjour PierreJean,

Et merci beaucoup pour votre aide. J'ai toutefois un problème au niveau de la macro : faut-il que je change un élément pour le chemin de l'enregistrement car elle ne semble pas fonctionner (j'ai enregistré le fichier sous mon Bureau)?

D'avance merci
Lilijolie

 

Vote positif 0 Vote négatif

L

lilijolie

XLDnaute Nouveau

• 26 Mai 2012

• #4

Re : Classement de fournisseurs et lancement automatique

Ou alors est-ce parce que je n'ai pas le programme permettant de convertir les fichiers en .pdf sur mon ordinateur personnel ?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 26 Mai 2012

• #5

Re : Classement de fournisseurs et lancement automatique

Bonjour lilijolie, salut pierrejean 🙂

Juste pour éviter à ce dernier de s'interroger inutilement: le code fonctionne sur ma machine (XL 2010) 😉

@lilijolie: tu as essayé sans modifier la macro de pierrejean, en laissant comme emplacement de sauvegarde, le répertoire où ton fichier Excel est enregistré?

 

Vote positif 0 Vote négatif

L

lilijolie

XLDnaute Nouveau

• 26 Mai 2012

• #6

Re : Classement de fournisseurs et lancement automatique

Merci beaucoup pour votre aide, finalement ça marche très bien (je laissais le fichier Excel sous les fichiers temporaires, du coup les PDF ont été exportés dans les fichiers temporaires alors que je les cherchais sur le bureau !). Pour exporter, sous un meme pdf, non pas un mais deux onglets (Synthèse et Comm), suffit il que je copie le code et change le nom de l'onglet ?

En tous cas, votre solution est juste géniale ! (j'aurais 68 fournisseurs à faire, ca prendra peut etre un peu de temps à l'exécution mais ca sera toujours plus rapide que d'entrer les 68 fournisseurs un à un !)

Encore merci !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2012

• #7

Re : Classement de fournisseurs et lancement automatique

Re

Voici l'adaptation pour avoir aussi les Comm (mais pas dans le même Pdf que les syntheses)
Pour adapter le repertoire modifier la ligne
chemin = ThisWorkbook.Path
en n'oubliant pas les \ ex: chemin= "C:\mon_premier_repertoire\mon_second repertoire"

Code:

Sub test()
chemin = ThisWorkbook.Path
Application.ScreenUpdating = False
For n = 3 To Sheets("Basis").Range("A" & Rows.Count).End(xlUp).Row
  Range("E7") = Sheets("Basis").Range("A" & n)
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\Syn_" & Sheets("Basis").Range("A" & n) & "_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
  Sheets("Comm").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\Comm_" & Sheets("Basis").Range("A" & n) & "_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
Next n
Application.ScreenUpdating = True
End Sub

 

Dernière édition: 26 Mai 2012

Vote positif 0 Vote négatif

L

lilijolie

XLDnaute Nouveau

• 26 Mai 2012

• #8

Re : Classement de fournisseurs et lancement automatique

Merci PierreJean !
Dommage que je ne puisse pas avoir les deux onglets sous le meme PDF mais c'est déjà énorme ce que vous avez réussi à faire !

Bonne soirée
Lilijolie

 

Vote positif 0 Vote négatif

B

Bils38

XLDnaute Nouveau

• 26 Avril 2013

• #9

Re : Classement de fournisseurs et lancement automatique

Bonjour,

Etant actuellement étudiant, j'ai un projet achat à mener et dans lequel un système d'évaluation performance fournisseurs est à mettre en place. Je souhaite m'inspirer de ce fichier excel. Ainsi je souhaiterais savoir comment puis je modifier l'inscription Liebehr EADS qui apparait en format PDF ?

En vous remerciant,

Bils

 

Vote positif 0 Vote négatif

L

lilijolie

XLDnaute Nouveau

• 26 Avril 2013

• #10

Re : Classement de fournisseurs et lancement automatique

Bonjour,

Il vous suffit d'aller dans l'en tete du fichier excel et d'enlever l'en tete de gauche (et autres informations qui ne vous sont pas utiles).

Cordialement,

 

Vote positif 0 Vote négatif

B

Bils38

XLDnaute Nouveau

• 26 Avril 2013

• #11

Re : Classement de fournisseurs et lancement automatique

D'accord,

Je vous remercie !

Bien cordialement,

 

Vote positif 0 Vote négatif

B

Bils38

XLDnaute Nouveau

• 17 Mai 2013

• #12

Re : Classement de fournisseurs et lancement automatique

Bonjour,

Je souhaiterais rajouter des critères de performance sur le fichier. Pouvez-vous me dire si c'est possible ? Et si oui comment puis je faire ?

Dans l'attente d'une réponse,

Bien cordialement,

C.H

 

Vote positif 0 Vote négatif