Macro Conversion Fichier excel en pdf

Résolu
laktats Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 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 !
A voir également:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
0
laktats Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > laktats Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
merci de partager ton code modifiée, en utilisant les balises de code.
0
Réponse 2 / 3
laktats Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
as-tu lu l'article à propos des balises de code?
0
Réponse 3 / 3
laktats Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Non je ne l'ai pas lu mais merci en tout cas j'ai trouvé la solution tout seul comme d'habitude ;)
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
tu as raison: la prochaine fois, ne pose pas la question sur le forum, tu trouveras la solution tout seul.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses