date du jour

[maxou91]

Bonjour ,
J'ai realisé un tableau pour la reservation de vehicules pour mon patron .
A partir d'un classeur modèle , je souhaite que des qu'on ouvre le tableau pour reserver un vehicule ,que les dates( Lun 09/01/06 au Ven 14/01/06 )soient mis automatiquement dans la semaine en cours et qu'on enregistre le document sur le numéro de la semaine dans l'année ( ex : semaine2).

 

[maxou91]

le tableau

 

[pascal21]

salut abracadabra
ça y est ton tableau est fait :woohoo:
non sans d.... comment veux-tu qu'on t'aide
sans un morceau de fichier bidon
faut le zipper avant d'envoyer

Message édité par: pascal21, à: 11/01/2006 23:06

 

[myDearFriend!]

Bonsoir le fil,

Comme joindre un fichier ne semble Lien supprimé au début, maxou91, je t'informe que pour joindre un fichier, notre Webmaster a réalisé un tutoriel très bien fait : Lien supprimé (attention toutefois de bien utiliser Winzip ou l'utilitaire de compression intégré à Windows et non Winrar).

Cordialement,

 

[Dan]

Bonsoir,

Maxou, d'abord je te souhaite la bienvenue sur ce forum Excel sur lequel tu rencontreras pas mal de personnes susceptibles de t'aider dans tes pb mais aussi sur lequel tu es bien entendu invité à faire profiter de ton expérience si tu le désires.

Voici deux liens qui te permettront de placer tes demandes de manière simple et précise.

- La charte du forum
- Lien supprimé

Bienvenue à toi et dans l'attente de ton fichier.

A bientôt

 

[maxou91]

Bonjour ,
Excusez moi , j'espere que ce fichier y sera
merci de votre aide.
[file name=Reservation.zip size=2642]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Reservation.zip[/file]

 

[Dan]

Bonjour Maxou,

Voici ton fichier avec ce que tu demandes.

Une feuille 'Modèle' comportant
- en B1 la date du jour
- en B2 le numéro de la semaine correspondante
- en B5 le premier jour de la semaine en cours
- de B6 à … les autres jours de la semaine calculés sur B5

A l'ouverture du fichier une macro enregistre à partir cette feuille 'modèle', une nouvelle feuille avec le nom 'Réservation Sem' + le numéro de la semaine en cours.

Bonne lecture

[file name=Reservation_vehicules2.zip size=10051]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Reservation_vehicules2.zip[/file]

 

[maxou91]

Salut Dan
Merci de m'aider a voir plus clair dans cette programmation .
Quand je lance le fichier
j'active la macro
puis j'ai une fenetre 'visual basic' avec comme message :
- erreur d'execution 13 et incompatibilité de type
puis je fais debogage et j'ai une nouvelle fenetre avec un ligne en jaune ' ActiveSheet.Name = 'Reservation_sem-' & myvalue'

Que faire , merci d'avance

 

[Dan]

Bonsoir,

Tu ne dois pas avoir de pb. Par contre vérifie le code que je t'ai placé dans le fichier, tu as peut-être recopié ce code dans ton fichier en ne respectant pas quelque chose.

Je n'ai aucun pb de mon coté.

Si pb n'hésite pas

 

[maxou91]

j'ai lancé le fichier sans modification de ma part et le probleme est tjs la .
Dois je l'enregistrer en temps que modele ou pas ?

 

[Dan]

re,

Ok c'est normal si la feuille existe déjà dans ton fichier il refuse de faire la macro.

Place ce code juste avant 'set myvalue ....'

On Error Resume Next

Si pb n'hésite pas

 

[maxou91]

je ne vois pas tres ou je peux rajouter 'On Error Resume Next' dans 'ActiveSheet.Name = 'Reservation_sem-' & myvalue
Eclaire moi stp

 

[Dan]

Bonjour,

Tu n'as pas bien lu ce que j'ai écrit... lol!
Je ne t'ai pas dit dans l'instruction 'Activesheet...' mais juste avant l'instruction 'Set myvalue = Range('B2')' donc en début de macro.

 

[Dan]

Re,

Je viens de revérifier quelque chose dans la macro. Il y avait un autre petit souci.
Remplace le code de la macro 'SAUVER' par celui-ci :

Sub Sauver()
' Macro pour ajouter une feuille dans le classeur avec le numéro de la semaine
' Macro par DAN pour Maxou91 - [B]Lien supprimé[/B]
Dim myvalue As Range
On Error Resume Next
Sheets('modèle').Activate
Set myvalue = Range('B2')
For Each Sheet In ActiveWorkbook.Worksheets
If Sheet.Name = 'Reservation_sem-' & myvalue Then End
Next
Sheets('modèle').Copy after:=Sheets('modèle')
ActiveSheet.Name = 'Reservation_sem-' & myvalue
End Sub

Si pb n'hésite pas.

 

[maxou91]

OK JE TE REMERCIE DE TON AIDE
J'essaierai ce soir chez moi
@+