Microsoft 365 Acces - Sharepoint

[Keiko]

Bonjour à tous,

Je ne sais pas si cela est possible mais je l'espère.
J'ai un excel avec macro et j'ai créé une base de données via accès.
Je souhaiterais avec une simple connection internet en appuyant sur un bouton macro envoyer les informations dans accès.
J'ai pour cela charger mon accès dans one drive afin qu'il soit sur le net et que l'excel puisse l'envoyer dedans avec la macro et une connection internet.
Pensez-vous que cela puisse possible via un macro ou une autre solution?

Voila pour l'instant, l'idée de ma Macro :

Sub basededonneestest()

Dim MonFichierSharepoint As Database
Dim MaTableDansSharepoint As DAO.Recordset

DestinationSharepoint = OpenDatabase("//unitedfocusbe.sharepoint.com/:u:/s/UnitedPV/EY27ZPDBv0FJmXGJWrbcBVIBU_cm3WuKozUXgo27gXj30A?e=Rfy0hc")
Set MaTableDansSharepoint = MonFichierSharepoint.OpenRecordset("Table1", dbOpenTable)

MaTableDansSharepoint.AddNew
MaTableDansSharepoint.Fields("Nom") = Range("D17").Value
MaTableDansSharepoint.Fields("Prénom") = Range("D18").Value
MaTableDansSharepoint.Update

MaTableDansSharepoint.Close
MonFichierSharepoint.Close

End Sub

Merci pour votre aide ! 🙂

 

[Keiko]

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