Création de liens depuis un fichier généré vers un récap
Bonjour,
Aussi je reformule et en profite pour alléger en découpant 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. EDIT : ça c'est fait, j'ai galéré, mais j'y suis arrivé
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 le 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 en lien dans le fichier RECAP
Pour info, les liens sont dans "Module 2" de RECAP et le userform dans "feuilles-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
Bonjour,
Ce n'est pas beaucoup plus clair.
Une macro qui va renommer ton fichier base….
Et la deuxième fois que tu lanceras la macro, il va le trouver ou ton fichier base puisqu'il a été renommé.
effectivement, j'aurai dû spécifier "enregistrer sous" pour le renommer car le fichier de base sera réutiliser à chaque nouveau produit.
En résumé :
il y a le fichier RECAP qui reprend tous les produits (sous forme de liste)
le fichier BASE qui est utilisé pour chaque nouveau produit en l'"enregistrant sous" et reste sous le nom BASE pour une réutilisation
le userform sert à remplir le fichier BASE avec 6 nouvelles donnés pour généré un nouveau fichier "PRODUIT"
est-ce plus clair ?
merci
J'ai bien avancé, il ne reste que les liens d'un fichier à l'autre, donc assez simple je pense (sauf que je bute toujours sur la syntaxe exacte):
voilà où j'en suis :
Le fichier RECAP lance un userform, j'ai réussi à récupérer les données dans un fichier "BASE", et à le renommer suivant des critères, il ne reste plus qu'à inclure dans RECAP des liens (en dernière ligne) vers ce nouveau fichier généré
Voici ma dernière version :
Option Explicit
Private Sub CommandButton1_Click()
Dim DerLig_Recap As Integer
Dim wbk As Workbook
Dim Sh As Worksheet
Dim fichierAutre As String
Dim chemin As String, fichier As String
Dim Wb As Workbook
Application.ScreenUpdating = True
fichierAutre = "C:\Users\gorro\Documents\Mail pour finir fichier\Recap\BASE.xlsx"
Application.ScreenUpdating = False
Set wbk = Workbooks.Open(fichierAutre)
Set Sh = wbk.Sheets("BASE")
Sh.Range("A1").Value = Me.TextBox1.Value
Sh.Range("A2").Value = Me.TextBox2.Value
Sh.Range("F2").Value = Me.TextBox3.Value
Sh.Range("G6").Value = Me.TextBox4.Value
Sh.Range("E6").Value = Me.TextBox5.Value
Sh.Range("F6").Value = Me.TextBox6.Value
chemin = "C:\test\"
fichier = Range("A2") & " " & Range("F2") & ".xlsx"
ActiveWorkbook.SaveAs chemin & fichier
ActiveWorkbook.Close savechanges:=True
' jusque là, tout va bien, reste ce qui suis à adapter
'mettre des liens à la dernière ligne dans le fichier "RECAP" qui pointe vers le fichier "BASE" (renommé)
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R2C6" ' le numéro du touret, remplacer BASE par le fichier généré juste avant
'Range("B5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R2C1" ' le type de touret
'Range("C5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R1C1" ' le code interne
'Range("D5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C17" ' le métré restant
'Range("E5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C12" ' où est le touret
'Range("F5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C13" ' date de prise du touret
'Range("G5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C19" 'PM du touret
'Range("H5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C18" ' NRO du touret
'Range("I5").Select
'ActiveCell.FormulaR1C1 = "=[BASE.xlsx]BASE!R22C14" ' Numéro de compte
'Range("J5").Select
'et ajouter un lien hypertexte en A5 qui pointe vers le fichier généré juste avant
Unload Me
End Sub
et tout sera OK
merci pour votre aide