Microsoft 365 Autorisation

Keiko

XLDnaute Occasionnel
Bonjour,
voici un macro qui fonctionne et qui envoie mes infomrations dans acces hébergé sur sharepoint et qui enregistre en pdf et excel en reprenant des informations de certaines cellules :)
Je voudrais juste que quand j'appuie sur le bouton et donc sur ma macro, qui me demande une autorisation de le faire.
Est-ce possible?

voici le code :

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
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757