Macro Conversion Fichier excel en pdf [Résolu]

Signaler
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020
-
yg_be
Messages postés
9413
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 janvier 2020
-
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 !

3 réponses

Messages postés
9413
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 janvier 2020
499
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
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020

Bonjour,
Finalement le code mache j'arrive à l'avoir en PDF mais il se met automatiquement sur le bureau alors que j'ai changé plusieurs fois le dossier de destination des fichiers pdf !! quelqun a une idee svp ? quoique je mette dans le chemin de destination il me fou toujours le pdf sur le bureau je comprends pas pourquoi
yg_be
Messages postés
9413
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 janvier 2020
499 > laktats
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020

merci de partager ton code modifiée, en utilisant les balises de code.
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020

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
yg_be
Messages postés
9413
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 janvier 2020
499
as-tu lu l'article à propos des balises de code?
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020

Non je ne l'ai pas lu mais merci en tout cas j'ai trouvé la solution tout seul comme d'habitude ;)
yg_be
Messages postés
9413
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 janvier 2020
499
tu as raison: la prochaine fois, ne pose pas la question sur le forum, tu trouveras la solution tout seul.