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

**wanou44** · 03/02/2006, 12h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ouskel'n'or** · 03/02/2006, 12h23

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**wanou44** · 03/02/2006, 13h59

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.

**jmfmarques** · 03/02/2006, 14h04

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

**wanou44** · 03/02/2006, 14h09

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"

**ouskel'n'or** · 03/02/2006, 14h17

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

A+

**wanou44** · 03/02/2006, 14h34

Voici le code entier que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ouskel'n'or** · 03/02/2006, 14h41

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu peux essayer...

A+

**SfJ5Rpw8** · 03/02/2006, 14h42

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

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

**wanou44** · 03/02/2006, 14h50

Envoyé par bbil

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

[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 ?

**ouskel'n'or** · 03/02/2006, 14h51

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.

A+

**wanou44** · 03/02/2006, 15h05

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.

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.

**ouskel'n'or** · 03/02/2006, 15h16

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

Mais réponds malgré tout...

A+

**wanou44** · 03/02/2006, 15h21

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**wanou44** · 03/02/2006, 15h23

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, ...

**wanou44** · 03/02/2006, 15h24

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.

**ouskel'n'or** · 03/02/2006, 15h34

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à...

A+