Impression formats enveloppes

[pinkolo]

Bonjour le forum,
je suis dans mes petits travaux d'impressions et je m'apercois que cela serait
bien de pouvoir imprimer une enveloppe (format à selectionner) directement à partir d'un classeur ouvert, sur une imprimante à selectionner (2 choix).
sur une feuille se trouve les données destinataire => nom, adresse (1 seul destinataire par classeur), une selection du type enveloppe en liste déroulante, une selection de l'imprimante en liste déroulante, et un gros bouton "impression"
apres recherche, je n'ai pas vu d'exemples aboutis sur ce type d'application, cela est il possible avec excel ?
quelqu'un peut il aider une jeune fille en difficulté ?
merci d'avance,

 

[Compte Supprimé 979]

Re : Impression formats enveloppes

Bonjour Pinkolo,

As-tu lu la charte de ce forum 😕
ici, on ne fait pas, en général, du tout cuit .... nous sommes là pour aider
mais pas pour faire le boulot des autres 😎

Et au fait

quelqu'un peut il aider une jeune fille en difficulté ?

Ca cloche avec ton profil qui est : Homme

 

[pinkolo]

Re : Impression formats enveloppes

Bonjour BrunoM45,
Quel acceuil musclé pour un gentleman 😉
Tu remarqueras que j'ai corrigé mon profil. J'avoue avoir été un peu vite lors de l'incription et les préremplis ont été utilisés, mais après passage aux toilettes, je confirme l'absence de parametres masculins 🙂
Pour ce qui est de ma demande, je joins un classeur "vierge" de code qui servira de base de travail.
merci à tous et à toutes pour votre aide

Je me permet de rajouter ce petit détail : le nom du classeur excel sera toujours différent !
merci

 

[pinkolo]

Re : Impression formats enveloppes

Bonsoir le forum,
ma question parait elle mal définie ou cela vous parait etre impossible ?
J'ai pourtant respectée les règles du forum, comme me l'a demandé BrunoM45 😛
merci de me tenir au courant

 

[gwenlorin]

Re : Impression formats enveloppes

bonjour pinkolo,

sans vouloir être désagréable, je crois que ton "impatience" va en faire fuir quelque uns.
Mais comme c'est un forum d'entraide on va essayer de t'aider.

j'ai regardé ton fichier. Je ne crois pas que ce soit impossible, au contraire.
Pour faire avancer ton projet tu peux déjà :
- ajouter des feuilles avec une mise en page qui correspond à chacun de tes formats d'enveloppes
- Reprendre dans ces modèles d'enveloppes les coordonnées du destinataire (avec des formules)
- essayer d'avancer sur le code qui envoie sur le bon modèle d'enveloppes en fontion de ton choix + impression

En cas de pb tu sais ou poser des questions 🙂

 

[pinkolo]

Re : Impression formats enveloppes

Bonjour GWENLORIN,
Nulle n'est parfaite 😀 et comme disait ma grand mere, impatience est mere de sureté (elle etait dyslexique, mais on ne lui à jamais dit🙄)
comme tu me l'as demandé, j'ai retravaillé le classeur d'essai.
pour ce qui est du code, je ne vois pas par ou commencé 😕
merci pour ton aide,

 

[Compte Supprimé 979]

Re : Impression formats enveloppes

Bonjour Pinkolo,

Pour te montrer que je ne suis pas que méchant 😉
(mais ma grand mère m'a toujours dis, qu'il fallait lire la charte d'un forum, avant de poster 😀)

Tu trouveras ci-joint ton fichier avec du code dans la feuil1

Pour aller voir le code : ALT+F11 (ou menu -> Outils -> Macro -> Visual Basic Editor)

Voir annotation dans la première page en ce qui concerne le choix d'imprimante.

A+

 

[pinkolo]

Re : Impression formats enveloppes

Bonjour Bruno,
Avant tout chose, une question m'effleure : Tu as choisis M45 parce que M44 était déja pris ? ou cela n'a rien à voir 😀
Je suis désolée, mais je ne vois pas de fichier joint. Je soupçonne un oubli
merci d'avance

 

[Compte Supprimé 979]

Re : Impression formats enveloppes

Re,

Oups, j'ai comme qui dirait oublié quelque chose 😛😱
J'ai mis le fichier dans mon post précédent 😉

Avant tout chose, une question m'effleure : Tu as choisis M45 parce que M44 était déja pris ? ou cela n'a rien à voir

Tiens, pourquoi cette question 😀 c'est marrant ça ...

Non, non pout tout te dire : M est la première lettre de mon nom, 45 est le département de ma localité, c'est pas plus compliqué

A+

 

[Dull]

Re : Impression formats enveloppes

Salut pinkolo, Bruno🙂, gwenlorin, le Forum

Pour le Fun🙂

Un petit Fichier avec un Userform qui te permet d'imprimer la/les page(s) que tu souhaites avec l'imprimante de ton choix a condition qu'elle soit installée sur le PC

@Bruno

 With Sheet("Feuil1")

Sheets avec un s ça passe mieux 😀

Bonne Journée

 

[Compte Supprimé 979]

Re : Impression formats enveloppes

Salut l'abi Dull, heuuu non l'Ami Dull 😀😉 (je sais trop facile celle là ...)

Je n'y crois pas, je n'ai même pas compiler le code pour vérif. 😱
Effectivement 'Sheets' ça va mieux

Merci à toi oeuil de lynx 😛

A+

 

[pinkolo]

Re : Impression formats enveloppes

Bonjour Dull,
j'avais corrigé de moi meme pour le "s" de bruno. Dull un petit essai est tres concluant avec ton fichier, mais si j'ai plusieurs autres feuilles sur mon classeur et que je ne veux qu'apparaisse dans ton userform que les DL-BL, DL, C5 que faut il faire ? voir exemple joint
merci à vous 3 pour ce suivi,

 

[Compte Supprimé 979]

Re : Impression formats enveloppes

Re,

Sur ce qu'à donné notre ami Dull, il faut modifier la procédure

Private Sub UserForm_Initialize()
  Call maiqueDocumentsListbox
  Application.EnableEvents = False
  LbClasseurs.Value = ActiveWorkbook.Name
  Application.EnableEvents = True
End Sub

et celle-ci

Sub maiqueFeuillesListbox()
  Dim AvailableSheet As Worksheet
  Dim NePasMettre(10) As String
  Dim VFind() As String
  ' Effacer la liste
  FrmImprime.LbFeuilles.Clear
  ' Tableau des feuilles à ne pas mettre dans la liste
  NePasMettre(1) = "pas celle la 1"
  NePasMettre(2) = "Feuil1"
  
  For Each AvailableSheet In ActiveWorkbook.Worksheets
    If AvailableSheet.Visible = xlSheetVisible Then
      ' Chercher le nom de la feuille dans le tableau A NE PAS METTREE
      VFind = Filter(NePasMettre, AvailableSheet.Name, True)
      ' Si aucune valeur trouvée = OK
      If UBound(VFind) < 0 Then
        FrmImprime.LbFeuilles.AddItem AvailableSheet.Name
      End If
    End If
  Next AvailableSheet
  On Error GoTo 0
End Sub

Voir fichier joint 😉

A+

 

[pinkolo]

Re : Impression formats enveloppes

Bonjour Bruno, Dull et tous les autres,
Apres mise en service et adaptation de la modification de code, cela fonctionne mieux que dans mes reves les plus fous 😀 (je sais j'en fais toujours des tonnes...)
En tout cas merci à vous tous et toutes pour votre aide à travers ce forum.
A la prochaine pour un nouveau projet 🙄