Microsoft 365 Autorisation

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Keiko
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
Microsoft 365 VBA - excel vers Acces
Réponses
0
Affichages
1 K
Keiko
K
Retour