Macro Conversion Fichier excel en pdf Résolu/Fermé

Question

Bonjour,
J'ai écris ce code afin de convertir un fichie excel en pdf puis de le sauvegarder dans un répertoire.
J'ai relus plusieurs fois je n'arrive pas à trouver l'erreur ca me met "erreur d'execution document non enregistré". Si quelqun peut m'apporter une aide svp je galères à solutionner cela !
Voici mon code et la partie jaune ou il ya une erreur 
Merci pour votre aide !

yg_be · Answer

bonjour, moi je mettrais la ligne nom_du_fichier= '... avant le code en jaune, et, dans le code en jaune, je remplacerais Repertoire par nom_du_fichier. 
la prochaine fois, merci de partager le texte du code, au lieu d'une image.  merci aussi d'utiliser les balises de code:  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

laktats · Answer

Bonjour,
désolé je suis nouveau j'ai pas compris comment utiliser les balises j'ai donc juste fait un copier coller vraiment désolé ! 
Sinon avec ce code j'aimerais pouvoir envoyer un fichier PDF sur sharepoint dès sa fermeture ! 
Si vous avez des idéees svp ! 
[/contents/446-fichier-sub Sub] Enregistrement_ESSAI()
' Enregistrement Macro
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Dim dossier1 As String

'
If Sheets("ESSAIF").Range("D4").Value = "" _
Or Sheets("ESSAIF").Range("D4").Value = " " _
Or Sheets("ESSAIF").Range("D4").Value = "  " _
Then
    MsgBox "Rentrez le numéro d'OF"
    Exit Sub
End If

'pas d'affichage de progression de l'opération pendant l'exécution
    Application.ScreenUpdating = False
        
    'rangement dans le dossier correspondant au n°OF
    dossier1 = Sheets("ESSAIF").Range("D4").Value
    'choix du chemin de sauvegarde
    chemin = "C:\Users\431061\Desktop\ALSTOM" _
    & dossier1 & "\"
    'https:\alstomgroup.sharepoint.com\sites\LCR2020\Shared%20Documents\General\%232%20Tra%C3%A7abilit%C3%A9%20%20DLC\PV%20CND
    
    'choix du nom du fichier
    nomfichier = "ESSAI Final" & " OF N° " & Sheets("ESSAIF").Range("D4").Value & " - " & ".pdf"
Dim fdObj As Object
    
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If Not fdObj.FolderExists("C:\Users\431061\Desktop\ATELIER\" & dossier1 & "\") Then
    fdObj.CreateFolder ("C:\Users\431061\Desktop\ATELIER\" & dossier1 & "\")
End If

Application.ScreenUpdating = True
    
        'sauvegarde du fichier
    ActiveWorkbook.SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "Le fichier PDF a bien été généré et est disponible dans le dossier " & nom_du_fichier
    Application.DisplayAlerts = True
    
End Sub

laktats · Answer

Non je ne l'ai pas lu mais merci en tout cas j'ai trouvé la solution tout seul comme d'habitude ;)

Macro Conversion Fichier excel en pdf

3 réponses

Discussions similaires