Création fichier sur modèle et liens (hypertexte et normal)
Bonjour,
pour finaliser un projet, je voudrais modifier une macro qui :
- rempli un fichier modèle à partir d'un formulaire (fichier BASE)
- l'enregistre sous un autre nom (sur la base de 2 cellules du fichier BASE, A2 et F2)
- crée des liens (dont 1 hypertexte) vers 10 cellules du fichier généré dans un fichier Recap
j'ai : -le fichier Recap
-le fichier Modèle (BASE)
-la macro formulaire (mais qui copie les données dans un onglet "TEST" plutot que dans BASE)
la modif de la macro ne doit pas être énorme, mais en tant que débutant, je bute sur la syntaxe
d'autant que la macro est récupérée sur le net et ne se trouve pas dans RECAP, mais dans un fichier "TEST"
vous pouvez m'aider ?
Voici la macro d'origine (j'ai réussi à la positionner dans le bon fichier), et le fichier RECAP revu
Private Sub CommandButton1_Click()
Dim DerLig_Recap As Integer
Application.ScreenUpdating = True
Sheets("modèle").Copy After:=Sheets("MENU")
With ActiveSheet
.Name = TextBox1
.Range("A1") = TextBox1
.Range("A2") = TextBox2
.Range("F2") = TextBox3
.Range("G6") = TextBox4
.Range("E6") = TextBox5
.Range("F6") = TextBox6
ActiveWorkbook.SaveAs Filename:= _
"C:\test\" & Range("A1") & ".xlsx"
End With
Unload Me
End Sub
et les liens à créer dans le fichier RECAP , il pointe actuellement vers le fichier BASE :
Sub LIENS()
'
' LIENS Macro
'
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R2C6"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R2C1"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R1C1"
Range("E5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C17"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C12"
Range("G5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C13"
Range("H5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C19"
Range("I5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C18"
Range("J5").Select
ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C14"
Range("J5").Select
End Sub
un coup de pouce ?