Création d'un fichier depuis un userform sur un modèle

-1

Bonjour,

Je dois finir un travail de longue haleine, il reste la finalisation qui nécessite de l'aide car je bute sur la syntaxe. Pour alléger je découpe en 2 parties.

1ère partie : 
J'ai un userform dans un fichier "RECAP"
une fois rempli, celui-ci doit alimenter un fichier modèle BASE, le renommer en utilisant comme nom 2 données du userform et le sauvegarder "sous" pour garder l'original.
J'ai la macro du userform qui a besoin d'une modification de syntaxe car mes connaissances ne sont pas assez pointues, la macro actuelle ne fonctionnant pas (j'ai ajouter en commentaire la modification à faire):

---------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim DerLig_Recap As Integer

Application.ScreenUpdating = True

Sheets("modèle").Copy After:=Sheets("MENU") ' à modifier pour que la copie des données de userform aillent vers l'onglet "BASE" du fichier "BASE.xlsx" qui sera dans le même repertoire

With ActiveSheet
.Name = TextBox1
.Range("A1") = TextBox1
.Range("A2") = TextBox2 
' ce sera aussi le début du nom du fichier BASE renommé par exemple 12 FO 123456.xlsx
.Range("F2") = TextBox3 
' la suite du nom du fichier BASE renommé, donc le nom sera "A1 (espace) F2"
.Range("G6") = TextBox4
.Range("E6") = TextBox5
.Range("F6") = TextBox6

' ensuite "enregistrer-sous" le fichier BASE en "A2(espace)F2.xlsx" dans un sous dossier "base suivi des tourets"

'ActiveWorkbook.SaveAs Filename:= _
' C:\Gestion Tourets LOGISTIQUE\Base feuilles suivis tourets\" & Range("A2") & Range("F2") ".xlsx" ("enregister sous" le fichier "BASE" avec comme nom "A1 espace F2)

---------------------------------------------------------------------------

2ème partie : (si vous avez envie de plus compliqué, mais je ne veux pas abuser)
copier 9 cellules du fichier généré vers la dernière ligne du fichier RECAP AVEC lien (dont 1 en hypertexte)

Pour mieux comprendre, je vous joins le fichier RECAP qui contient le userform
et le fichier de BASE qui doit être renommé et dont 9 cellules doivent être en lien dans le fichier RECAP

Pour info, les liens sont dans "Module 2" de RECAP et le userform dans "feuilles-(puis)-nouveau touret" de RECAP aussi

En espérant vivement que ma demande est claire et qu'elle pourra bénéficier de votre aide

Merci

voici les fichiers necessaires :

les fichiers RECAP et BASE

Posté le 20 novembre 2018, 08:17
par Tiramisu
Répondre

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :