74 résultats trouvés

par kingfadhel
4 novembre 2017, 08:47
Forum : Excel - VBA
Sujet : envoi de ligne excel par email
Réponses : 1
Vues : 864

Re: envoi de ligne excel par email

Bonjour,
Un fichier exemple sera le bienvenu.
par kingfadhel
4 novembre 2017, 08:33
Forum : Excel - VBA
Sujet : bouton enregistre et envoi maill
Réponses : 2
Vues : 107

Re: bouton enregistre et envoi maill

Bonjour, voila le code que j'utilise : reste à adapter le lien du fichier PDF , l'émail.... Sub TestMail() Dim ObjOutlook As New Outlook.Application Dim strPath$, OutlookItem, ColAttach Const olByValue = 1 Set OutlookItem = ObjOutlook.CreateItem(0) OutlookItem.To = "xyz@gmail.com" OutlookItem.Subjec...
par kingfadhel
18 février 2014, 10:56
Forum : Excel - VBA
Sujet : Index + match fonction
Réponses : 3
Vues : 440

Re: Index + match fonction

Bonjour,

essaye cette formule:

=INDIRECT("Sheet2!"&CHOISIR(EQUIV(G1;Sheet2!B1:H1;0)+1;"B";"C";"D";"E";"F";"G";"H")&EQUIV(Sheet1!E1;Sheet2!A2:A8;0);1)

par kingfadhel
5 février 2014, 08:27
Forum : Excel - VBA
Sujet : changer un nom en un autre
Réponses : 1
Vues : 226

Re: changer un nom en un autre

Bonjour,
un fichier joint ne coute rien et aide à résoudre beaucoup de problèmes.
par kingfadhel
31 janvier 2014, 09:23
Forum : Excel - VBA
Sujet : Calculer le temps écoulé entre deux dates et heures
Réponses : 2
Vues : 1188

Re: Calculer le temps écoulé entre deux dates et heures

Bonjour,

voila un essai avec des calculs intermédiaires

pièce jointe
par kingfadhel
10 janvier 2014, 21:51
Forum : Excel - VBA
Sujet : Afficher une image selon nom de page
Réponses : 7
Vues : 467

Re: Afficher une image selon nom de page

Re, Voila dans le code suivant tu testes et tu changes les valeurs 36.38 et 207.75 selon les dimensions desirées (l'unité ici est le point) : Sub InsertPhoto() For Each sh In Worksheets If IsNumeric(sh.Name) Then répertoirePhoto = "d:\Photo\" nom = ActiveSheet.Name Set c = Range("B1") c.ColumnWidth ...
par kingfadhel
10 janvier 2014, 20:12
Forum : Excel - VBA
Sujet : Afficher une image selon nom de page
Réponses : 7
Vues : 467

Re: Afficher une image selon nom de page

Bonsoir, essaye ça Sub InsertPhoto() For Each sh In Worksheets If IsNumeric(sh.Name) Then répertoirePhoto = "d:\Photo\" ' Adapter nom = ActiveSheet.Name ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom ActiveSheet.Shapes(nom).Left = [B1].Left ActiveSheet.Shapes(nom).Top = [B1]....
par kingfadhel
10 janvier 2014, 08:33
Forum : Excel - VBA
Sujet : Recherche plusieurs feuilles
Réponses : 1
Vues : 275

Re: Recherche plusieurs feuilles

:slt:

:joindre:
par kingfadhel
9 janvier 2014, 23:27
Forum : Excel - VBA
Sujet : Afficher une image selon nom de page
Réponses : 7
Vues : 467

Re: Afficher une image selon nom de page

Bonsoir, à inserer dans le code de chaque feuille Private Sub Worksheet_Activate() répertoirePhoto = ThisWorkbook.Path & "\" ' Adapter nom = ActiveSheet.Name ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom ActiveSheet.Shapes(nom).Left = [B357].Left ActiveSheet.Shapes(nom).Top ...
par kingfadhel
8 janvier 2014, 15:04
Forum : Excel - VBA
Sujet : Fichier commerciaux
Réponses : 4
Vues : 361

Re: Fichier commerciaux

:slt: selon ta demande tu veux en sélectionnant un commercial dans la feuille commerciaux, le résultat des magasins dont il est resonsble s'affiche dans la feuille magasin. c'est ce que j'ai compris et traduit via un combobox en J3 (commerciaux). donc tu sélectionne ton commercial en J3, un filtre s...