Microsoft 365 Pdf et Création Dossier

E

eric72

XLDnaute Accro
Bonjour à tous,
J'aimerais à partir de mon fichier, imprimer en Pdf dans un repertoire DOSSIERS CLIENT qui se trouve dans le repertoire de mon fichier "Test pdf", puis créer un sous dossier qui représenterait l'année en cours.
J'ai cherché partout mais ne trouve pas ma solution.
Je m'en remet donc à votre savoir encore une fois.
Merci à tous
Eric
 

Pièces jointes

  • test pdf.xlsm
    25.6 KB · Affichages: 2
Solution
E
Re Bonjour à tous,

J'ai essayé avec ce code avec un inputbox, après avoir créer un sous dossier "2023",
Pas d'erreur la macro se déroule normalement mais je ne trouve pas le fichier "TOTO.Pdf"
VB: 
Sub test()
Do
NomDossier = Application.InputBox("Saisir Année d'Archive:", "Année ?", Year(Date), 1)
Loop While NomDossier = ""
If NomDossier = "" Then Exit Sub 'gestion de la touche annul

If Not IsNumeric(NomDossier) Then
MsgBox ("veuillez saisir un numerique")
NomDossier = Application.InputBox("Saisir Année d'Archive:", "Année ?", Year(Date), 1)
End If

    
Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS\" & NomDossier & "\"
'MsgBox Chemin
ActiveSheet.ExportAsFixedFormat Type:=xltypexlsm, Filename:= _
    Chemin & Range("a1").Value &...
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
VB: 
Sub archives()
    Dim Chemin As String, Fichier As String, c$, t, I&
    Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS CLIENT\" & Year(Date)    '======chemin a changer
    
    'l 'existence du chemin  du dossier va être controlé  etage par etage ; les etages seront eventuellement créés si ils n'existent pas
    t = Split(Chemin, "\"):    c = t(0)
    For I = 1 To UBound(t)
        c = c & "\" & t(I)
        If Dir(c, vbDirectory) = "" Then MkDir (c)
    Next

    
    Fichier = "PlanningSSS dE" & " " & Sheets("Feuil1").Range("a1") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & "\" & Fichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

End Sub
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
patricktoulon à dit:
Bonjour
VB: 
Sub archives()
    Dim Chemin As String, Fichier As String, c$, t, I&
    Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS CLIENT\" & Year(Date)    '======chemin a changer
   
    'l 'existence du chemin  du dossier va être controlé  etage par etage ; les etages seront eventuellement créés si ils n'existent pas
    t = Split(Chemin, "\"):    c = t(0)
    For I = 1 To UBound(t)
        c = c & "\" & t(I)
        If Dir(c, vbDirectory) = "" Then MkDir (c)
    Next

   
    Fichier = "PlanningSSS dE" & " " & Sheets("Feuil1").Range("a1") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & "\" & Fichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

End Sub
Cliquez pour agrandir...
Bonjour Patrick,
Merci beaucoup pour ton retour, j'ai testé mais j'ai une erreur ici:
VB: 
        If Dir(c, vbDirectory) = "" Then MkDir (c)
avec ce commentaire "Nom ou numéro de fichier incorrect"
Est-ce que le fait que je sois sur OneDrive peut avoir un rapport?
Merci
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
a ben oui il te faut determiner le chemin de onedrive
j'ai ajouté aussi le test d'existence eventuelle du fichier
avec la possibilité d'ecraser le fichier existant ou pas

te reste plus qu'a faire des recherches pour onedrive
VB: 
Sub archives()
    Dim Chemin As String, Fichier As String, c$, t, I&, Rep As VbMsgBoxResult
    Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS CLIENT\" & Year(Date)    '======chemin a changer

    'l 'existence du chemin  du dossier va être controlé  etage par etage ; les etages seront eventuellement créés si ils n'existent pas
    t = Split(Chemin, "\"): c = t(0)
    For I = 1 To UBound(t)
        c = c & "\" & t(I)
        If Dir(c, vbDirectory) = "" Then MkDir (c)
    Next


    Fichier = "PlanningSSS dE" & " " & Sheets("Feuil1").Range("a1") & ".pdf"

    If Dir(Chemin & "\" & Fichier) <> "" Then Rep = MsgBox("<<" & Fichier & ">>" & vbCrLf & "Un fichier postant ce nom existe déjà" & vbCrLf & "Voulez vous l'ecraser", vbYesNo)
    If Rep = vbNo Then Exit Sub

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & "\" & Fichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

End Sub
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
patricktoulon à dit:
a ben oui il te faut determiner le chemin de onedrive
j'ai ajouté aussi le test d'existence eventuelle du fichier
avec la possibilité d'ecraser le fichier existant ou pas

te reste plus qu'a faire des recherches pour onedrive
VB: 
Sub archives()
    Dim Chemin As String, Fichier As String, c$, t, I&, Rep As VbMsgBoxResult
    Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS CLIENT\" & Year(Date)    '======chemin a changer

    'l 'existence du chemin  du dossier va être controlé  etage par etage ; les etages seront eventuellement créés si ils n'existent pas
    t = Split(Chemin, "\"): c = t(0)
    For I = 1 To UBound(t)
        c = c & "\" & t(I)
        If Dir(c, vbDirectory) = "" Then MkDir (c)
    Next


    Fichier = "PlanningSSS dE" & " " & Sheets("Feuil1").Range("a1") & ".pdf"

    If Dir(Chemin & "\" & Fichier) <> "" Then Rep = MsgBox("<<" & Fichier & ">>" & vbCrLf & "Un fichier postant ce nom existe déjà" & vbCrLf & "Voulez vous l'ecraser", vbYesNo)
    If Rep = vbNo Then Exit Sub

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & "\" & Fichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False

End Sub
Cliquez pour agrandir...
Merci Patrick,
J'ai bien ce code pour un autre exemple avec OneDrive
Code: 
    Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS CLIENT\" & Application.PathSeparator & Year(Date)      '======chemin a changer
[/CODE]
Mais il ne fonctionne pas ici, dans l'autre cas je ne crée aucun dossier, j'enregistre juste directement sous "DOSSIERS CLIENT"
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
& "\DOSSIERS CLIENT\" & Application.PathSeparator & Year(Date)
Cliquez pour agrandir...
pière de m'excuser absence pour raison de mal de tête a la vue de ce bout de code

bonjour
je ne suis pas là pour le momment pour hospitalisation suite a rupture d'anévrisme
mais vous pouvez laisser un message si vous le désirez

refléchiquestion gif.gif
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
patricktoulon à dit:
pière de m'excuser absence pour raison de mal de tête a la vue de ce bout de code

bonjour
je ne suis pas là pour le momment pour hospitalisation suite a rupture d'anévrisme
mais vous pouvez laisser un message si vous le désirez

Regarde la pièce jointe 1185538
Cliquez pour agrandir...
J'espère que tu vas mieux!!!
J'essaie juste de résoudre mon problème en faisant des essais, voilà le code que j'ai(mais sans créer de sous dossier) et celui-ci fonctionne même avec OneDrive ...
VB: 
Dim Chemin As String
Dim NFichier As String
Application.ScreenUpdating = False

Chemin = Application.ActiveWorkbook.Path & "\PLANNING\" & Application.PathSeparator 'met le pdf au même emplacement que le fichier
NFichier = Sheets("Planning").Range("J1") & " " & "du" & " " & Format(Sheets("Planning").Range("d5"), "dd mm yyyy") & " " & "au" & " " & Format(Sheets("Planning").Range("an5"), "dd mm yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True
Désolé d'avoir causé un traumatisme!!! ;)
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Re Bonjour à tous,

J'ai essayé avec ce code avec un inputbox, après avoir créer un sous dossier "2023",
Pas d'erreur la macro se déroule normalement mais je ne trouve pas le fichier "TOTO.Pdf"
VB: 
Sub test()
Do
NomDossier = Application.InputBox("Saisir Année d'Archive:", "Année ?", Year(Date), 1)
Loop While NomDossier = ""
If NomDossier = "" Then Exit Sub 'gestion de la touche annul

If Not IsNumeric(NomDossier) Then
MsgBox ("veuillez saisir un numerique")
NomDossier = Application.InputBox("Saisir Année d'Archive:", "Année ?", Year(Date), 1)
End If

    
Chemin = Application.ActiveWorkbook.Path & "\DOSSIERS\" & NomDossier & "\"
'MsgBox Chemin
ActiveSheet.ExportAsFixedFormat Type:=xltypexlsm, Filename:= _
    Chemin & Range("a1").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, To:=1, openafterpublish:=False

        Application.ScreenUpdating = True
End Sub
Qu'est ce que j'ai encore oublié?
Merci
 
Vote positif 0 Vote négatif
Solution

Discussions similaires

E
  • Question
Microsoft 365 GetFolder et Sharepoint
Réponses
3
Affichages
501
eric72
E
W
  • Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
212
kiki29
kiki29
G
  • Résolu(e)
Microsoft 365 PDF via Excel + choix nom PDF
Réponses
2
Affichages
125
gpion
G
B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
249
kiki29
kiki29
K
  • Question
Fusionner tous les PDF d'un dossier
Réponses
5
Affichages
265
crocrocro
C
D
  • Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
354
Phil69970
Phil69970
A
  • Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
292
AugusteP
A
P
  • Question
Microsoft 365 VBA - Enregistrer un fichier en pdf dans un dossier dont on ne connait que les 4 premiers caractères
Réponses
2
Affichages
225
phil75016
P
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
252
JPaul78
J
J
  • Question
Microsoft 365 Conversion de fichiers word en pdf / VBA
Réponses
1
Affichages
184
kiki29
kiki29

Membres actuellement en ligne

13 membres et 130 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 207
Messages
2 086 232
Membres
103 161
dernier inscrit
Rogombe bryan