Google Apps Script

Bonjour,

Je débute sur Google Sheets et je souhaiterais savoir comment installer Google apps script ?

Puisque j’aimerais faire comme dans la vidéo de Google apps scripts con trouve sur YouTube.

Merci par avance pour votre aide

Bonjour,

pas d'installation

va dans le menu Extensions >> AppSCript

Justement c’est mon problème est que je ne sais pas où trouver le menu extension.

Comme je disais auparavant je débute sur Google donc je m’excuse pour les lacunes que je peux avoir.

Bonjour,

Dans ta barre de menu en haut, tu as "Fichier", "Edition", "Affichage", etc. juste avant "Aide", il y a "Extensions" et dans ce menu tu as "Apps Script"

image

Merci a tous pour votre aide, je ne sais pas comment mais aujourd’hui j'ai le menu extension qui apparait

bonjour,

J'ai une macro sur excel et je voudrait la recuperer(je voudrait quelle face les même fonction dans sheets), cette macro me premet d'envoye un email automatiquement des qu on modifie le statue (MANQUANT,DETERIOREE).

vous trouvez ci dessous mon fichier excel un lien vers le fichier sheets .

je vous est mis aussi la macro comme elle est écrite dans excel.

merci pour votre aide

https://docs.google.com/spreadsheets/d/e/2PACX-1vSG7a2p8lWcr_VwlVGObnPml3cBi7uinZKrWEPeoS8KweJUl3hlH...

Public Individu
Public Dest
Public DestCopie
Public Flg_Ok_Env As Boolean
Public Flg_Stop As Boolean

Sub Envoidu_MailAutomatique(Sh As Object, Ligne As Long)
'On Error Resume Next
Dim OutApp As Object
Dim OutMail As Object
Dim Rng As Range

'recup infos ligne: colonne A,E,F,G
'range ("A3:H5")
With Sh
Set Rng = .Range("A" & Ligne).Resize(, 7)
End With
'Msg alerte: config pour Outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = " " 'adresse destinataire"
.CC = " " 'en copie
.BCC = " " 'en copie destinataire pas vraiment concerner par le sujet (info simple)
.Subject = "Alarme inventaire" & Sh.Name
.HTMLBody = RangetoHTML(Rng) 'plage de cellules dans corps du message
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
'.Display 'ouverture d'Outlook pour test et visu contenu de l'@Mail
'or use
.Send 'pas d'overture d'Outlook
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Function RangetoHTML(Rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2013
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook

TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in
Rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With

'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", "align=left x:publishsource=")

Peux-tu partager un document google sheets ? https://www.sheets-pratique.com/fr/cours/partage

je viens de modifier les autorisations, j’espère que sa fonctionne maintenant.

https://docs.google.com/spreadsheets/d/18IpqnGpZfJVwlJsiquegfxydZ5UUwnk_eg3KDQPX4iE/edit?usp=sharing

ok, je prends une copie car avec mon écran 10" et le figeage des lignes, je ne vois plus rien !

Un premier jet

function emailOnEdit(event) {
  var feuille = event.source.getActiveSheet();
  var cellule = event.source.getActiveRange();
  if (cellule.getColumn() != 6) return;
  if (cellule.getValue() == 'MANQUANT' || cellule.getValue() == 'DETERIOREE') {

    //definir les variables
    var ss = SpreadsheetApp.getActiveSpreadsheet()
    var sheet1 = ss.getSheetByName('Feuille 1');
    var emailAddress = sheet1.getRange(2, 1).getValue();
    var subject = sheet1.getRange(2, 2).getValue();
    var message = sheet1.getRange(2, 3).getValue();

    // envoyer le mail   
    MailApp.sendEmail({ 
      to: emailAddress, 
      subject: subject, 
      htmlBody: message + '<b>' + cellule.offset(-5, 0).getValue() + ' ' + cellule.getValue() })
  }

}

il faut définir un déclencheur sur cette fonction comme suit

capture d ecran 1719

et compléter les informations que tu veux donner

image image

Merci pour votre aide Steelson, mais je suis nul car cela ne fonctionne pas, j'ai un message d'erreur.

Je me pose une petite question, je me demande si cela est possible que sa fonctionne avec un téléphone portable?

tu as mal ajouté la seconde adresse email !

tu dois le faire comme ceci

to: emailAddress + ',autreadresse@gmail.com', 

je suis vraiment nul, car même en faisant un copier coller sa ne fonctionne pas, j'ai peut être oublie quelque chose, mais je n'y Connais rien.

en tous ca merci pour ton aide.

image

pourquoi

subject : subject,essai

?

fais d'abord un test avec ce que je t'ai donné

j'ai toujours une erreur

image
il ne faut pas lancer ce script à partir de l'éditeur, il se lance en auto dès que tu changera la valeur

cela fonctionne mieux comme ça.

je excuse mais je début sous sheets c'est pour ça que j'ai du mâle a comprendre.

le problème c'est que le message reçue ne correspond pas a la ligne modifie.

capture d ecran 2022 04 24 114746

L'important est d'avoir un fonctionnement sans erreur, maintenant on peut mettre au point le contenu ... je regarde

Rechercher des sujets similaires à "google apps script"