probleme de classement

[debo]

salut j'ai un fichier que j'ai joint.
a partir d'un userform j'entre des données ds deux tableaux
mon problème c'est que j'aimerais qd je valide que les données se classent ds la feuille "Effectifs"
1)par ordre de grade avec ds l'ordre CPP,CDT,CNE,LT,B/M,B/C,BIER,GPX,ADS,S/A,ADJ/A,A/A
2)une fois classer par grade par ordre alphabétique du nom
j'espère que j'ai été clair
merci d'avance

DEBO

 

[pierrejean]

Re : probleme de classement

eh bien tant qu'a faire !!!

pour la solde je te transmettrais un N° de CCP

et à l'occasion mes amitiés à NICOLAS

 

[debo]

Re : probleme de classement

bonjour Pierre Jean, je t'ai envoyé un message tout à l'heure mais je ne le vois plus, donc je t'ecris à nouveau.d'abord merci pour ta solde.....
J'ai un autre soucis, j'ai ajouté un menu à excel nommé SITNUM (ctrl+l), et je ne vois pas où il faut mettre le code pr que qd je clic sur les sous menus les commandes se fasse.
ex:qd je clic sur sauvegarde ds sauv-sitnum je voudrais qu'il enregistre la feuille1,2,3 ds un fichier comme ceci F:\UGAL\sauv-sitnum\"nom du fichier" demander ds une inputbox ou message box
j'espère que je me suis bien expliqué
je joins un fichier
merci d'avance

DEBO

 

[pierrejean]

Re : probleme de classement

bonsoir DEBO

pour aujourd'hui l'affaire est compromise

et pour ce Week-end egalement

je serais à quelque 200 km de mon clavier

donc à lundi, mais si un forumeur peut t'aider qu'il ne se gene pas

A+

 

[pierrejean]

Re : probleme de classement

bonsoir DEBO

peux-tu preciser ce que tu souhaites faire exactement avec les macros
sauver
imprimer
envoyer

en attendant vois le debut ci-joint

ps: j'ai un peu sabré dans l'effectif mais c'est pour etre sur de passer sous les 50k

 

[debo]

Re : probleme de classement

bonjour PierreJean, voilà le smilblick; j'ai un dossier sur un disque réseau (F:\situation numérique\situanum.xls) le classeur situanum contient 13 feuilles (code,listearrd,depart,arrives,ar02sgop,répartition,unité,effectif,mouvement,listes,asp,ecart,ads)
j'ai également un autre dossier ds F:\sauv-sitnum ds lequel se trouve des sous dossiers contenants la situation numérique du commissariat de chaque mois (decembre05, janvier06, février06...)
donc à chaque début du mois il faut que :

je sauvegarde la sitnum : je dois creer un fichier (au début du mois) ds sauv-sitnum avec pr nom de fichier, le mois en cours;ce fichier doit contenir les feuilles du classeur situanum.xls suivantes:repartition-unite-effectif-mouvement-listes-asp-ecart-ads-ar02sgope.

Je dois imprimer certaines feuilles du classeur situanum.xls selon les modalités suivantes:repartition(4 exemplaires), unite(4exemplaire), effectif(3 exep.de la page1 à 9), mouvement(4 ex), liste(4ex), asp(3ex), ecart(1ex.page1 uniquement), ads(4ex)

je dois envoyer la feuille ar02sgope à l'adresse suivante (outlook express 6)
prefpol.DPUP-SDRH-SGOPE-UGP-SITNUMERIQUE@interieur.gouv.fr
voilà, j'espère que je me suis bien expliqué
Je te remerci pour ta réponse, j'ai compris où il faut mettre le code
je vais essayer de chercher de mon côté

Au plaisir

DEBO

 

[debo]

Re : probleme de classement

bonjour pierrejean, j'ai essayé le code suivant pour l'envoie par messagerie:
Sub Envoyer()
Dim Sujet As String, AdresseMail As String, Message As String
Dim Mail, MailItem, MyItem
Sujet = InputBox("saisir l'objet du message")
AdresseMail = "prefpol.dpup-sdpt-ciat02-cli@interieur.gouv.fr"
Message = InputBox("Veuillez saisir le corps du message")
Set Mail = CreateObject("Outlook.Application")
Set MyItem = Mail.CreateItem(MailItem)
With MyItem
.to = AdresseMail
.attachments.Add "f:\situationnumérique\AR02(Sgope).xls"
.Subject = Sujet
.body = Message
.send
End With
End Sub
j'ai le message d'erreur suivant 1 composant active x ne peut pas créer d'objet pr la ligne suivante:
Set Mail = CreateObject("Outlook.Application")
A bientôt j'espère
DEBO

 

[pierrejean]

Re : probleme de classement

bonjour debo

pour ma part j'ai ce code

' déclaration des variables
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String
'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
' initialisation de variables
email = "[EMAIL="monadresse@monfai"]monadresse@monfai[/EMAIL]"
'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr
.Recipients.Add (email)
.Send
End With

malheureusement j'ai un probleme avec la libraire
outlook x.xx library
theoriquement à valider par outils > reference

j'ai ici un sujet qui evoque la question et je n'ai toujours pas de reponse

A +

 

[debo]

Re : probleme de classement

j'ai trouvé un autre code:
' Création d'un objet relatif à l'application Outlook
Dim OutlApp2 As New Outlook.Application
' Création d'un objet interne à l'application Outlook pré-déclarée e-mail
Dim OutlMail2 As MailItem
' Définition de la variable relative à l'application Outlook comme
' nouvelle application (objet)
Set OutlApp2 = New Outlook.Application
' Définition de l'élément interne de l'application Outlook comme
' création d'un nouvel élément mail
Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
'Avec le nouvel élément mail,
With OutlMail2
' Indique à qui doit parvenir l e-mail
.To = "adresse_ou_listeDeDistribution@domaine.ext"
' Indique le sujet du message
.Subject = "Sujet_Du_Message"
' Indique le corps du message
.Body = "Corps du message"
' L'attachement du fichier qui doit être présent
' en tant que pièce jointe
.Attachments.Add "\\chemin\fichier.ext"
' Affichage du message avant envois
' .Display ' pour l'affichage du message
' Envois du message
.Send ' pour l'envoi direct du message
End With
message d'erreur "erreur de compilation,type défini par l'utilisateur non défini"
solution:"il fallait juste référencer object library "Windows Outlook.....
moi je ne comprends pas mais peut etre toi...
a plus
DEBO

 

[pierrejean]

Re : probleme de classement

essaie d'aller dans
Outils > References (de Visual Basic)
cherche dans la liste
outlook x.xx Type Library
et coche la case

si tu as plus de chance que moi ,ça devrait debloquer le code

 

[debo]

Re : probleme de classement

merci je vais essayer

DEBO

 

[debo]

Re : probleme de classement

je n'ai pas trouver outlook x.xx Type Library.......
A plus

DEBO

 

[pierrejean]

Re : probleme de classement

bonjour DEBO

apres bien des recherches je suis tombé sur

http://dj.joss.free.fr/web.htm

ou j'ais trouvé un macro que j'ais modifié pour toi ainsi:

Sub EnvoilaFeuilparMail()
Dim Wbk As Workbook
ThisWorkbook.Sheets("ar02sgop").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "[EMAIL="prefpol.dpup-sdpt-ciat02-cli@interieur.gouv.fr"]prefpol.dpup-sdpt-ciat02-cli@interieur.gouv.fr[/EMAIL]", "Feuille ar02sgop", True
'true pour un avis de reception
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub

elle suppose que tu es dans le fichier comportant la feuille en question

si ce n'est pas le cas fais moi signe je regarderais

A te lire