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

A
  • Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
459
cp4
cp4
A
  • Question
XL 2010 Dupliquer une plage plusieurs fois et imprimer
Réponses
12
Affichages
465
patricktoulon
patricktoulon
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
1 K
Florent74
F
W
  • Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
8
Affichages
603
TooFatBoy
TooFatBoy
E
  • Question
Microsoft 365 GetFolder et Sharepoint
Réponses
3
Affichages
1 K
eric72
E
W
  • Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
390
kiki29
kiki29
G
  • Résolu(e)
Microsoft 365 PDF via Excel + choix nom PDF
Réponses
2
Affichages
384
gpion
G
B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
569
kiki29
kiki29
K
  • Question
Fusionner tous les PDF d'un dossier
Réponses
5
Affichages
649
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
652
Phil69970
Phil69970

Membres actuellement en ligne

11 membres et 93 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
315 096
Messages
2 116 182
Membres
112 677
dernier inscrit
Justine11