Microsoft 365 Autorisation

K

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
 
Trier par date Trier par votes

Discussions similaires

K
  • Question
Microsoft 365 VBA - excel vers Acces
Réponses
0
Affichages
1 K
Keiko
K
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
730
TooFatBoy
TooFatBoy

Membres actuellement en ligne

17 membres et 191 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 841
Messages
2 113 482
Membres
111 877
dernier inscrit
thierry@1965