Gestion Ordre Mission VBA

[soso882]

Bonjour

Je viens de créer un fichier Excel dans lequel je gère les Ordre de mission.

Le but de celui ci étant de rempli un tableau. Les données de ce tableau se recopie dans un formulaire établi sur Excel que je dois ensuite imprimer et je dois créer ce fichier en PDF ensuite,

Le formulaire contient des checkbox également : si tu marques dans le tableau oui alors cela coche la case "avec frais", si non "sans frais", les autres sont du même principes (oui ou non)

Mon problème :
- j'ai essayé d'automatiser le tout sur VBA mais cela ne fonctionne
- je ne sais pas comment faire pour les checkbox

Quelqu'un pourrait t'il m'aider ?

MERCI BEAUCOUP

 

[Robert]

Bonjour Soso, bonjour le forum,

Pas vraiment compris ton problème....
Les Checkboxes permettent de sélectionner plusieurs choix possibles alors que les OptionButtons d'un même groupe ne gardent que le dernier choix coché, désactivant le ou les s autres. Dans ton cas, les OptionsButtons me paraissent plus adaptés. Pense à grouper selon tes besoins avec la propriété [GroupName] en leur donnant le même nom. Par exemple G1 pour les OptionButtons 1 et 2, G2 pour les OptionButtons 3 et 4, etc.)

 

[Lone-wolf]

Bonjour Soso, Robert

Ton fichier en retour. Je te laisse le soin de finir la macro Enregistrer pour les autres CheckBox's. À moins que tu modifie par les OptionButtons, comme l'a dit Robert.

 

[Lone-wolf]

Re Soso,

un ajout dans la macro Pdf

Sub SaveAs_Pdf()
Dim s As OLEObject

Feuil1.Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf", _
   Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
  
For Each s In ActiveSheet.OLEObjects
    If s.progID = "Forms.CheckBox.1" Then
        s.Object.Value = False
    End If
Next s
End Sub

 

[soso882]

oh

Merci c'est exactement ça
je n'ai plus qu'à regarder comment tu as fait pour comprendre

Super gentil

Merci

 

[Lone-wolf]

Re Soso,

Il faut supprimer la date dans l'entête, et mettre (entête personnalisé > Droite) et cliquer sur le calendrier pour inserer la date et non le 15/03/2016 comme tu l'a fait.