Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
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

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
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
E

eric72

XLDnaute Accro
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
459
cp4
A
  • Question
XL 2010 Dupliquer une plage plusieurs fois et imprimer
Réponses
12
Affichages
465
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
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
G
  • Résolu(e)
Microsoft 365 PDF via Excel + choix nom PDF
Réponses
2
Affichages
385
gpion
G
B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
569
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…