Macro Conversion Fichier excel en pdf
Résolu
laktats
Messages postés
4
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, moi je mettrais la lignenom_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-
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
-
-
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 -
Non je ne l'ai pas lu mais merci en tout cas j'ai trouvé la solution tout seul comme d'habitude ;)
