Conversion de certaines feuilles du classeur en PDFRésolu

Question

Bonjour à tous,

J'ai fais plusieurs recherche sur différents sites afin de pouvoir trouver une macro qui me permette de convertir certaines feuille de mon classeur excel en PDF.

Voici ce que je voudrais :

Je souhaiterais créer un bouton qui soit capable de convertir les feuilles nommé sauf celles nommée "vierge". Par-contre, s'il serait possible d'avoir le choix de l'imprimante ?

Je possède déjà une macro mais celle ci convertie le classeur complet.

Je vous remercie pour votre aide,

Bonne journée à tous.

Christian




--

cs_Le Pivert · Answer

Bonjour,

Voici une macro qui convertie la feuille active en PDF, avec l'aide de PDFCreator qu'il faut avoir sur sa machine. Si cela peut te convenir. PDFCreator est un logiciel gratuit.

Voici la macro dans les balises:

Sub ToPdf()Dim chemsave As Stringchemsave = "C:\chemin dossier destination\" 'chemin destinationSet pdfjob = CreateObject("PDFCreator.clsPDFCreator")NomExcel = ThisWorkbook.NameNomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"With pdfjobIf .cstart("/NoProcessingAtStartup") = False ThenMsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"Exit SubEnd If.cOption("UseAutosave") = 1.cOption("UseAutisaveDirectory") = 1.cOption("AutosaveDirectory") = chemsave 'chemin destination.cOption("AutosaveFilename") = NomPdf.cOption("AutosaveFormat") = 0.cClearCacheEnd With ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"Do Until pdfjob.cCountOfPrintjobs = 1DoEventsLooppdfjob.cPrinterStop = FalseDo Until pdfjob.cCountOfPrintjobs = 0DoEventsLoopWith pdfjob.cDefaultprinter = DefaultPrinter.cClearCache.cCloseEnd WithSet pdfjob = NothingMsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"End Sub
 
et pour ceux qui comme moi voient le code dans les balises sur une seule ligne, voici le code sans balises:


Sub ToPdf()

Dim chemsave As String
chemsave = "C:\chemin dossier destination\" 'chemin destination
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = chemsave 'chemin destination
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active
'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
MsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"
End Sub

cco86260 · Answer

Bonjour cs_Le Pivert,

Merci pour ta réponse, ta macro se rapproche de ce que je voudrais, seulement, il faudrait que toutes les feuilles soient convertie en PDF sauf celle qui est nommée "VIERGE". Je vais quand même t'expliquer mon projet.

C'est une feuille de pointage hebdomadaire de la société ou je travail. A l'ouverture de ce fichier, une feuille nommée "MATRICE" est dupliquer et nommée "VIERGE", la "MATRICE" est bien sur cacher par la suite. Ensuite, il y a un bouton nommé "POINTAGE SUIVANT" qui nomme la feuille en cours et me créer une nouvelle trame "VIERGE" en fonction d'une cellule "NOM".

C'est pour cela que je souhaite une macro de ce type car les anciens de la société ne sont pas très adepte de l'informatique... 

Cependant, s'il existe une possibilité d'utiliser une macro pouvant ouvrir une fenêtre laissant choisir l'imprimante PDF mais la destination par défaut (/MesDocuments/Pointages) par exemple.

En tous cas merci pour ton aide ainsi que celle des autres ;-)

Une bonne journée a tous.

Christian
--

cs_Le Pivert · Answer

Pour sélectionner une imprimante:

Une UserForm, une ListBox.

allez dans Outils- References et cochez : PDFCreator

Le code dans les balises: 

Private Type PRINTER_INFO_5  pPrinterName As String  pPortName As String  Attributes As Long  DeviceNotSelectedTimeout As Long  TransmissionRetryTimeout As LongEnd TypePrivate Declare Function EnumPrintersA Lib "Winspool.drv" _  (ByVal flags As Long, ByVal name As String, ByVal Level As Long, _  pPrinterEnum As Long, ByVal cdBuf As Long, _  pcbNeeded As Long, pcReturned As Long) As LongPrivate Declare Function lstrlenA Lib "Kernel32" _  (ByVal lpString As Any) As LongPrivate Declare Function lstrcpyA Lib "Kernel32" _  (ByVal lpString1 As String, ByVal lpString2 As Long) As LongSub Test()Dim PrinterEnum() As Long, Impr() As String  Dim Needed As Long, Returned As Long, I As Integer EnumPrintersA 2, vbNullString, 5, 0, 0, Needed, 0  ReDim PrinterEnum(Needed / 4)  EnumPrintersA 2, vbNullString, 5, PrinterEnum(0), _    Needed, Needed, Returned  ReDim Impr(1 To Returned)  For I = 1 To Returned    Impr(I) = Space$(lstrlenA(PrinterEnum(I * 5 - 5)))    lstrcpyA Impr(I), PrinterEnum(I * 5 - 5)  Next I  Range("A1").Resize(Returned) = WorksheetFunction.Transpose(Impr) Columns(1).AutoFitEnd SubPrivate Sub ListBox1_Click()Range("B1") = ListBox1.ValueRange("C1") = "1"End SubPrivate Sub UserForm_Initialize() Sheets("Feuil2").SelectTestListBox1.RowSource = "A1:A10" 'affiche les imprimantes dans la listBoxEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Range("C1") = "" Then MsgBox "Vous devez sélectionner votre imprimante par défaut.", vbInformation, "Imprimantes" If CloseMode = 0 Then Cancel = TrueElse Sheets("Feuil1").Select End IfEnd Sub

Et sans balises pour pouvoir me relire:

Private Type PRINTER_INFO_5
  pPrinterName As String
  pPortName As String
  Attributes As Long
  DeviceNotSelectedTimeout As Long
  TransmissionRetryTimeout As Long
End Type

Private Declare Function EnumPrintersA Lib "Winspool.drv" _
  (ByVal flags As Long, ByVal name As String, ByVal Level As Long, _
  pPrinterEnum As Long, ByVal cdBuf As Long, _
  pcbNeeded As Long, pcReturned As Long) As Long

Private Declare Function lstrlenA Lib "Kernel32" _
  (ByVal lpString As Any) As Long

Private Declare Function lstrcpyA Lib "Kernel32" _
  (ByVal lpString1 As String, ByVal lpString2 As Long) As Long

Sub Test()
Dim PrinterEnum() As Long, Impr() As String
  Dim Needed As Long, Returned As Long, I As Integer
 EnumPrintersA 2, vbNullString, 5, 0, 0, Needed, 0
  ReDim PrinterEnum(Needed / 4)
  EnumPrintersA 2, vbNullString, 5, PrinterEnum(0), _
    Needed, Needed, Returned
  ReDim Impr(1 To Returned)
  For I = 1 To Returned
    Impr(I) = Space$(lstrlenA(PrinterEnum(I * 5 - 5)))
    lstrcpyA Impr(I), PrinterEnum(I * 5 - 5)
  Next I
  Range("A1").Resize(Returned) = WorksheetFunction.Transpose(Impr)
 Columns(1).AutoFit
End Sub
Private Sub ListBox1_Click()
Range("B1") = ListBox1.Value
Range("C1") = "1"
End Sub
Private Sub UserForm_Initialize()
 Sheets("Feuil2").Select
Test
ListBox1.RowSource = "A1:A10" affiche les imprimantes dans la listBox
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If Range("C1") = "" Then
 MsgBox "Vous devez sélectionner votre imprimante par défaut.", vbInformation, "Imprimantes"
 If CloseMode = 0 Then Cancel = True
Else
 Sheets("Feuil1").Select
 End If
End Sub

Voilà pour les imprimantes. Pour la conversion des feuilles, rien de plus simple, il suffit de sélectionner la feuille comme ceci avant de la convertir:

Sheets("Feuil2").Select'remplacer par le nom de la feuille
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active 

Bonne programmation, n'hesite pas si tu as des problèmes

cco86260 · Answer

Bonjour,

Je viens d'essayer la macro que vous m'avez proposer, mais je ne sais pas interpréter ce qu'il se passe... c'est bizzare.

J'ai surement du mal m'expliquer.

Admettons :

j'ai réaliser 5 pointages, donc 5 feuilles nommés (pierre,paule,jacque,michel,robert) et une "vierge", j'aurais pu avoir 10 pointages cela aurais été pareil, il y auras toujours la "VIERGE"

Une fois ces pointages réalisés, je souhaite les convertir en PDF SAUF la "VIERGE"

Donc soit un bouton qui, quand je clique dessus me sélectionne toute les feuilles sauf la "VIERGE" ou lorsque je clique sur ce bouton m'ouvre une fenêtre et me propose une selection des feuilles à convertir.

Je pense que la sélection de l'imprimante doit être assez compliquée a mettre en oeuvre sous forme de macro.

Voici donc le cheminement souhaité :

réalisation des différents pointages >> clique sur le bouton "convertir en pdf">> ouvre une fenêtre "quelle feuille souhaitez vous convertir ?"

Est ce compliquer a réaliser ?

Ne me fais surtout pas le travail, je veux comprendre, ou sinon met moi des commentaires ;)

Mais merci a toi de me consacrer du temps.

Christian
 
 
--

cs_Le Pivert · Answer

Dans une UserForm mettre un ComboBox et un Button avec ce code:

Option Explicit
Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Select 'sélection de la feuille
ToPdf 'conversion en pdf
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("Feuil1")'a adapter le nom des feuilles
ComboBox1.AddItem ("Feuil2")
ComboBox1.AddItem ("Feuil3")
ComboBox1.AddItem ("Feuil4")
ComboBox1.AddItem ("Feuil5")
ComboBox1.Text = "Feuil1"
'Tu peux remplacer par ComboBox1.RowSource
'tu sélectionnes RowSource et tu fais F1 pour l'explication
End Sub

Ensuite dans un module mettre ceci:

Sub ToPdf()
Dim chemsave As String
chemsave = "C:\chemin dossier destination\" 'chemin destination
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
'NomExcel = ThisWorkbook.Name
'NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = chemsave 'chemin destination
.cOption("AutosaveFilename") = UserForm1.ComboBox1.Value & ".pdf" 'nom de la feuille
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active
'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
MsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"
End Sub

Je n'ai pas mis le code dans les balises car mon navigateur ne lit le code que sur une seule ligne. C'est illisible

cs_Le Pivert · Answer

J'ai trouvé encore plus simple pour remplir ton Combo:

Option Explicit
Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Select 'sélection de la feuille
ToPdf 'conversion
End Sub
Private Sub UserForm_Initialize()
Listerfeuille
 ComboBox1.ListIndex = 0 'sélection du 1er index
End Sub
Sub Listerfeuille()
Dim Feuille As Object
For Each Feuille In Worksheets
    ComboBox1.AddItem (Feuille.Name)'remplissage du combo
Next Feuille
End Sub
 
Bonne programmation

cs_Le Pivert · Answer

Dans le dernier code tu vas trouver ta feuille "VIERGE" afficher dans ton combo. Pour empêcher l'utilisateur de la sélectionner, tu mets ceci:

Private Sub ComboBox1_Change()
If ComboBox1.Value = "VIERGE" Then
CommandButton1.Enabled = False
MsgBox "Vous ne pouvez pas convertir cette feuille", vbExclamation, "Conversion"
Else
CommandButton1.Enabled = True
End If
End Sub

cco86260 · Answer

Bonjour cs_Le Pivert,

Me voici de retour après quelques jour intensif de boulot ;) ,

Donc je viens de faire ma macro (enfin de mettre en place car c'est ton travail finalement, et bravo ! ) je ne te remercierais jamais assez :) .

Par contre, petit problème :

1er) j'ai un 429 lorsque je clique sur le bouton pour qu'il me créé le PDF "Un composant Active X ne peux pas créer l'objet"

J'ai PDFCréator pro 10 
et Adobe acrobat pro 10 aussi (conflit peut être ?)

Ensuite dans la liste des feuille a imprimer il m'affiche la "MATRICE" ainsi que la "VIERGE", ne peut-on pas empêcher ça ?

J'ai 2 autres bouton qui fonctionnent parfaitement que je voudrais insérer a ma UserForm, comme ça, cela fera une barre d'outil ;) il y a une procédure spécial pour ça ou je peux les mettre comme ça ?


Merci a toi, passe une bonne journée,

Christian
--

cs_Le Pivert · Answer

As- tu coché la référence  PDFCreator  . Allez dans Outils- Références et chercher dans le menu déroulant PDFCreator.

Pour supprimer les feuilles dans la liste du ComboBox mettre ceci:

Private Sub UserForm_Initialize()Listerfeuille ComboBox1.ListIndex = 0 ComboBox1.RemoveItem (2)' a adapterComboBox1.RemoveItem (5)End Sub

Mettre les index correspondants, sans oublier que le 1er index est 0

cs_Le Pivert · Answer

J'ai oublié, pour les boutons tu peux les mettre dans ton UserForm. Ensuite tu cliques dessus pour avoir accès au code et tu mets le code correspondant à ton bouton.

cs_Le Pivert · Answer

Pour le message d'erreur si cela persiste regarde ceci:

 http://codes-sources.commentcamarche.net/source/50978-suppression-message-securite-a-l-utilisation-d-un-controle-activex-sous-excel

cco86260 · Answer

Re,

Je ne comprend trop pour les index correspondant, je cherche sur internet mais ...

Comment faut il adapter ? 

J'ai bien fais l'essaie avec :

Private Sub UserForm_Initialize()Listerfeuille ComboBox1.ListIndex = 0 ComboBox1.RemoveItem (0)' a adapterComboBox1.RemoveItem (1)End Sub 

Mais j'ai une erreur avec plein de chiffre... 

Christian
 
--

cs_Le Pivert · Answer

Si tu supprime le 1er index = 0 , tu ne peux pas le sélectionner, tu dois en sélectionner un autre comme ceci:

Private Sub UserForm_Initialize()Listerfeuille ComboBox1.RemoveItem (0)' a adapterComboBox1.RemoveItem (1)ComboBox1.ListIndex = 2End Sub

Tu dois compter à quelle place se situe tes feuilles à supprimer en partant de 0 et tu mets les chiffres correspondants à ces feuilles

cco86260 · Answer

Concernant mon erreur de contrôle, en faite, mauvaise version de pdf creator, j'avais pris PDF pro 10


Mais ca fonctionne avec PDF Creator 1.7.1

Merci, 
 
--

cco86260 · Answer

Donc ça fonctionne, j'ai juste quelque petite chose à régler, si tu es d'accord pour me consacrer un peu de temps ?

Je pense que çela devrait être rapide, je te montre :

1/ est ce qu'il est jouable de : lorsque que je clique sur "convertir en PDF" il me crée un dossier nommé en fonction du numéro de semaine indiqué en cellule AZ10 ? le nom donnerait POINTAGE-S44 par exemple

2/ pour ma boite a outil, à l'ouverture du fichier il faudrait qu'il m'ouvre une boite avec :

1 bouton "Suivant"
1 bouton "Fermer sans enregistrer"
1 bouton "Convertir en PDF" qui fasse appel as tout ton fabuleux travail...

Je dois créer un userform avec ces 3 boutons dont 1 qui appelera une deuxieme userform ?

Merci encore,

Je ne t'embêterais plus après, sauf si tu veux être mon professeur (lol)
 
--

cs_Le Pivert · Answer

Pour creer un dossier tu ajoutes un bouton sur ton UserForm avec ce code:

Option ExplicitDim semaine As StringPrivate Sub CommandButton2_Click()semaine = Range("A1") 'a adapterdossier 'création dossierchemsave = "C:\chemin repertoire\" & semaine & "\"End SubSub dossier()If Len(Dir("C:\chemin repertoire\" & semaine, vbDirectory)) = 0 Then 'chemin a adapter   MkDir "C:\chemin repertoire\" & semaineEnd IfEnd Sub 
 
Dans le module de conversion en pdf tu mets ceci

Option ExplicitPublic chemsave As String

et tu supprimes le chemin de destination que tu avais mis pour les essais

Pour ouvrir ton UserForm à l'ouverture de ton classeur tu mets ceci dans ThisWorkbook

Private Sub Workbook_Open()CreateBOUserForm1.ShowEnd Sub

cco86260 · Answer

Salut,

Bien vois-tu, j'ai mis les main dans le cambouis un peu, il faut bien que je comprenne :),

il me restait l'USF a faire démarrer, merci pour la solution

Par-contre cette nuit mon pc a fait la mise a jour vers WIN 8.1 et depuis mon pdfcreator ne fonctionne plus sur la macro mais le logiciel fonctionne ?? 

Donc là, je me suis créer ma boite a outil avec mes 4 boutons 
"Suivant"; "Convertir"; "Importer et envoyer"; "Fermer sans enregistrer"

Pour le "importer et envoyer" ça va être compliqué : car la macro doit demander si je veux scanner les documents qui ont été signé et ensuite les mettre en partance dans "lotus"... en sachant que je dois choisir le scanner car dans la boutique on a pas tous les mêmes imprimantes.

Mais je pense que ça fera l'objet d'un autre poste...

Merci a toi
--

cco86260 · Answer

Re,

Dis moi, j'ai un bug :

Option ExplicitDim semaine As StringPrivate Sub CommandButton2_Click()semaine = Range("AZ10") 'a adapterdossier 'création dossierchemsave = "C:\chemin repertoire\" & semaine & "\"End Sub 

Il me dit : "Erreur de compilation, variable non défini"

Je cherche mais trouve pas ce qu'il se passe ?

Merci
--

cs_Le Pivert · Answer

As tu déclaré ta variable chemsave comme je te l'avais indiqué 
 
Dans le module de conversion en pdf tu mets ceci 

Option ExplicitPublic chemsave As String

cco86260 · Answer

ça oui, en faite il me surligne la ligne :

Option ExplicitDim semaine As StringPrivate Sub CommandButton2_Click()semaine = Range("AZ10") 'a adapterdossier 'création dossierchemsave = "C:\chemin repertoire\" & semaine & "\"""End Sub 

Dim semaine As string
 
--

cco86260 · Answer

je t'enverrais bien mon fichier mais je sais pas comment... lol 
 
--

ucfoutu · Answer

s'il te souligne vraiment cette ligne-là, c'est qu'il dénonce un conflit et que tu as déclaré autrement semaine quelque-part ailleurs.

cs_Le Pivert · Answer

Bonjour ucfoutu,

j'ai déclaré la variable en String. Mais si dans la cellule elle est dans un autre format cela a t'il  une influence?

 cco86260 essaie de mettre un nombre dans la cellule A1 et sers-toi de mon code pour voir si cela fonctionne

ucfoutu · Answer

Bonjour,  cs_Le Pivert,
cela pourrait avoir peut-être ailleurs (dans le reste du code, puisque pouvant contenir des caractères non acceptable dans un chemin) une importance.
Mais cette ligne-là (celle qu'il dit dénoncée !) ne serait pas dénoncée !
Serait par contre dénoncée une autre ligne que celle dont il parle : la ligne où il initialise la variable ... chemsave
(Clin d'oeil) ...

cco86260 · Answer

Re,

Comment faire pour vous envoyer le fichier ?

merci
 
 
--

ucfoutu · Answer

Ici, on n' "envoie" pas un fichier.
On y est entre développeurs et on sait s'expliquer en développeur !
Un classeur, enfin, est toujours un danger potentiel pour qui l'ouvrirait (dit mille et une fois).
Si tu as les idées claires, tu sais isoler et montrer le code incriminé, hein ...
voilà voilà ...

PS : et cela n'explique toujours pas ce que tu dis avoir comme ligne "dénoncée", hein ...
Alors : quelle est-elle finalement ?...

 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cco86260 · Answer

Salut ucfoutu

C'est pas faut !! résultat d'une question posée sans réfléchir!! mais quand on y pense c'est d'une logique imparable.

Bref... 

vous m'avez un peu perdu là ;)

Alors pour essayer d'être clair,

Dim semaine As String
 
Quel est sont rôle ?

Il n'est référencé nul par ailleur il est seulement dans CE code.

mais dans mon classeur il y a un cellule marqué "N°SEM" et la cellule d'à coté on y met la valeur.

Y aurait il une incidence ?

Mais j'y pense tu m'as déjà aidé pour ce projet ? ;)

Christian
 
--

cs_Le Pivert · Answer

Dim semaine As String

Quel est son rôle ? 

Quelle question!!!!!

Elle fait référence au numero de semaine qui est inscrit dans ta cellule. Mais tu peux changer le nom de ta variable par toto si cela fonctionne.

Chez moi cela fonctionne. Si j'ai répondu à ton post de manière très détaillée, c'est que javais fait ce classeur il y a quelques année pour un membre de ce site( CSCodeSource). Donc il m'a été facile de t'en faire profiter en ajoutant les modifications que tu voulais. Mais j'admet qu'il faut avoir quelques notions de vba pour en comprendre toute la mécanique.

cdtl

cco86260 · Answer

Alors j'ai chercher l'erreur et devine quoi ? ba ça venait de moi ! quelle honte !

en mettant le Dim au bonne endroit (declaration) ça fonctionne mieux du coup mais j'ai encore un bug pour la création du dossier... donc je change de méthode, je cherche, et si vraiment je ne trouve pas Là je reviens vers toi.

Je commence à comprendre certaine chose, mais là le travaille m'appel... :(

Merci pour votre aide à tous 
 
--

cco86260 · Answer

Re-bonjour, :)

Bon pour les dossiers c'est réglé sauf que : 

Je voudrais en faite qu'il se créer sur le bureau de Windows

Le chemin que j'ai mis pour la vérification est :

'C:\Users\Christian\Desktop\RapHebdo\POINTAGES

Mais tout le monde ne s'appel pas christian (lol)

Y a t-il un chemin spécifique pour que le dossier se créé directement dans \Desktop\RapHebdo\POINTAGES ?

j'ai essayer avec ça :

C:\~\Desktop\RapHebdo\POINTAGES

Mais ça ne marche pas...

Merci
 
--

cs_Le Pivert · Answer

Voici un code qui fonctionne. 

Option ExplicitDim semaine As StringDim path As StringPrivate Sub CommandButton2_Click()semaine = Range("A1") 'a adapterdossier 'création dossierchemsave = path & semaine & "\"End SubSub dossier()path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"If Len(Dir(path & semaine, vbDirectory)) = 0 Then 'chemin a adapter   MkDir path & semaineEnd IfEnd Sub

cco86260 · Answer

Salut cs_Le Pivert

Je viens de mettre ton code en place par-contre je n'ai pas compris ou je dois mettre le chemin a adapter ? 
 
--

cs_Le Pivert · Answer

Il n'y a pas de chemin à adapter. J'ai oublié d'effacer le commentaire du code précédent. Cela doit fonctionner maintenant?

cco86260 · Answer

ba quand je clique sur creer dossier il ne se passe rien...

de plus, je ne sais pas si ça viens de Win 8.1 mais pdfcreator ne fonctionne plus sous VBA.

 
 
--

cco86260 · Answer

Re,

Donc voilà, en faite je pense que le soucis viens de là :

Sub ToPdf()Dim chemsave As Stringchemsave = "C:\chemin dossier destination\" 'chemin destinationSet pdfjob = CreateObject("PDFCreator.clsPDFCreator")'NomExcel = ThisWorkbook.Name'NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"With pdfjobIf .cstart("/NoProcessingAtStartup") = False ThenMsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"Exit SubEnd If.cOption("UseAutosave") = 1.cOption("UseAutisaveDirectory") = 1.cOption("AutosaveDirectory") = chemsave 'chemin destination.cOption("AutosaveFilename") = UserForm1.ComboBox1.Value & ".pdf" 'nom de la feuille.cOption("AutosaveFormat") = 0.cClearCacheEnd WithActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"Do Until pdfjob.cCountOfPrintjobs = 1DoEventsLooppdfjob.cPrinterStop = FalseDo Until pdfjob.cCountOfPrintjobs = 0DoEventsLoopWith pdfjob.cDefaultprinter = DefaultPrinter.cClearCache.cCloseEnd WithSet pdfjob = NothingMsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"End Sub  

c'est a la ligne 3 que ça se passe, de plus quand il me créé le dossier il me met juste "Pointages" alors que je voudrais "pointage-S45", il prend le 45 dans la cellule ("AZ10").

Alors je cherche encore mais le bout est proche ;)
 
--

cs_Le Pivert · Answer

Je t'avais dit de supprimer les chemins que tu avais mis pour tes essais. Comme ceci:

Sub ToPdf()If chemsave = "" Then Exit SubSet pdfjob = CreateObject("PDFCreator.clsPDFCreator")'NomExcel = ThisWorkbook.Name'NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"With pdfjobIf .cstart("/NoProcessingAtStartup") = False ThenMsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"Exit SubEnd If.cOption("UseAutosave") = 1.cOption("UseAutisaveDirectory") = 1.cOption("AutosaveDirectory") = chemsave 'chemin destination.cOption("AutosaveFilename") = UserForm1.ComboBox1.Value & ".pdf" 'nom de la feuille.cOption("AutosaveFormat") = 0.cClearCacheEnd WithActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"Do Until pdfjob.cCountOfPrintjobs = 1DoEventsLooppdfjob.cPrinterStop = FalseDo Until pdfjob.cCountOfPrintjobs = 0DoEventsLoopWith pdfjob.cDefaultprinter = DefaultPrinter.cClearCache.cCloseEnd WithSet pdfjob = NothingMsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"End Su 
 
Et pour le chemin du dossier:

Private Sub CommandButton2_Click()semaine = Range("AZ10")dossier 'création dossierchemsave = path & "pointage-S" & semaine & "\"End SubSub dossier()path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"If Len(Dir(path & "pointage-S" & semaine, vbDirectory)) = 0 Then    MkDir path & "pointage-S" & semaineEnd If

Il faut bien suivre ce que tu fais.Il faut beaucoup de rigueur dans la programmation. Un espace en plus et cela bug!!!!!!!!!!

Bon courage

cco86260 · Answer

Bonjour cs_Le  Pivert,


donc premièrement merci pour ton travail et tes conseils ainsi qu'à tout le forum d'ailleurs (au moins ça).

Donc, pour le nom de dossier ça fonctionne SAUF... la cellule ("AZ10") est une cellule a validation de donnée (liste déroulante), si je la laisse tel quel je n'ai pas de numéro de semaine a mon dossier par contre si je la met en manuel ça fonctionne. si tu as juste une piste ?

Merci 
Christian
 
--

cs_Le Pivert · Answer

Je suis content que tout fonctionne. J'espère que tu as compris tout ce qui a été fait, c'est le but de ce forum. Pour la liste déroulante c'est un autre sujet, poste une nouvelle question.
Bonne continuation
Cordialement

cco86260 · Answer

Salut cs_Le Pivert,

La liste déroulante est autre sujet ? Je pensais que se serait pareil vu qu'elle est existante depuis le début du projet, je ne savais pas que ça ferais une différence pour la macro mais à priori si... bon je cherche et je poste si je ne trouve pas.

En tous les cas un grand merci à toi pour tes conseils et ton travail.

Et merci à l'efficacité du forum, on a besoin de ça nous les newbies ;)

Christian

Crois-tu qu'un tuto à adapter serais faisable ? ou c'est trop spécifique ?
 
--

Conversion de certaines feuilles du classeur en PDF

39 réponses

Votre réponse

Discussions similaires