Voici le code et il marche super bien.
Il met les informations dans Acces qui est hébergé sur Sharepoint et enregistre en pdf et excel.
Sub enregistrerxlspdfplusde10()
Dim MonFichierAccess As Database
Dim MaTableDansAccess As DAO.Recordset
Set MonFichierAccess = OpenDatabase("\\unitedfocusbe.sharepoint.com@SSL\DavWWWRoot\sites\UnitedPV\Documents partages\General\Database.accdb")
Set MaTableDansAccess = MonFichierAccess.OpenRecordset("Clients", dbOpenTable)
MaTableDansAccess.AddNew
MaTableDansAccess.Fields("Nom du commercial") = Range("D11").Value
MaTableDansAccess.Fields("Client") = Range("D15").Value
MaTableDansAccess.Fields("Nom de la société") = Range("D16").Value
MaTableDansAccess.Fields("Mr,Me") = Range("D17").Value
MaTableDansAccess.Fields("Nom") = Range("D18").Value
MaTableDansAccess.Fields("Prénom") = Range("D19").Value
MaTableDansAccess.Fields("Adresse facturation") = Range("D20").Value
MaTableDansAccess.Fields("Numéro facturation") = Range("D21").Value
MaTableDansAccess.Fields("code postal facturation") = Range("D22").Value
MaTableDansAccess.Fields("Localité facturation") = Range("g15").Value
MaTableDansAccess.Fields("Adresse chantier") = Range("G16").Value
MaTableDansAccess.Fields("Numéro chantier") = Range("g17").Value
MaTableDansAccess.Fields("code postal chantier") = Range("g18").Value
MaTableDansAccess.Fields("Localité chantier") = Range("g19").Value
MaTableDansAccess.Fields("Tel") = Range("g20").Value
MaTableDansAccess.Fields("Mail") = Range("g21").Value
MaTableDansAccess.Fields("TVA") = Range("g22").Value
MaTableDansAccess.Fields("Conso actuel") = Range("D26").Value
MaTableDansAccess.Fields("Cout electrique annuel") = Range("D27").Value
MaTableDansAccess.Fields("Production souhaité") = Range("D29").Value
MaTableDansAccess.Fields("Alimentation") = Range("D30").Value
MaTableDansAccess.Fields("Photo compteur") = Range("D32").Value
MaTableDansAccess.Fields("Photo du teco") = Range("D33").Value
MaTableDansAccess.Fields("Photo du différentiel") = Range("g26").Value
MaTableDansAccess.Fields("Changement différentiel") = Range("g27").Value
MaTableDansAccess.Fields("Mise à la terre") = Range("g28").Value
MaTableDansAccess.Fields("Mise confirmité 9 modules") = Range("g29").Value
MaTableDansAccess.Fields("Mise conformité 18 modules") = Range("g30").Value
MaTableDansAccess.Fields("Mise confirmité 27 modules") = Range("g31").Value
MaTableDansAccess.Fields("Autres travaux") = Range("g32").Value
MaTableDansAccess.Fields("Préciser autres travaux") = Range("g33").Value
MaTableDansAccess.Fields("Type") = Range("d37").Value
MaTableDansAccess.Fields("Préciser type") = Range("d38").Value
MaTableDansAccess.Fields("Photo de la toiture") = Range("d39").Value
MaTableDansAccess.Fields("Orientation") = Range("d40").Value
MaTableDansAccess.Fields("Inclinaison") = Range("d41").Value
MaTableDansAccess.Fields("Charpente") = Range("d42").Value
MaTableDansAccess.Fields("Préciser charpente") = Range("d37").Value
MaTableDansAccess.Fields("Photo charpente") = Range("g37").Value
MaTableDansAccess.Fields("Versant") = Range("g38").Value
MaTableDansAccess.Fields("Hauteur sous corniche") = Range("g39").Value
MaTableDansAccess.Fields("Distance onduleur coffret") = Range("g40").Value
MaTableDansAccess.Fields("Distance onduleur pv") = Range("g41").Value
MaTableDansAccess.Fields("+- 10ans") = Range("g42").Value
MaTableDansAccess.Fields("Ombrage") = Range("g43").Value
MaTableDansAccess.Fields("Longueur") = Range("b48").Value
MaTableDansAccess.Fields("Largeur") = Range("C48").Value
MaTableDansAccess.Fields("A2") = Range("b51").Value
MaTableDansAccess.Fields("incl2") = Range("C51").Value
MaTableDansAccess.Fields("Long2") = Range("e51").Value
MaTableDansAccess.Fields("A3") = Range("b54").Value
MaTableDansAccess.Fields("B3") = Range("C54").Value
MaTableDansAccess.Fields("Long3") = Range("f54").Value
MaTableDansAccess.Fields("H4") = Range("b57").Value
MaTableDansAccess.Fields("H4a") = Range("c57").Value
MaTableDansAccess.Fields("A4") = Range("d57").Value
MaTableDansAccess.Fields("Long4") = Range("h57").Value
MaTableDansAccess.Fields("PV1") = Range("d68").Value
MaTableDansAccess.Fields("PV1N") = Range("d70").Value
MaTableDansAccess.Fields("Onduleur 1") = Range("d81").Value
MaTableDansAccess.Fields("Onduleur 1B") = Range("d82").Value
MaTableDansAccess.Fields("Onduleur 2") = Range("d83").Value
MaTableDansAccess.Fields("Onduleur 2B") = Range("d84").Value
MaTableDansAccess.Fields("Garantie onduleur 1") = Range("d85").Value
MaTableDansAccess.Fields("Remise commercial 1") = Range("d91").Value
MaTableDansAccess.Fields("PV2") = Range("f68").Value
MaTableDansAccess.Fields("PV2N") = Range("f70").Value
MaTableDansAccess.Fields("Onduleur 3") = Range("f81").Value
MaTableDansAccess.Fields("Onduleur 3B") = Range("f82").Value
MaTableDansAccess.Fields("Onduleur 4") = Range("f83").Value
MaTableDansAccess.Fields("Onduleur 4B") = Range("f84").Value
MaTableDansAccess.Fields("Garantie onduleur 2") = Range("f85").Value
MaTableDansAccess.Fields("Remise commercial 2") = Range("f91").Value
MaTableDansAccess.Fields("PV3") = Range("h68").Value
MaTableDansAccess.Fields("PV3N") = Range("h70").Value
MaTableDansAccess.Fields("Onduleur 5") = Range("h81").Value
MaTableDansAccess.Fields("Onduleur 5A") = Range("h82").Value
MaTableDansAccess.Fields("Onduleur 6") = Range("h83").Value
MaTableDansAccess.Fields("Onduleur 6") = Range("h84").Value
MaTableDansAccess.Fields("Garantie onduleur 3") = Range("h85").Value
MaTableDansAccess.Fields("Remise commercial 3") = Range("h91").Value
MaTableDansAccess.Fields("Onduleur parallèle 1") = Range("d119").Value
MaTableDansAccess.Fields("Onduleur parallèle suppl 1") = Range("d120").Value
MaTableDansAccess.Fields("Garantie onduleur parallèle 1") = Range("d121").Value
MaTableDansAccess.Fields("Remise commercial parallèle 1") = Range("d130").Value
MaTableDansAccess.Fields("Onduleur parallèle 2") = Range("f119").Value
MaTableDansAccess.Fields("Onduleur parallèle suppl 2") = Range("f120").Value
MaTableDansAccess.Fields("Garantie onduleur parallèle 2") = Range("f121").Value
MaTableDansAccess.Fields("Remise commercial parallèle 2") = Range("f130").Value
MaTableDansAccess.Fields("Onduleur parallèle 3") = Range("h119").Value
MaTableDansAccess.Fields("Onduleur parallèle suppl 3") = Range("h120").Value
MaTableDansAccess.Fields("Garantie onduleur parallèle 3") = Range("h121").Value
MaTableDansAccess.Fields("Remise commercial parallèle 3") = Range("h130").Value
MaTableDansAccess.Fields("Choix du client") = Range("d149").Value
MaTableDansAccess.Fields("Mensualité") = Range("d154").Value
MaTableDansAccess.Fields("1") = Range("c159").Value
MaTableDansAccess.Fields("2") = Range("c160").Value
MaTableDansAccess.Fields("3") = Range("c161").Value
MaTableDansAccess.Fields("4") = Range("c162").Value
MaTableDansAccess.Fields("5") = Range("c163").Value
MaTableDansAccess.Fields("6") = Range("c164").Value
MaTableDansAccess.Fields("7") = Range("c165").Value
MaTableDansAccess.Fields("8") = Range("c166").Value
MaTableDansAccess.Fields("9") = Range("c167").Value
MaTableDansAccess.Fields("10") = Range("c168").Value
MaTableDansAccess.Fields("11") = Range("c169").Value
MaTableDansAccess.Fields("12") = Range("c170").Value
MaTableDansAccess.Fields("13") = Range("c171").Value
MaTableDansAccess.Fields("14") = Range("c172").Value
MaTableDansAccess.Fields("15") = Range("c173").Value
MaTableDansAccess.Fields("16") = Range("c174").Value
MaTableDansAccess.Fields("17") = Range("c175").Value
MaTableDansAccess.Fields("18") = Range("c176").Value
MaTableDansAccess.Fields("19") = Range("c177").Value
MaTableDansAccess.Fields("20") = Range("c178").Value
MaTableDansAccess.Fields("21") = Range("c179").Value
MaTableDansAccess.Fields("22") = Range("c180").Value
MaTableDansAccess.Fields("23") = Range("c181").Value
MaTableDansAccess.Fields("24") = Range("c182").Value
MaTableDansAccess.Fields("1a") = Range("d159").Value
MaTableDansAccess.Fields("2a") = Range("d160").Value
MaTableDansAccess.Fields("3a") = Range("d161").Value
MaTableDansAccess.Fields("4a") = Range("d162").Value
MaTableDansAccess.Fields("5a") = Range("d163").Value
MaTableDansAccess.Fields("6a") = Range("d164").Value
MaTableDansAccess.Fields("7a") = Range("d165").Value
MaTableDansAccess.Fields("8a") = Range("d166").Value
MaTableDansAccess.Fields("9a") = Range("d167").Value
MaTableDansAccess.Fields("10a") = Range("d168").Value
MaTableDansAccess.Fields("11a") = Range("d169").Value
MaTableDansAccess.Fields("12a") = Range("d170").Value
MaTableDansAccess.Fields("13a") = Range("d171").Value
MaTableDansAccess.Fields("14a") = Range("d172").Value
MaTableDansAccess.Fields("15a") = Range("d173").Value
MaTableDansAccess.Fields("16a") = Range("d174").Value
MaTableDansAccess.Fields("17a") = Range("d175").Value
MaTableDansAccess.Fields("18a") = Range("d176").Value
MaTableDansAccess.Fields("19a") = Range("d177").Value
MaTableDansAccess.Fields("20a") = Range("d178").Value
MaTableDansAccess.Fields("21a") = Range("d179").Value
MaTableDansAccess.Fields("22a") = Range("d180").Value
MaTableDansAccess.Fields("23a") = Range("d181").Value
MaTableDansAccess.Fields("24a") = Range("d182").Value
MaTableDansAccess.Fields("Jour") = Range("d185").Value
MaTableDansAccess.Fields("Mois") = Range("d186").Value
MaTableDansAccess.Fields("Janvier") = Range("g159").Value
MaTableDansAccess.Fields("Février") = Range("g160").Value
MaTableDansAccess.Fields("Mars") = Range("g161").Value
MaTableDansAccess.Fields("Avril") = Range("g162").Value
MaTableDansAccess.Fields("Mai") = Range("g163").Value
MaTableDansAccess.Fields("Juin") = Range("g164").Value
MaTableDansAccess.Fields("Juillet") = Range("g165").Value
MaTableDansAccess.Fields("Aout") = Range("g166").Value
MaTableDansAccess.Fields("Septembre") = Range("g167").Value
MaTableDansAccess.Fields("Octobre") = Range("g168").Value
MaTableDansAccess.Fields("Novembre") = Range("g169").Value
MaTableDansAccess.Fields("Décembre") = Range("g170").Value
MaTableDansAccess.Fields("Janviera") = Range("h159").Value
MaTableDansAccess.Fields("Févriera") = Range("h160").Value
MaTableDansAccess.Fields("Marsa") = Range("h161").Value
MaTableDansAccess.Fields("Avrila") = Range("h162").Value
MaTableDansAccess.Fields("Maia") = Range("h163").Value
MaTableDansAccess.Fields("Juina") = Range("h164").Value
MaTableDansAccess.Fields("Juilleta") = Range("h165").Value
MaTableDansAccess.Fields("Aouta") = Range("h166").Value
MaTableDansAccess.Fields("Septembrea") = Range("h167").Value
MaTableDansAccess.Fields("Octobrea") = Range("h168").Value
MaTableDansAccess.Fields("Novembrea") = Range("h169").Value
MaTableDansAccess.Fields("Décembrea") = Range("h170").Value
MaTableDansAccess.Fields("Info placement PV") = Range("d206").Value
MaTableDansAccess.Fields("Info passage cable") = Range("g206").Value
MaTableDansAccess.Fields("Info placement onduleur") = Range("d213").Value
MaTableDansAccess.Fields("Info Toiture") = Range("g213").Value
MaTableDansAccess.Update
MaTableDansAccess.Close
MonFichierAccess.Close
Dim nom As String
lechemin = ActiveWorkbook.Path & "\"
nom = Range("d18")
PANNEAU = Range("d68")
ONDULEUR = Range("d81")
nombre = Range("d70")
Tel = Range("g20")
LIEU = Range("g15")
JOUR = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Year(Now)
ThisWorkbook.SaveAs lechemin & JOUR & "-" & nom & "-" & Tel & "-" & LIEU & "-" & nombre & "-" & PANNEAU & "-" & ONDULEUR & ".xlsm"
Application.ScreenUpdating = False
Sheets("O>10").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=lechemin & JOUR & "-" & nom & "-" & Tel & "-" & LIEU & "-" & nombre & "-" & PANNEAU & "-" & ONDULEUR & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True
Application.ScreenUpdating = False
End Sub