Envoi d'un fichier excel sur Sharepoint dès sa fermeture [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020
-
*_Francis_*
Messages postés
37462
Date d'inscription
mardi 2 octobre 2007
Statut
Modérateur
Dernière intervention
18 janvier 2020
-
Bonjour,
Je souhaites écrire une macro qui permets de convertir un fichier excel en PDF dans un premier temps, puis ce dernier toujours ouvert.lorsque je le signe et je le ferme , ce dernier doit s'envoyer automatiquement sur Sharepoint.
J'ai déja mis au place un code permettant de convertir un excel en PDF, mais pour l'envoyer sur Sharepoint je n'y arrive pas j'ai une erreur 1004 d'éxecution ! et pour executer une procédure dès la fermeture du fichier ?

Voici mon code :
Sub Enregistrement_ESSAI()
' Enregistrement Macro
Dim chemin As String, nomfichier As String
Dim style As Integer
Dim dossier 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 = "https:\\alstomgroup.sharepoint.com\sites\FR_LCR_Industriel\DLC\Documents%20partages\MS\CND\MT\" _
& dossier1 & "\"

'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

Merci bcp pour votre aide j'en ai vraiment besoin !

1 réponse

Messages postés
6
Date d'inscription
mercredi 15 janvier 2020
Statut
Membre
Dernière intervention
15 janvier 2020



Voici ce que cela m'affiche sur excel
*_Francis_*
Messages postés
37462
Date d'inscription
mardi 2 octobre 2007
Statut
Modérateur
Dernière intervention
18 janvier 2020
8960