Si simple et pourtant, aucun résultat ! HELP !

[Rayfils]

Bonjour à tous. Je craque !

Merci à ceux qui m'ont aidé lors de mon précédent problème. Super travail !

Bon, un nouveau casse-tête pour moi... C'est si simple et pourtant...

Vous regarderez en PJ. La manipulation est simple mais je bloque (allez savoir pourquoi ?)

J'ai un onglet "TDB 2011" On y saisit des informations. Voilà où je bloque :

J'aimerai introduire sur cette page un bouton "Impression Bon de Travail".
Une fenêtre s'ouvrirait alors avec la question "Quel numéro voulait vous imprimer ?"
On saisierait alors le n° "001" par exemple.
Les information de "TdB 2011" [n° ; Date d'Ouverture ; Service ; Nom Demandeur ; Salle ; Détails ; Statut voir dans exemple les cercles rouges] s'incrémenteraient alors automatique dans l'onglet "Bon de Travail", m'ouvrierait la fenêtre d'impression.
Ne resterait plus qu'à cliquer pour imprimer.

J'ai essayé plein de méthodes sans résultat. C'est en ce sens que j'ai vidé mes macros en test... Un oeil extérieur trouvera certainement plus vite que moi qui ne vois plus que les méthodes qu'il a testé.

Merci par avance de votre aide.

Bien cordialement.

 

[Efgé]

Re : Si simple et pourtant, aucun résultat ! HELP !

Bonjour Rayfils,
Une proposition sans macro:
Deux plages nommées :
Liste: (Pour la validation de la cellule C11

=DECALER('TdB 2011'!$A$13;;;NBVAL('TdB 2011'!$A:$A)-2)

Tableau (pour les recherchev :

=DECALER('TdB 2011'!$A$13;;;NBVAL('TdB 2011'!$A:$A)-2;NBVAL('TdB 2011'!$11:$11)+2)

Cordialement

 

[kjin]

Re : Si simple et pourtant, aucun résultat ! HELP !

Bonjour,
Sans macro...

Edit : salut Efgé 🙂, désolé pour le bing...

A+
kjin

 

[Rayfils]

Re : Si simple et pourtant, aucun résultat ! HELP !

Merci à vous deux.
J'ai honte... Parfois, on se casse vraiment trop le citron. J'étais tellement parti sur une macro que j'ai même pas pensé à vos solutions...
Comme quoi, demander un avis extérieur...
Merci à vous deux.
Cordialement.

 

[Rayfils]

Re : Si simple et pourtant, aucun résultat ! HELP !

Encore merci.
Là, clairement, j'abuse mais je suis pris par le temps version "King Size"... (La preuve vu l'heure !)
J'ai créer une macro sur un bouton "X" qui, une fois que l'on a cliqué, enregistre l'onglet "Bon de Travail" dans un fichier spécifié (exemple C:Mes documents\Maintenance).
Problème : je n'arrive pas à exécuter une commande qui me demanderait de renommer et du coup, à chaque clic, le nouveau classeur écrase l'ancien (logique : même nom...) 😡
Comment résoudre ce problème ? Par ailleurs, en suivant la même macro, quelqu'un a-t-il trouvé un script pour lancer automatiquement OUTLOOCK avec ce nouveau fichier en PJ (je travaille pas avec des dieux de l'informatique et cela m'aiderait grandement...d'automatiser)
Merci par avance si une bonne âme m'aide.
Je sais que j'abuse...

 

[Efgé]

Re : Si simple et pourtant, aucun résultat ! HELP !

Bonjour Rayfils, Kjin : ) ,le fil, le forum,
Pour le problème de fichier qui écrase le précédent, on peux ajouter, dans le nom ,la date et l'heure:

Format(Now, "ddmmyyyyhhmmss")

ActiveWorkbook.SaveAs Filename:="D:\temp\" & Format(Now, "ddmmyyyyhhmmss") & ".xls"

Pour envoyer le fichier par Outlook une recherche sur le forum devrait amener des réponses, le sujet a déja été traité plusieurs fois.
Cordialement

EDIT: Si non il y a l'aide (F1 est notre amie)

SaveAs, méthode
Exemple
Cet exemple montre comment créer un classeur, inviter l'utilisateur à taper un nom de fichier et enregistrer le classeur.
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

 

[Rayfils]

Re : Si simple et pourtant, aucun résultat ! HELP !

Merci Efgé,
Encore une fois, j'étais parti bien trop loin.
C'est clair que le sujet PJ Excel vers Outlook a déja été présenté plein de fois.
Cependant, je n'arrive pas à adapter un code à mon cas de figure.
Mon nouvel enregistrement tout beau (qui n'écrase plus les autres, merci !)... Bein de là à l'attacher en PJ automatiquement avec une adresse définie... Pas gagné !
Sub ExportAG()

Sheets("Bon de Travail").Select
Sheets("Bon de Travail").Copy
ActiveWorkbook.SaveAs Filename:= _
"P:\PUBLIC\MAINTENANCE - SUIVI\+ Signalements A.G\Signalement A.G " & Format(Now, "dd-mm-yyyy hhmmss") & ".xls" Jusque là, pas de problème... après, c'est du grand n'importe quoi !
Close windows Je sais même pas si ça ferme le nouveau classeur en l'ayant enregistré
SendMail: XXXX.XXXX@ XXXX.fr
Recipients: impossible de joindre le classeur créé plus haut
Subject:

End Sub

Un dernier petit coup de main ? Pitié !

 

[kjin]

Re : Si simple et pourtant, aucun résultat ! HELP !

Bonjour,
tu trouveras la réponse ICI
A+
kjin

 

[Rayfils]

Re : Si simple et pourtant, aucun résultat ! HELP !

Merci pour tes liens Kjin.
Les macros sont super complètes.
J'ai quand même du mal à les appliquer à mon cas.
Je te remercie cependant.
RayFil$