[VBA-E]Récupérer valeur cellule

J'ai un fichier excel pour des demandes d'absence.
J'ai fait un code VB qui, quand quelqu'un tape nom/prénom, motif, ... , il tape sur un boutonn "Exécuter" et le document excel s'enregistre sous un autre nom en gardant l'original intact. De plus, le fichier excel créé est vérouillé.

Je voudrais que le fichier créé prenne le nom de deux cellules concaténées (une cellule avec nom/prénom et une autre avec la date actuelle). Je n'y arrive pas. Je vous mets mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Exécuter_Click() Dim Choix As String   Choix = Range("G6")   With ActiveSheet .Copy ' crée un classeur avec la feuille active End With ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True With ActiveWorkbook .SaveAs "P:\PRIOUL" & "\" & Filename = (Choix) .Close ' si nécessaire End With   ThisWorkbook.Close False     End Sub

---

De plus, les cellules dont je prendre le contenu sont des cellules fusionnées (je sais pas si ça interfère).

Merci d'avance

Code:

---

1 2 3 4

With ActiveWorkbook .SaveAs Filename:= "P:\PRIOUL" & "\" & Choix .Close ' si nécessaire End With

---

essaie comme ça, ça ira mieux (si choix est un string ou un variant)

A+

NB - Je préfère toujours passer par une variable pour indiquer filename :
NomFich = "P:\PRIOUL" & "\" & Choix
.SaveAs Filename:= NomFich

J'ai déjà essayé ça et à chaque fois il me renvoit erreur 1004.
Je crois que j'ai compris d'où venait l'erreur.
La cellule en question contient une formule excel maintenant(). Et la date s'affiche au format jj/mm/aaaa hh:mm.
Or un fichier excel ne peut comporter la ponctuation ":"

Comment je peux faire pour contourner ce problème. Même si je dois prendre la date sans l'heure.

Je serais tenté de dire que AUJOURDHUI convient mieux que MAINTENANT si l'heure n'a pas d'importance

Ca ne marche pas.

Quand il est rendu à la ligne pour enregistrer sous le nom de ce que la cellule contient, il me dit "erreur 1004, Microsoft Excel ne peut pas accéder au dossier P:\PRIOUL\03\02"

Montre le code de récup du nom de fichier et dis-nous quelles cellules sont fusionnées (pédigré, adresse et tout...)

A+

Voici le code entier que j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Exécuter_Click() Dim Choix As String   Choix = Range("G6").Text Choix2 = Range("G8")   With ActiveSheet .Copy ' crée un classeur avec la feuille active End With ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True With ActiveWorkbook .SaveAs Filename:="P:\PRIOUL" & "\" & Choix & Choix2 .Close ' si nécessaire End With   ThisWorkbook.Close False   End Sub

---

La variable Choix2 correspond à un nom de personne choisit dans une liste du formulaire. Et ça doit être concaténé avec la date, et tout ça forme le nom du fichier Excel.
Si je mets que Choix2, ça marche impec. Le fichier excel prend le nom de Choix2 (et Choix2 fait référence aussi à une cellule fusionnée).

Pour la variable Choix, c'est la concaténation de G6 H6 I6 qui se trouve sur la feuille "Demande".

Il faudrait une fonction qui affiche la date sous le format jj-mm-aaaa et non jj/mm/aaaa

Code:

---

LaDate = Format(Now, "dd-mm-yyyy")

---

Tu peux essayer...

A+

Citation:

---

Envoyé par wanou44

Il faudrait une fonction qui affiche la date sous le format jj-mm-aaaa et non jj/mm/aaaa

---

la dite fonction as un nom compliqué sous excel : FORMAT

voir :f1:

[Edit] ouskel'n'or m'as devancé...

Citation:

---

Envoyé par bbil

Citation:

---

Envoyé par wanou44

Il faudrait une fonction qui affiche la date sous le format jj-mm-aaaa et non jj/mm/aaaa

---

la dite fonction as un nom compliqué sous excel : FORMAT

voir :f1:

[Edit] ouskel'n'or m'as devancé...

---

Désolé mais cette fonction je ne l'ai pas trouvé. Par contre ce que m'as passé ouskel'n'or marche impec.
J'ai maintenant mon fichier en sortie qui est sous la forme "jj-mm-aaaa - Nom Prénom.xls"

Maintenant, vu que j'ai pas encore fini quelques détails, le fichier excel qui sort de cette fonction a encore le bouton "Exécuter". J'aimerais qu'il s'enlève et à la place mettre un bouton "Valider".

Avez-vous une idée pour comment faire ?

Oui, et si j'ai bien compris, (enfin...)
LaDate = cstr(Cells(6,7).value)+"-"+cstr(Cells(6,8).value)+"-"+cstr(Cells(6,9).value)

J'ai un trou pour formater directement la date à partir de trois valeurs (jour mois année) mais je sais que ça existe, je te laisse le chercher. :wink:

A+

Citation:

---

Envoyé par ouskel'n'or

Oui, et si j'ai bien compris, (enfin...)
LaDate = cstr(Cells(6,7).value)+"-"+cstr(Cells(6,8).value)+"-"+cstr(Cells(6,9).value)

J'ai un trou pour formater directement la date à partir de trois valeurs (jour mois année) mais je sais que ça existe, je te laisse le chercher. :wink:

A+

---

Oui merci beaucoup ça marche très bien.
Mais maintenant j'aimerais dans le fichier de sortie soit afficher un bouton cliquable qui était caché pour le moment soit en créer un nouveau (et par la même occasion effacer l'ancien bouton) et biensûr lui attribué aussi un code en vb.

Tu veux dire dans le fichier que tu viens d'enregistrer et de fermer ? (cf - ton code)
Alors déjà, faut pas le fermer :wink:

Mais réponds malgré tout...

A+

Alors j'ai réussi une petite partie.
J'ai créé un deuxième bouton "Valider" que j'ai mis non visible.
Le fichier excel de base ne doit jamais changer.

La personne remplit donc les champs clique sur Exécuter, le fichier s'enregistre avec date, nom et prénom de la personne. Le bouton "Exécuter" devient invisible et le bouton "Valider" devient visible.
Le fichier de sortie correspond bien à ce que je veux mais c'est le fichier de base qui change. Si quelqu'un l'ouvre après, il verra le bouton Valider (alors qu'il doit être invisible). La propriété Visible du bouton se change tout seul.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Executer_Click()   Valider.Visible = True Executer.Visible = False   LaDate = Format(Now, "dd-mm-yyyy") Choix2 = Range("G8") Choix = LaDate & " - " & Choix2   ActiveSheet.Copy ' crée un classeur avec la feuille active ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True With ActiveWorkbook .SaveAs Filename:="P:\PRIOUL" & "\" & Choix .Close ' si nécessaire End With   ThisWorkbook.Close False   End Sub

---

J'ai rien dit ça marche impec.
Je viens de réessayer et pas de problème.
J'ai du m'embrouiller à force d'enregistrer, fermer, supprimer, copier, ...

Il reste juste un détail.
Le fichier de sortie est entièrement vérouillé mais j'aimerais que seulement 2 cellules ne le soit pas.

Enregistre la macro :
Tu sélectionnes tour à tour tes cellules, tu vas dans format de cellule, tu déverrouilles (décoche verrouillé)
Ensuite, tu protèges ta feuille
Le tout est joué...

Faut tout y dire à çui-là... :wink:

A+

Ah oui tout bêtement, j'allais chercher plus loin.

Citation:

---

Envoyé par ouskel'n'or

Faut tout y dire à çui-là... :wink:

---

Je trouve que c'est quand même pas mal ce que j'ai fais, pour une personne qui connaissait pas grand chose au VB ce matin ?!

Citation:

---

ouskel'n'or a écrit:
Faut tout y dire à çui-là...

---

wanou44 a écrit :

Citation:

---

Je trouve que c'est quand même pas mal ce que j'ai fais, pour une personne qui connaissait pas grand chose au VB ce matin ?!

---

Ouskel'n'or répond :
C'est pas du VB, c'est du VBA...
... et c'est même pas du VBA, c'est de l'Excel... :wink:

Mais si ça a pu t'aider...

A+