Syntaxe pour inserer lien dans derniere cellule non vide
Bonjour tout le monde,
si on considère les variables suivantes : "fichier" (nom de fichier), "chemin" (nom du chemin), comment s'écrirait la formule VBA pour écrire :
-aller à la dernière cellule non vide de la première colonne, ajouter une ligne et insérer un lien vers A1 de "fichier", puis 2ème colonne, insérer un lien vers A2 de "fichier" etc...
voici mon bout de code qui plante (en gras) :
Path_name = ThisWorkbook.Path
chemin = Path_name & "\" & "test\"
fichier = Range("A2") & " " & Range("F2") & ".xlsx"
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Sheets("RECAP").Select
derlig = [B1].End(xlDown).Row
derlig = derlig + 1
nws1 = "='" & chemin & "[" & fichier & "]" & fichier & "'"
Windows("RECAP.xlsm").Activate
Range(derlig, 2) = nws1 & "!A1"
merci pour votre aide, c'est le dernier point qui bloque pour finir mon projet
au cas, je vous joint le fichier avec la macro qui plante
bonjour
il semble que tu as mal conçu ton fichier au départ
comme vu dans ton autre question
on n'a jamais besoin de trouver "la dernière cellule"
dis-nous plus concernant le BUT de ton fichier de tourets (gestion de stocks...)
à te relire
Bonjour et merci pour ta réponse rapide,
le but est de créer un fichier pour un nouveau touret (avec le userform), et d'inclure dans le fichier RECAP des liens vers ce nouveau fichier pour voir toutes les modifs qu'on va faire dedans, sachant qu'on a environ 1000 tourets, donc 1000 fichiers.
Récap nous sert donc de controle et de visu globale sur tout ça.
Le RECAP fonctionne bien, mais on a besoin de creer des nouveaux lorsqu'on en reçoit, d'où la notion de dernière ligne
Ouf, j'ai fini, ça fonctionne !!!
pour ceux que le code pourrait intéresser :
chemin = Path_name & "\" & "test\"
fichier = Range("A2") & " " & Range("F2") & ".xlsx"
Complete_File_name = Path_name & "\" & fichier
ActiveWorkbook.SaveAs chemin & fichier
ActiveWorkbook.Close savechanges:=False
nws1 = "='" & chemin & "[" & fichier & "]" & Base & "'"
Windows("RECAP.xlsm").Activate
Sheets("RECAP").Select
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
derlig = [B1].End(xlDown).Row
derlig = derlig + 1
Cells(derlig, 2) = nws1 & "!A1"