Macro Conversion Fichier excel en pdf Résolu

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

Newsletters