XL pour MAC création d'un dossier et enregistrement d'un fichier en pdf

T

tdenis

XLDnaute Nouveau
Bonjour La communauté ,
voila mon petit soucis de code :
je souhaite enregistrer un fichier(feuille active) ennemi format pdf dans un répertoire précis et de créer un dossier au nom du client.
Pouvez m'éclairer sur le code ci-dessous car j'ai bien la création du dossier er cela me l'enregistre dans le dossier parent et non dans le dossier du client...
si mon dossier parent est crée, je lu demande d'enregistrer simplement dans le dossier parent .. c'est les erreurs 75 du code
Je vous remercie pour votre aide.
Excelemment votre
Tdenis
VB: 
Sub TesteDossierExiste()
 Dim MonDossier As String
 Dim Monfichier As String
 Dim SousDossier As String
 Dim DossierCree As String
MonDossier = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/"
DossierCree = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier
Monfichier = Range("L1").Value
SousDossier = Range("F4").Value
If Len(Dir(("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/") & SousDossier)) = True Then
    
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
     DossierCree & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    MsgBox ("Le fichier " & Monfichier & " est bien enregistré ")
      
   Else
   MkDir ("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/") & SousDossier
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    Dir("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/") & SousDossier & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    
    MsgBox ("Le dossier " & SousDossier & "  et  Le fichier " & Monfichier & " ont bien été crée et enregistré ")

      
    
   End If
        
  
End Sub
 
Solution
T
Bonsoir à tous,
j'ai enfin trouvé mes petits soucis de chemin..
donc voici le code final et cela fonctionne
merci a tous pour vos réponses et orientations.
VB: 
Sub TesteDossierExiste()
 Dim MonDossier As String
 Dim Monfichier As String
 Dim SousDossier As String
 Dim DossierCree As String
MonDossier = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/"
Monfichier = Range("L1").Value
SousDossier = Range("F4").Value
DossierCree = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier & "/"
On Error Resume Next
ChDir MonDossier & SousDossier
If Err <> 0 Then
   MkDir MonDossier & SousDossier
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
   DossierCree & Monfichier, _...
Trier par date Trier par votes
J

justvicto

XLDnaute Nouveau
Je te conseille ce code qui marche parfaitement bien pour ma part !


VB: 
Sub Exporte()
Dim NomFichier As Variant

ChDir ThisWorkbook.Path
    Sheets("pp").Select 'A REMPLACER POUR TOI
    NomFichier = Application.GetSaveAsFilename(fileFilter:="PDF (*.pdf), *.pdf")
    If NomFichier <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=NomFichier, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=False
    End If

End Sub
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Concernant le code du post #1 :
VB: 
If Len(Dir(("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/") & SousDossier)) = True Then
ne va pas puisque LEN(xxx) n'est jamais égal à True (qui vaut -1).

Il suffit d'enlever =True :
VB: 
If Len(Dir("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier)) Then
 
Vote positif 0 Vote négatif
T

tdenis

XLDnaute Nouveau
Re,
Merci beaucoup pour vos réponses ;)
Après l'essai de vos codes, je vous explique les erreurs.
Dans le premier cas : les dossiers n'existent pas et fichier non enregistré en pdf dans le dossier
- je valide enregistrer et le résultat est : Dossier au nom du client crée au bon endroit, et mon fichier en pdf crée mais dans le dossier parent ... et non le sous dossier au nom du client
lorsque le dossier est crée auparavant soit par un autre devis du même nom de client soit une création de facture. résultat erreur 75 en sur lignage sur le Mkdir
VB: 
Sub TesteDossierExiste()
 Dim MonDossier As String
 Dim Monfichier As String
 Dim SousDossier As String
 Dim DossierCree As String
MonDossier = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/"
DossierCree = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier
Monfichier = Range("L1").Value
SousDossier = Range("F4").Value
If Len(Dir("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier)) Then
    
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
     DossierCree & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    MsgBox ("Le fichier " & Monfichier & " est bien enregistré ")
      
   Else
   ' erreur 75 sur la ligne en dessous
   MkDir ("/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/") & SousDossier
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    DossierCree & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    
    MsgBox ("Le dossier " & SousDossier & "  et  Le fichier " & Monfichier & " ont bien été crée et enregistré ")

      
    
   End If
        
  
End Sub
a vous lire et bonne soirée
Tdenis
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Vous avez créé la variable MonDossier, pourquoi vous ne vous en servez pas ensuite ?

Quant à MkDir il beugue si le sous-dossier a déjà été créé, il faut donc tester son existence :
VB: 
If Dir(MonDossier & SousDossier, vbDirectory) = "" Then MkDir MonDossier & SousDossier
 
Vote positif 0 Vote négatif
T

tdenis

XLDnaute Nouveau
Bonjour Job75,
j'ai modifié un peu mon code sur le MKdir et cela fonction pour la création de dossier et ne beugue pas s'il existe...ouf
Maintenant je n'arrive a desseller le problème de chemin d'enregistrement du fichier ...
soit il ne m'enregistre pas le fichier après avoir créer le dossier : première condition après le If ou soit il enregistre dans le dossier parent avec le nom en double ...
Merci de m'éclairer
et merci pour vos réponses d'hier
belle journée a vous
Thierry

VB: 
Sub TesteDossierExiste()
 Dim MonDossier As String
 Dim Monfichier As String
 Dim SousDossier As String
 Dim DossierCree As String
MonDossier = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/"
Monfichier = Range("L1").Value
SousDossier = Range("F4").Value
DossierCree = MonDossier & SousDossier
On Error Resume Next
ChDir MonDossier & SousDossier
If Err <> 0 Then
   MkDir MonDossier & SousDossier
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
   MonDossier / SousDossier & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    
    MsgBox ("Le dossier " & SousDossier & "  et  Le fichier " & Monfichier & " ont bien été crée et enregistré ")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
     MonDossier & SousDossier & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    MsgBox ("Le fichier " & Monfichier & " est bien enregistré ")
      
    
   End If
        
  
End Sub
 

Pièces jointes

  • Capture d’écran 2021-03-09 à 09.11.28.png
    Capture d’écran 2021-03-09 à 09.11.28.png
    57.9 KB · Affichages: 26
Vote positif 0 Vote négatif
T

tdenis

XLDnaute Nouveau
Bonsoir à tous,
j'ai enfin trouvé mes petits soucis de chemin..
donc voici le code final et cela fonctionne
merci a tous pour vos réponses et orientations.
VB: 
Sub TesteDossierExiste()
 Dim MonDossier As String
 Dim Monfichier As String
 Dim SousDossier As String
 Dim DossierCree As String
MonDossier = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/"
Monfichier = Range("L1").Value
SousDossier = Range("F4").Value
DossierCree = "/Users/thierrydenis/Documents/Micro entreprise Menuiserie/CLIENTS/" & SousDossier & "/"
On Error Resume Next
ChDir MonDossier & SousDossier
If Err <> 0 Then
   MkDir MonDossier & SousDossier
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
   DossierCree & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    
    MsgBox ("Le dossier " & SousDossier & "  et  Le fichier " & Monfichier & " ont bien été crée et enregistré ")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
     DossierCree & Monfichier, _
    Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    MsgBox ("Le fichier " & Monfichier & " est bien enregistré ")
      
    
   End If
        
 
End Sub
 
Vote positif 0 Vote négatif
Solution

Discussions similaires

M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
311
MarineU
M
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
608
Lolote83
L
N
  • Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
306
Phil69970
Phil69970
M
  • Question
Microsoft 365 pb enregistrement PDF de plusieurs feuilles d'un classeur excel
2
Réponses
15
Affichages
1 K
MG_000
M
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
479
job75
job75
ph.vanne
  • Question
Autres fenêtre "Publication"
Réponses
10
Affichages
422
ph.vanne
ph.vanne
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
523
Nico2978
Nico2978
Cédric06400
  • Question
Microsoft 365 Aide mise en PDF de feuilles sélectionnées
Réponses
5
Affichages
880
kiki29
kiki29
spherestyle
  • Résolu(e)
XL pour MAC Excel vba export pdf sur bureau pour Mac
Réponses
10
Affichages
1 K
Dan
Dan
C
  • Résolu(e)
XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf
Réponses
1
Affichages
332
Claudinedu13
C

Membres actuellement en ligne

2 membres et 35 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 059
Messages
2 115 818
Membres
112 553
dernier inscrit
carlos33