Impression formats enveloppes

C

Compte Supprimé 979

Guest

• 17 Septembre 2009

• #2

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é ?

Cliquez pour agrandir...

Ca cloche avec ton profil qui est : Homme

 

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 17 Septembre 2009

• #3

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

 

Pièces jointes

• Essai enveloppe.xls

  21 KB · Affichages: 86
• Essai enveloppe.xls

  21 KB · Affichages: 93
• Essai enveloppe.xls

  21 KB · Affichages: 96

Dernière édition: 17 Septembre 2009

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 18 Septembre 2009

• #4

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

 

Vote positif 0 Vote négatif

G

gwenlorin

XLDnaute Occasionnel

• 18 Septembre 2009

• #5

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 🙂

 

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 19 Septembre 2009

• #6

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,

 

Pièces jointes

• Essai enveloppe.xls

  41.5 KB · Affichages: 56
• Essai enveloppe.xls

  41.5 KB · Affichages: 66
• Essai enveloppe.xls

  41.5 KB · Affichages: 68

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Septembre 2009

• #7

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+

 

Pièces jointes

• Pinkolo_Essai enveloppe.xls

  52 KB · Affichages: 94

Dernière modification par un modérateur: 19 Septembre 2009

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 19 Septembre 2009

• #8

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Septembre 2009

• #9

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 19 Septembre 2009

• #10

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

Code:

 With Sheet("Feuil1")

Sheets avec un s ça passe mieux 😀

Bonne Journée

 

Pièces jointes

• pincolo.zip

  24.6 KB · Affichages: 60
• pincolo.zip

  24.6 KB · Affichages: 53
• pincolo.zip

  24.6 KB · Affichages: 59

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Septembre 2009

• #11

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+

 

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 19 Septembre 2009

• #12

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,

 

Pièces jointes

• pincolo.zip

  21.9 KB · Affichages: 25
• pincolo.zip

  21.9 KB · Affichages: 29
• pincolo.zip

  21.9 KB · Affichages: 28

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Septembre 2009

• #13

Re : Impression formats enveloppes

Re,

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

Code:

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

et celle-ci

Code:

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+

 

Pièces jointes

• Pinkolo_exemple2.xls

  85 KB · Affichages: 122

Vote positif 0 Vote négatif

P

pinkolo

XLDnaute Nouveau

• 21 Septembre 2009

• #14

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 🙄

 

Vote positif 0 Vote négatif