OVH Cloud OVH Cloud

enregistrement automatique

1 réponse
Avatar
Gui.
Bonjour à tous.

Voilà mon Pb. J'ai dans un fichier Excel une feuille qui me sert de
formulaire.
Je complete les champs, puis je sélectionne l'onglet puis je fais crer une
copie dans un nouveau classeur.
J'ai donc un nouveau fichier Excel qui s'ouvre avec mon onglet rempli.
Je fais ensuite enregistrer sous.
Puis mon nom est la réf de 2 cellules. (Concatener B6;C6)

je pense qu'il est possible de faire ça sous une macro, mais comment ?? là
est ma question.
Je n'y connais vraiment pas grand chose.

Voici ce que j'ai pu faire avec l'enregistrement automatique, mais ça ne
marche vrament pas tres bien.

Sheets("NDF").Select
Sheets("NDF").Copy
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
Range("C6").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\THEO-docs\SAISON-2004\NDF\Classeur6.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

Merci si vous pouvez m'aider
gui

1 réponse

Avatar
Gui.
Je suis arrivé à un truc, mais je ne parviens pas à activer les classeur.
Le formulaire d'origine s'appel : NDF-VIERGE.XLS
Le NDF rempli s'appel donc : "FicNom$" et est variable
Sheets("NDF").Select
Sheets("NDF").Copy
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
Range("C6").Select

Fic1$ = Range("B6").Value
Fic2$ = Range("C6").Value
FicNom$ = Fic1$ & Fic2$

ActiveWorkbook.SaveAs Filename:= _
"C:THEOSAISON-2004NDF" & FicNom$, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse

End Sub
"Gui." a écrit dans le message news:

Bonjour à tous.

Voilà mon Pb. J'ai dans un fichier Excel une feuille qui me sert de
formulaire.
Je complete les champs, puis je sélectionne l'onglet puis je fais crer une
copie dans un nouveau classeur.
J'ai donc un nouveau fichier Excel qui s'ouvre avec mon onglet rempli.
Je fais ensuite enregistrer sous.
Puis mon nom est la réf de 2 cellules. (Concatener B6;C6)

je pense qu'il est possible de faire ça sous une macro, mais comment ?? là
est ma question.
Je n'y connais vraiment pas grand chose.

Voici ce que j'ai pu faire avec l'enregistrement automatique, mais ça ne
marche vrament pas tres bien.

Sheets("NDF").Select
Sheets("NDF").Copy
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
Range("C6").Select
ActiveWorkbook.SaveAs Filename:= _
"C:THEO-docsSAISON-2004NDFClasseur6.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse

Merci si vous pouvez m'aider
gui