Communauté Fb
Follow us on twitter
Les vidéos du site
Le site complément
Dépannage de votre PC

Programmer en vb

Bonjour et bienvenue,

Programmer en VB est le site qui vous fera prendre conscience que vous pouvez concevoir votre programme informatique vous-même, que vous soyez artisan, employé ou étudiant.

Le Visual Basic est un langage informatique très puissant, très flexible et très abordable.
Une version en application se trouve sous Office
Excel pour exemple :
Tapez Alt + F11 à l’aide de votre clavier puis vous voilà dans l’éditeur de code VBA.

Notre forum d’entraide vous offre des tutoriels ainsi que divers exemples tout prêt à adapter à votre projet personnel.
Nous vous demandons uniquement de la bonne humeur et de la bonne volonté pour toutes questions ou toutes aides quelle qu’elle soit.
Sachez que pour progresser rapidement il est conseillé d’aider au mieux les autres membres.
Nous ne sommes pas là pour juger les qualités ou défauts de codes proposés, mais pour trouver ensemble la solution à votre demande.

A vos claviers :

Afin de remplir le forum, nous vous demandons de partager sur les réseaux sociaux et autres.
https://www.facebook.com/AdminPVB/


Merci de nous rejoindre sur http://programmer-en-vb.forumactif.org/
Merci d'avoir pris le temps de lire.
Merci pour votre inscription.

L'équipe de Programmer-en-VB

Forum de programmation VBA et VB.NET

Welcome if you does not speak french,you are able to translate the whole topics with the flags just below of this message. Click to English

Visual Basic Application et VB.net de puissants langages à la portée de tous.

Participez et soyez acteurs des divers forums ci-dessous.

Bienvenue à chaque nouveaux membres et merci à tous ceux qui font vivre ce forum.


Qui est en ligne ?

Il y a en tout 7 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 7 Invités

Aucun


Le record du nombre d'utilisateurs en ligne est de 65 le Mar 8 Juil - 23:40

Statistiques

Nos membres ont posté un total de 5159 messages dans 620 sujets

Nous avons 461 membres enregistrés

L'utilisateur enregistré le plus récent est RACCH

Recherche dans les forums

Utiliser cette méthode afin de trouver rapidement les discussions disponible sur notre forum.


Derniers sujets

» EFFACER LIGNE SUR BASE
par jmcr Hier à 21:54

» Menustrip Vbnet Visual Studio
par Berly Dim 17 Sep - 13:27

» Insertion commentaire dans cellules
par Berly Ven 15 Sep - 20:21

» Chercher un texte dans un commentaire de cellule
par Berly Ven 15 Sep - 20:10

» ameliorer informatique
par jmcr Jeu 14 Sep - 23:19

» question pour le forum
par AdminPVB Jeu 14 Sep - 16:59

» total d'une cellule
par jmcr Lun 11 Sep - 14:51

» CODE ET combobox date enregistrement
par jmcr Lun 11 Sep - 14:49

» compter le nombre de lignes dans un listbox
par jmcr Dim 10 Sep - 11:24

» dossier pdf
par jmcr Mer 6 Sep - 21:40

» suppression d'un fichier txt en cours d'utilisation
par La boc Mar 5 Sep - 20:12

» Boucle sur DataGridView
par AdminPVB Ven 1 Sep - 20:50

» RECHERCHE COMPTABILISER NOMBRE carte
par grisan29 Mar 29 Aoû - 17:49

» ancien temps mis au moderne
par Berly Mar 29 Aoû - 17:18

» Liers des tables dans une BDD
par La boc Mar 29 Aoû - 11:01

Utiliser le bouton résolu

Dans votre message d'origine
cliquer sur le bouton



Ensuite tout en bas sur
Modifier le titre du sujet
cliquer sur le bouton

Résolu !!!

Ensuite changer l’icône du sujet par le bouton

Voilà pas plus compliqué que cela.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Partenaires


créer un forum



Annuaire referencement


Flux RSS


MSN 

Septembre 2017

LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 

Calendrier Calendrier

Menustrip Vbnet Visual Studio

Sam 16 Sep - 21:05 par Berly

Bonsoir le Forum  Very Happy

Je suis actuellement en construction  d'un logiciel pour les enfants en scolarité primaire.(Visual Studio Community 2017)

Je l'ai commencé et il fonctionne parfaitement a ce stade.

J'utilise Le contrôle MenuSrip.

Au commencement il est question d'afficher par catégorie tables de 1 a 10 .
Un Premier Bouton "Tables de Multiplications" Aucun événement 
Puis Ajouts …

[ Lecture complète ]
suppression d'un fichier txt en cours d'utilisation

Mar 5 Sep - 9:51 par La boc

Bonjour,

dans mon application j'ai un fichier txt qui est chargé dans un DataGridView en fonction du n° ID.

Quand je supprime un ID, je dois aussi supprimer ce fichier, quand je fait un delete ça marche bien, le fichier est bien supprimé du dossier mais quand je ferme l'application j'ai un message box:

"Violation de l’accès concurrentiel:
Delete command a effectué 0 des enregistrements …

[ Lecture complète ]
Boucle sur DataGridView

Jeu 31 Aoû - 8:25 par La boc

Bonjour as tous,

J'ai laissé tomber la BDD avec les tables pour mes factures, parce-que j'ai plus de 850 entrées à gérer et ça va être un peu trop lourd.

Je suis donc partis sur des DataGridView pour emplir mes factures, et au lieu d'enregistrer dans une BDD j'enregistre dans un fichier txt et je recharge les fchier en fonction du nom du client.

Jusque là pas de problème.

Je voudrais …

[ Lecture complète ]
Liers des tables dans une BDD

Lun 28 Aoû - 15:08 par La boc

Bonjour à tous,

Je sèche sur un problème visiblement simple, mais impossible de faire quelque chose qui fonctionne!

Voilà dans une base de données access j'ai deux tables, une table client et une table facture, je souhaiterais lier les ID des deux tables pour que quand je choisis un id client j'ai sa facture dans la table facture.

Je fais une application VBNET avec Visulal studio comunity …

[ Lecture complète ]
Application

Lun 15 Mai - 19:02 par Berly

Bonjour le forum

Souci dans une nouvelle application.

Total des énoncés =3

Ecriture de l'énoncé 1 dans un Textbox.

Je voulais créer plusieurs problèmes différents.
Dons pour cela j'ai créé 3 sub  Laughing.

Lors de l'événement clic sur le bouton créé pour visualiser le premier énoncé celui ci s'affiche correctement Very Happy .
Suite a cela l'utilisateur donne le résultat ,et un Msgbox …

[ Lecture complète ]
Obtenir le volume sonore enregistré par le micro

Sam 10 Sep - 13:29 par Nayl.VBcoder

Bonjour,

Je cherche à avoir le volume sonore de la pièce en temps réel, et l'afficher dans une ProgressBar.
Je ne vois pas comme plus décrire mon problème.

Merci de vos réponses.

Petits bidouillages pour ce faciliter La vie ,Astuces et codes pratique

Dim 11 Juin - 12:20 par Berly

Bonjour le Forum  Very Happy.

Lorsque j'écrivais dans mon code Console.Writeline ("Patati,Patata,......) ,j'ai d'abord utilisé le copié collé en changeant la valeur du texte .

Bon d'accord ,c'est bien mais ,ça me saoul un peu ,au fur et a mesure de mes apprentissages ,j'ai découvert les fonctions  Very Happy.

Maintenant je partage celle ci avec vous .

On est la sur un exemple de code en "Mode …

[ Lecture complète ]
Utilisation d'un objet son (Wav)

Jeu 18 Mai - 21:48 par Berly

Bonjour le forum 

Voila , je voudrais savoir si on peut créer un tableau d'objets son.
Difficile de trouver ce genre d'information .

Les sons  sont intégrés en ressources programme.

Merci  Very Happy
Code:
[Module Module1
    Dim son1 = New System.Media.SoundPlayer(My.Resources._0283)
    Dim son2 = New System.Media.SoundPlayer(My.Resources._0863)
    Dim son3 = New …


[ Lecture complète ]
Ressource Vb.net

Ven 5 Mai - 22:29 par Berly

Bonsoir le forum

Toujours a la recherche de ressources ,je partage avec vous une nouvelle ressource  Wink.

Bonne lecture .

https://vbnetpourtous.wordpress.com/2012/12/13/les-variables/


pdf envoyer sur outlook

Partagez
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu pdf envoyer sur outlook

Message par narvalot le Mer 30 Mar - 19:34

Bonjour le Forum,

je travaille sur beaucoup de fichier excel que je transforme en pdf et je dois en envoyer plusieurs à plusieurs collaborateurs sur outlook.

Est-il possible de créer un bouton ou un lien avec l'adresse de la messagerie de mes collaborateurs sur le pdf et envoyer ce dernier sur outlook de sorte de gagner un maximum de temps.

Par avance, merci de vos investissements

narvalot


Dernière édition par narvalot le Dim 10 Avr - 16:19, édité 1 fois
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Mer 30 Mar - 20:13

Bonjour narvalo,

Voici un code qui pourrait t'intéressé. Lorsque tu clique sur le bouton @,

1) Enregistrement de la feuille Excel affichée en format pdf.

2) Sélection des destinataires à qui tu désires envoyer le pdf créé
3) Inscrire la lettre X dans les cellules de la colonne D, adjacentes aux adresses électroniques

(Voir le fichier Excel ci-joint)

Bonne journée,

Dan
Fichiers joints
Essai 1224.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(46 Ko) Téléchargé 9 fois
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Jeu 31 Mar - 19:49

Bonjour Dan
J'ai testé ta macro, quand je clic sur @, la macro  se bloque sur [E1]
Les liens, c'est super cool, ça va me simplifier la vie
Comme j'ai plusieurs feuilles, comment je fais pour choisir la feuille qui m'intéresse ?
Un grand merci à toi
Cordialement
narvalot
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Ven 1 Avr - 7:58

Bonjour narvalot et bienvenue sur le forum cheers
@ Danpom302, bonjour également.

Pour choisir une feuille en VBA on utilise l'instruction suivante:
Code:
Sheets("nom de feuille")
Afin d'adapter au mieux le code ou fichier de Danpom302,le plus simple serait de voir à quoi ressemble le tiens (sans données confidentielles bien sur et allégé--- des feuilles qui ne servent pas pour l'exemple))
Tu dis la macro se bloque sur E1.
qu'as tu inscrit dans cette cellules.
pour que cela fonctionne il faut que ton pdf soit dans le même dossier que ton fichier.
on le voit ici:
Code:
Sub Courriel()
'
'Enregistre l'onglet en format pdf
    Dim MonFichier As String
    Dim MonAdresse As String
    Dim mon_pdf As String
        mon_pdf = [E1]
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & mon_pdf & " .pdf", Quality:=xlQualityStandard
        MonFichier = ActiveWorkbook.Path & "\" & mon_pdf & " .pdf"
        MonAdresse = Range("D3").Text
    
    Call FichierPDF(MonAdresse, MonFichier)
    
End Sub

Activeworkbook.path = chemin du dossier dans lequel se trouve mon fichier actif

A bientôt. Very Happy


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Ven 1 Avr - 13:39

Merci à vous, tout fonctionne du tonnerre en ce qui concerne les adresses email par contre mon pdf est blanc et je ne sais pas comment faire pour que mon pdf rentre en A1:V96
Est-il obligatoire que la page d'acceuil soit avec le pdf
Cordialement
narvalot
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Ven 1 Avr - 15:25

Bonjour adminPVB et narvalot,

Merci pour vos commentaires. Désolé pour le retard à répondre. Mon petit fils était malade et je devais m'occuper de lui.

Voici où j'en suis rendu avec mon travail. J'ai amélioré le fichier Excel (voir ci-joint) en ajoutant un nouveau code qui extrait le nom de toutes les feuilles du classeur qui va permettre à narvalot d'identifier la feuille à envoyer en ajoutant un X dans la cellule à droite du nom. Par contre, un combo box permettant de choisir ce nom de feuille serait aussi option. Je travaille la dessus aujourd'hui. Ce qui me reste à faire est d'écrire le code permettant d'afficher la feuille sélectionné par l'ajout du X ou sélectionné à l'aide du combo box afin de permettre au code de poursuivre son exécution soit, enregistrer cette feuille en format pdf et l'envoyer par courriel aux destinataires sélectionnés.

Mon code pour mettre à jour le nom de chaque feuille du classeur:
Code:
Sub NomDesFeuilles()
'
' Sélectionner la feuille Infos
    Sheets("Infos").Select
    Range("A1").Select

' Effacer les données A5:A13 et F2.
    Range("A5:A20,F2").Select
    Range("F2").Activate
    Selection.ClearContents
    Application.CutCopyMode = False
    Range("A1").Select

' Nom des feuilles du classeur
    Dim i As Integer
        Range("A5").Select
    
    For i = 2 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i
    
' Sélectionner la dernière cellule pleine de la colonne A
    Range("B" & [b:b].Find("*", , , , 1, 2).Row).Activate
    Range("A" & [a:a].Find("*", , , , 1, 2).Row).Activate
    
' Copier coller la dernière cellule pleine de la colonne A dans F2 la dernière cellule pleine de la colonne A
    Selection.Copy
    Range("F2").Select
    ActiveSheet.Paste
    Range("A4").Select
    
' Sélectionner la dernière cellule pleine de la colonne A
    Range("B" & [b:b].Find("*", , , , 1, 2).Row).Activate
    Range("A" & [a:a].Find("*", , , , 1, 2).Row).Activate
    
End Sub



Mon code pour enregistrer et envoyer la bonne feuille par courriel au destinataires choisis:
Code:
Sub EnvoieFeuilSélectionnée()
'
' Touche de raccourci du clavier: Ctrl+e
'
'Enregistre la feuille sélectionnée en format pdf
    Dim Plage As Range, S As Range
    Dim MonFichier As String
    Dim MonAdresse As String
    Dim mon_pdf As String
        mon_pdf = ListeFeuil

'Collecte les cellules contenant la lettre X dans la colonne C.
    Set Plage = Range("B5:B20").SpecialCells(xlCellTypeConstants, 2)
    
'Pour chaque lettre X collectée
    For Each S In Plage
        
'Récupère le nom de la feuille de la colonne A.
    ListeFeuil = ListeFeuil & IIf(Len(ListeFeuil) > 0, ";", "") & S.Offset(0, -1).Text
Next S

If Err.Number = 0 Then

SheetsA6.Select
        
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & mon_pdf & " .pdf", Quality:=xlQualityStandard
        MonFichier = ActiveWorkbook.Path & "\" & mon_pdf & " .pdf"
        MonAdresse = Range("D3").Text
    
    Call FichierPDF(MonAdresse, MonFichier)
    
End If
End Sub

Sub FichierPDF(AdresseMail, Fichier)
'
'Prépare et envoie la feuille sélectionnée via Outlook.
'Une liste des adresses électronique doit faire partie de chaque document Excel.
    
    Dim Plage As Range, R As Range
    Dim ListeMails As String
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    Dim control_app
    Set control_app = GetObject(, "Outlook.Application")
    
'Collecte les cellules contenant la lettre X colonne D.
    Set Plage = Range("D3:D20").SpecialCells(xlCellTypeConstants, 2)
    
'Pour chaque lettre X collectée
    For Each R In Plage
        
'Récupère la ou les adresses électroniques de la colonne C.
    ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
Next R

If Err.Number = 0 Then
  With OutMail
    .To = ListeMails
    .Subject = "Pour " & Range("E1")
    .HTMLBody = "<p>Bonjour,</p>" & "<p>Ci-joint le document " & Range("F1").Text & " pour essai. " & "<br>" & "<p>Cordialement," & "<br>" & "<p>" & Range("E3").Value & "."
    .Attachments.Add Fichier
    .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Else
 Err.Clear
 Application.ActivateMicrosoftApp (xlMicrosoftMail)

   With OutMail
    .To = ListeMails
    .Subject = "Pour " & Range("E1")
    .HTMLBody = "<p>Bonjour,</p>" & "<p>Ci-joint le document " & Range("F1").Text & " pour essai. " & "<br>" & "<p>Cordialement," & "<br>" & "<p>" & Range("E3").Value & "."
    .Attachments.Add Fichier
    .Send

End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
        
' Ne pas raffraichir l'écran
    Application.ScreenUpdating = False
      
' Enregistrer le classeur
    ActiveWorkbook.Save

    Application.ActivateMicrosoftApp (xlMicrosoftMail)

'Valider que l'envoie des courriels à bien été effectué correctement.

End Sub


Pour lancer ce dernier code, utilisez : Touche de raccourci du clavier: Ctrl+e

Ce dernier code ne fonctionne pas avec l'ajout du code proposé par adminPVB probablement parce qu'il ne connaissait pas tout de ma conception.

Je suis ouvert pour une aide car je suis un peu embêté pour faire fonctionner le tout à moins qu'il y ait une solution plus simple bien entendu.

En attente d'une réponse du forum,

Dan
Fichiers joints
Essai 1224.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(30 Ko) Téléchargé 3 fois
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Sam 2 Avr - 1:44

Bonjour à tous,

J'essai un code mais il ne fonctionne pas.

Code:
'Collecte les cellules contenant la lettre X dans la colonne D.
    Set Plage = Sheets(Infos).Range("D5:D24").SpecialCells(xlCellTypeConstants, 1)
    
'Pour chaque lettre X collectée
    For Each R In Plage
        
'Récupère la ou les adresses électroniques de la colonne C.
    ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
Next R

If Err.Number = 0 Then

Après le premier passage sur Next R, il va sur If Err.Number = 0 Then. Selon moi, il n'est pas en mesure d'identifier les adresses électroniques sélectionnées par un x.

Je joins ma dernière version du fichier Essai 1224-2 pour compréhension. Les instructions sont dans la feuille Infos. Lorsque j'ai fait mes essais, j'ai utilisé de vrais adresses électroniques.

Merci pour votre aide,

Dan
Fichiers joints
Essai 1224-2.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(49 Ko) Téléchargé 0 fois
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Sam 2 Avr - 2:42

Bonjour narvalot et admPVB,

Enfin, le tout fonctionne.

S.v.p. voir ci-joint le fichier Essai 1234-3.

J'ai eu beaucoup de plaisir à confectionner le tout.

À la prochaine,

Dan cheers
Fichiers joints
Essai 1224-3.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(48 Ko) Téléchargé 8 fois
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 5:07

Bonjour,

Chez moi, cela ne fonctionne pas, il me beug sur mon_adresse.
De plus je ne vois pas les valeurs pour cadrer les pdf dans la macro, quand j'enregistre le fichier sur mon bureau et que je ré-ouvre, j'ai un message "dll manquante" ??, cela proviendrais de quoi ?
Un grand merci
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Sam 2 Avr - 14:42

Bonjour narvalot,

Ci-joint une nouvelle version (4) du fichier Excel. J'ai retiré de la macro Mon_adresse qui te causait un problème.

Pour la Dll, normalement le message te donne le nom de celle-ci afin de te permettre de l'installer. J'ai eu ce problème avec Access 2010 et je l'ai corrigé ainsi.

Bonne chance,

Dan
Fichiers joints
Essai 1224-4.xlsm
Vous n'avez pas la permission de télécharger les fichiers joints.
(46 Ko) Téléchargé 10 fois
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 18:01

Bonjour Dan,
Je ne comprends pas pas pourquoi ça me beug en "a1" et a quoi correspond ce "a1" ?
De plus quand je mets ce bout de macro pour imprimer, j'ai la page d'acceuil que je ne veux pas et d'autres pages blanches que je ne veux pas non plus, j'ai du mal à comprendre 

Code:



Sub impress_pdf()





Application.ActivePrinter = "PDFCreator sur Ne00:"





ActiveWindow.SelectedSheets.PrintOut From:=1, To:=15, Copies:=1, Collate _


        :=True


End Sub




par avance, merci de m'orienter
Cordialement
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 18:44

Je suis dans l'impasse, quand je clique sur mettre à jour pour la liste de mes onglets

message que la macro me dit
la méthode pastespécial de la classe range a échoué, et ensuite la macro s'ouvre et j'ai ce message

erreur de compilation projet ou bibliothèque introuvable et [A1] en jaune

Au secours, je n'y connais et je ne comprends plus rien
avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Sam 2 Avr - 19:10

Bonjour narvalot,

Tu dois installer les bibliothèque demandées. Appuis sur  alt+F11, sélectionnes Outils, Référence..., puis installe les références suivantes :

Microsoft Excel 14.0 Object library.
Microsoft Outlook 14.0 Object library.
Microsoft Office 14.0 Object library.
Ole automation.
Visual Basic for automation.

S.v.p., commence par faire fonctionner mon fichier seulement.

Merci,

Dan
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 19:16

C'est ok, je fais ce que m'as écris, mais toujours en A1 en jaune sur la macro
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Sam 2 Avr - 20:14

Bonjour le forum
Pas de panique Narvalot tu es entre bonne mains
On va faire en sorte de solutionner ton problème
Je regarde cela avec danpom302 et tu sortiras de ce fil ravi
A très bientôt


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 20:25

Je vous remercie, à tous le monde sur ce fabuleux Forum.
Grand merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Sam 2 Avr - 22:36

Cool
Tu dis que ça bogue en [A1]
As tu encore l’erreur de Dll pour commencer.
Ensuite:
A savoir d'après le fichiers on fait un export en PDF de la page choisi avec le menu déroulant qui porte le nom que tu retrouvera dans chaque cellules A1
Comment sont ils nommés? avec l'extension ou sans l'extension .pdf dans les cellules A1 de chaque feuille du Fichier de Danpom302,sauf la feuille info.
Merci pour les infos cela aidera à avancer.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Sam 2 Avr - 23:14

Au niveau de la dll c'est ok 

Mais en ce qui concerne la cellule A1, il n'y a que "=" donc ils ne sont pas nommé, je ne retrouve pas ce que tu me dis,c"est peut être pour ça que cela beug
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Sam 2 Avr - 23:18

C'est le même fichier que Dan ou un autre qui pose problème avec l'erreur?
peux tu me dire ce qui est inscrit dans la feuille Essai1 cellule A1 pour l'exemple?
ensuite pour ton message N°11 change le chiffre 15 par un plus petit chiffre 1,2,3 ....

Merci
A+ (coucou Danpom302)


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Dim 3 Avr - 5:23

Ce n'est pas le même fichier et en feuil1 en a1 il est marqué essai1, en feuil2, essai2

Sur le premier fichier, cela fonctionne mais quand j'imprime en pdf, j'ai la page "adresse électronique" puis une page blanche puis ma page qui est imprimer puis une autre page blanche, je ne comprend pas 

Encore merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Dim 3 Avr - 11:30

Bonjour,
Si je comprend bien la feuille 1 ,n'est pas la même que celle de Danpom302,
Donc la solution proposé de Danpom302 par son fichier est ok.(Bravo Dan et merci,ton fichier est top)
Peux tu svp envoyer ton fichier avec le code afin d'analyser ce qui ne va pas (enlève les données confidentielles)
A bientôt.


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Dim 3 Avr - 16:38

Bonjour adminPVB,

Pour tester le fichier Essai1234-4, j'ai transféré la feuille Infos ainsi que les modules 1 et 2 de celui-ci dans un autre fichier Excel comprenant ici 24 feuilles.

La macro (Bouton vert actualiser) du module 1, a fonctionnée au premier essai. J'ai par contre modifié la numérotation de la colonne A pour qu'elle soit de 1 à 300 (Feuilles).

La macro (Bouton noir @) du module 2 quand à elle, s'est arrêtée sur A1 de l'onglet choisi. La raison de son arrêt est qu'il y a une formule dans cette cellule qui fait référence à une autre feuille. J'ai donc remplacé A1 pour une cellule qui contenait seulement un texte représentatif à cette feuille.

Est-il possible de modifier mon code pour lire le résultat de la formule afin de permettre à la macro de poursuivre son exécution?

Après avoir corrigé ce petit problème, j'ai été en mesure d'envoyer une copie de l'onglet choisi, en format pdf à l'adresse électronique sélectionnée et le tout a très bien fonctionné.

Bonne journée,

Dan
avatar
narvalot
Step_Two_VBA
Step_Two_VBA

Messages : 130
Date d'inscription : 30/03/2016

Résolu Re: pdf envoyer sur outlook

Message par narvalot le Dim 3 Avr - 19:23

Bonjour Dan,

Peux-tu m'envoyer le fichier, stp

Un grand merci
avatar
AdminPVB
Admin
Admin

Localisation : France Nord 59
Messages : 1843
Date d'inscription : 24/05/2013
Age : 41

Résolu Re: pdf envoyer sur outlook

Message par AdminPVB le Dim 3 Avr - 23:09

Bonjour Dan et Narvalot,
@ Dan
Quelle est cette formule ?
@Narvalot
J'attends ton fichier afin de pouvoir corriger ton problème
merci.
A+


_________________
Avatar


Bienvenue sur

Dans votre message d'origine cliquer sur le bouton

Tout en bas sur Modifier le titre du sujet cliquer sur le bouton : Résolu !!!
Changer l’icône du sujet par le bouton

Tout simplement.


Merci pour votre présence ou passage sur le site de programmer-en-vb

Celui qui croit tout connaitre, ne connait sans doute pas grand chose,chacun apporte son savoir, mais on a tous tout à apprendre ....  

study

avatar
danpom302
Step_Three_VBA
Step_Three_VBA

Localisation : Québec
Messages : 368
Date d'inscription : 23/09/2013
Age : 66

Résolu Re: pdf envoyer sur outlook

Message par danpom302 le Lun 4 Avr - 2:05

Bonjour adminPVB,


La formule dans la cellule A1 de de mon autre fichier Excel comprenant ici 24 feuilles est : 
=CONCATENER(Intro!B2;" ";Intro!B3)

qui fait référence à l'année 2016.

Bonne nuit,

Dan

Contenu sponsorisé

Résolu Re: pdf envoyer sur outlook

Message par Contenu sponsorisé


    La date/heure actuelle est Jeu 21 Sep - 5:16