XL 2013 Copy onglet vers onglet suivant dans Excel

DARRIEUX

XLDnaute Nouveau
Bonjour,

Je viens à votre rescousse. Je suis bénévole dans une association humanitaire qui logeons des personnes "dans le besoin et difficulté" et nous éditons mensuellement un quittancement.

Je cherche 2 choses :

1 - Copier l'onglet sur lequel on est positionné en onglet +1 avec un InputBox pour saisir le mois suivant
2 - Une liaison sur onglet -1 pour récupérer le solde fin de mois précédent.

Je vous remercie infiniment pour votre aide

Cordialement

Jacques DARRIEUX
64110 - JURANCON
 

Pièces jointes

  • QUITTANCEMENT DARRIEUX avec suppression macros et edition pas de fonction classeur précédent.xlsm
    55.8 KB · Affichages: 15

shinozak

XLDnaute Occasionnel
Voila, il te faut l'application outlook :)

Si ça marche pas, fait alt+f11 sur ta feuille excel, tu cliques sur "Outils", tu cliques sur "Références" et tu coches "Microsoft Outlook xx.x Object Library".
 

Pièces jointes

  • DARRIEUX VALIDATION-1 OK et envoi feuille par mail.xlsm
    101.4 KB · Affichages: 5

DARRIEUX

XLDnaute Nouveau
Coucou

Problème de DLL malgré le fait que la DLL Outlook soit bien sur mon poste de travail. Je crains que l’utilisateur lamda ne sache pas rajouter la DLL. Moi-même je bute !!!!
De surcroit, tu sauvegardes sur C:\USERS........................ Je crois bien que le disque C:\ soit bloqué sur les postes de travail utilisés par les bénévoles.

J'ai mis sur module 2 une macro trouvée sur le net. Veux-tu y jeter un oeil STP.
J'ai testé -----> pas de bug, mais je ne reçois rien sur ma boite de réception mail.

Si tu gardes cette macro, avec aménagements, veux-tu STP vérifier que le contenu du message s'affichera sur le mail du destinataire

ENCORE MERCI

Bon WEEK-END, malgré cette "putain de situation"

Bon courage

Bien à TOI

Jacques


Erreur chargement DLL
 

Pièces jointes

  • SHINOZAK VALIDATION quittancement -1 avec envoi onglet mail en PDF.xlsm
    99.1 KB · Affichages: 9

DARRIEUX

XLDnaute Nouveau
Désolé pour le vide du module 2.
Je n'ai pas pu l'intégrer car "erreur de chargement de la DLL"

Ci-dessous le contenu de la macro que je voulais intégrer dans le module 2

Sub EnvoiOngletparMailDARRIEUX()
Dim Dest As String, Sujet As String
ActiveWorkbook.Activate
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("E14").Value 'Saisir l'adresse mail
Sujet = "Votre quittance de loyer"
Message = "Veuillez trouver ci-joint la quittance du mois. Comme indiqué sur votre bail, cette quittance est à régler avant le 10 du mois à venir. Cordialement - La Responsable de Gestion Locative Adaptée"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
MsgBox ("L'envoi de la quittance par mail vient d'être effectuée")
Application.DisplayAlerts = True

End Sub

Tu veux bien l'intégrer dans le dernier fichier envoyé "SHINOZAK......

ENCORE MERCI
 

shinozak

XLDnaute Occasionnel
Bonsoir,
Le problème c'est que avec .SendMail, on ne peux pas mettre de corps de texte. Donc la macro est limitée..

Si tu as un problème de DDL c'est qu'il te manque une référence.

Fait : Alt+F11 sur ta feuille excel, tu cliques sur "Outils", tu cliques sur "Références" et tu coches "Microsoft Outlook xx.x Object Library".

Créer un dossier dans ton ordinateur et change le lien du code.
Et relance la macro..

Normalement, ça devrait marcher. ;)
 

DARRIEUX

XLDnaute Nouveau
Bonjour,

J'ai laissé passé dimanche, et je reviens avec ton fichier.
Je ne peux l'utiliser, car d'une part :
lorsque je clique sur la bitmap impression ----> excel ne répond plus
D' autre part car je clique sur l'icone Mail ----> erreur de chargement de la DLL. Je fais OK , puis ALT F11 - Objets - Références et j'ai "MANQUANT : Microfoft outlook 16.0 . Object library.

J'essaie de cchercher cette référence ----> Rien, je trouve Microfoft outlook 15.0 . Object library. Je fais OK et on me dit que ce module est déjà occupé.

Est-ce que par j'utilise MSOFFICE 2013 et toi autre version ?
Sur les différents postes de mes bénévoles travaillant sur plusieurs sites et/ou départements, je ne sais pas la version MSOFFICE. Je crois que c'est MS OFFICE 2016.

Pour éviter de faire appel aux DLL ---------> est-il possible de développer quelque chose dans faire appel à ces DLL ?

MERCI ENCORE POUR TON AIDE PRECIEUSE

JAKES
 

Pièces jointes

  • SHINOZAK VALIDATION quittancement -1 avec envoi onglet mail en PDF.xlsm
    99.1 KB · Affichages: 11

DARRIEUX

XLDnaute Nouveau
Bonjour,

Toujours impossible d('utiliser ton dernier fichier avec ce problème de DLL Manquant Library 16.0
Ca me bloque complet, et je ne peux plus l'enregistrer.

Est-ce possible de bypasser l'appel à cette DLL library16.0, car je présume que tu as développé sur MSOFFICE 2016 ; moi j'ai MSOFFICE 2013 et on annonce 2019. Les postes de mes bénévoles sont divers et variés, surtout s'ils sont en télétravail depuis leur poste de travail at home.

MERCI ENCORE A TOI

BIEN CORDIALEMENT
 

Pièces jointes

  • SHINOZAK VALIDATION quittancement -1 avec envoi onglet mail en PDF-2.xlsm
    99.1 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088