Capturer les valeurs d`une colonne de cellule et utiliser comme nom

[bijnok]

Bonjour,

je suis debutant 🙁 en VBExcel et je souhaiterais faire ceci:
- on dispose d`une feuille avec des noms dans une colonne, un nom par cellule;
- on souhaite creer une macro qui:
- copie un nom dans un nouveau workbook;
- renomme le workbook avec le nom copie.
- le but est de pouvoir appliquer cette macro a tous les autres noms ulterieurement....



Merci d`avance, j`espere avoir ete suffisament clair....

 

[gilbert_RGI]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

Bonjour,

je suis debutant 🙁 en VBExcel et je souhaiterais faire ceci:
- on dispose d`une feuille avec des noms dans une colonne, un nom par cellule;
- on souhaite creer une macro qui:
- copie un nom dans un nouveau workbook;
- renomme le workbook avec le nom copie.
- le but est de pouvoir appliquer cette macro a tous les autres noms ulterieurement....



Merci d`avance, j`espere avoir ete suffisament clair....

bonjour

Voilà un exemple

Salutations

RGI

 

[bijnok]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

Super !!!!

Merci beacoup, ca va m`eviter de creer 250 feuilles manuellement 🙂
J`ai mis une concatenation de cellules pour coller l`id avec le nom dans le filename.

Mais je voudrais aussi que le nom e l`id apparaissent dans deux cellules dans chaque feuille et qu`une partie commune apparaisse dans toutes les feuilles. Dans le fichier joint, la partie commune est en vert et la partie qui change dans chaque feuille est en gris.
Pour copier le nom et l`id chacun dans une cellule, j`ai juste besoin d`inserer une ligne de copy-paste dans la boucle, juste avant la sauvegarde??



Encore merci!

 

[bijnok]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

En fait j`ai trouve comment copie une feuille entierement dans le nouveau classeur mais plusieurs problemes sont desormais devant moi:

1) a chaque nouvelle feuille on me demande une confirmation de sauvegarde ce qui est agacant sachant que je cree 250 nouveaux classeur;

2) je n`arrive pas a copie l`id et le nom comme indique ci dessus dans "structure2"

Merci d`avance pour votre aide; voici mon code:


Sub test()
Dim newW As Workbook
Application.ScreenUpdating = False
For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1
fName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"
Set newW = Workbooks.Add
newW.SaveAs Filename:=fName
With Workbooks(fName)

Workbooks("structure2.xls").Worksheets("structure").Copy Before:= .Sheets(1)
.Close
End With
Next
Application.ScreenUpdating = True
End Sub




desole pour les accents manquant, je n`ai qu`un QWERTY a disposition

 

[gilbert_RGI]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

Bonjour

avec ceci ça devrait plus vous alerter

Sub test()
Dim newW As Workbook
Application.ScreenUpdating = False
[COLOR="red"]Application.DisplayAlerts = False[/COLOR]
For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1
fName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"
Set newW = Workbooks.Add
newW.SaveAs Filename:=fName
With Workbooks(fName)

Workbooks("structure2.xls").Worksheets("structure").Copy Before:=.Sheets(1)
.Close
End With
Next
[COLOR="Red"]Application.DisplayAlerts = True[/COLOR]

Application.ScreenUpdating = True
End Sub

 

[bijnok]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

Merci !

Mais maintenant la macro ne cree plus les classeurs comme il faut; en effet, elle ... RrrrrrRRrRRRrrr j`en ai mal au crane. Le debugueur met une erreur au niveau de la ligne:
newW.SaveAs Filename:=fName

alors que ca aller bien avant... En fait, le chemin est bon pour le premier classeur creer mais pour le second, le chemin est " .xls" (vu par une textbox posee sur fname) ...


Merci pour votre aide.

 

[bijnok]

Re : Capturer les valeurs d`une colonne de cellule et utiliser comme nom

J`ai essaye ceci:

Sub test()
Dim newW As Workbook
Application.ScreenUpdating = False
'Application.DisplayAlerts = False
For i = Sheets(1).Range("A50000").End(xlUp).Row To 1 Step -1

Dim A2 As String
A2 = Sheets(1).Cells(i, 1).Value

Dim B2 As String
B2 = Sheets(1).Cells(i, 2).Value

FName = Sheets(1).Cells(i, 1).Value & " " & Sheets(1).Cells(i, 2).Value & ".xls"

Set newW = Workbooks.Add
newW.SaveAs Filename:=FName

With Workbooks(FName)
'ici on crée une nouvelle feuille par copie d'une feuille template d'un fichier template prealablement ouvert
Workbooks("structure.xls").Worksheets("timetable") .Copy Before:=.Sheets(1)
Sheets(1).Cells(2, 1).Value = A2
Sheets(1).Cells(2, 2).Value = B2
.Close
End With
Next


'Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
mais la boucle s`arrete apres la creation du premier classeur (toujours le meme probleme de nom de sauvegarde vide).
De plus la cellule A2 de la nouvelle feuille contient l`Id que je souhaite et B2 le nom.
Mais je ne fais que copier la valeur en A2 et en B2, alors que je souhaiterais copier une formule du type "=............." afin de faire reference a la base de donnee; de cette facon chacune des feuilles sera mise a jour avec la base de donnees principale...
Enfin, le "display alerts" ne fait rien (je sais qu`il est en commentaire ici).

Merci pour votre aide, j`en ai grandement besoin.