T
theocyt
Guest
Bonjour,
Je souhaite faire un questionnaire que je vais envoyer en pièce jointe par mail.
J'ai un onglet avec la liste des personnes 'nom : liste utilisateur'
colonne 1 = utilisateur01---utilisateur75
colonne 2 = mail
colonne 3 = nom + prénom
J'ai le questionnaire sur un onglet 'nom : utilisateur FR'
J'ai le même questionnaire traduit en anglais 'nom : utilisateur GB'
Je voudrais créer une macro me permettant de copier les onglet utilisateur FR et utilisateur GB dans un nouveau fichier excel qui serait enregistré dans un dossier précis sur mon pc.
Le fichier et les onglets devraient etre renommé :
fichier : nom prénom.xls soit (colonne 3) de l'onglet liste utilisateur
utilisateur FR = nom prénom FR
utilisateur GB = nom prénom GB
pour le moment je me suis occupé de tester ma macro sur l'onglet FR en tentant de le dupliquer et le renommer ! mais j'échoue !
voilà ce que j'ai fait :
Sub CreationOnglettest()
ActiveCell.CurrentRegion.Select
Dim tableau() As String
ReDim tableau(1 To ActiveCell.CurrentRegion.Count)
For ctr = 1 To ActiveCell.CurrentRegion.Count
tableau(ctr) = ActiveCell.CurrentRegion(ctr)
Next
For I = 1 To ActiveCell.CurrentRegion.Count
Sheets(Array('Utilisateur FR')).Select
Sheets('Utilisateur FR').Activate
Sheets(Array('Utilisateur FR')).Copy.Name = tableau(ctr)
Next
'
End Sub
j'ai mis en fichier attaché la strucure de mon fichier
Je souhaite faire un questionnaire que je vais envoyer en pièce jointe par mail.
J'ai un onglet avec la liste des personnes 'nom : liste utilisateur'
colonne 1 = utilisateur01---utilisateur75
colonne 2 = mail
colonne 3 = nom + prénom
J'ai le questionnaire sur un onglet 'nom : utilisateur FR'
J'ai le même questionnaire traduit en anglais 'nom : utilisateur GB'
Je voudrais créer une macro me permettant de copier les onglet utilisateur FR et utilisateur GB dans un nouveau fichier excel qui serait enregistré dans un dossier précis sur mon pc.
Le fichier et les onglets devraient etre renommé :
fichier : nom prénom.xls soit (colonne 3) de l'onglet liste utilisateur
utilisateur FR = nom prénom FR
utilisateur GB = nom prénom GB
pour le moment je me suis occupé de tester ma macro sur l'onglet FR en tentant de le dupliquer et le renommer ! mais j'échoue !
voilà ce que j'ai fait :
Sub CreationOnglettest()
ActiveCell.CurrentRegion.Select
Dim tableau() As String
ReDim tableau(1 To ActiveCell.CurrentRegion.Count)
For ctr = 1 To ActiveCell.CurrentRegion.Count
tableau(ctr) = ActiveCell.CurrentRegion(ctr)
Next
For I = 1 To ActiveCell.CurrentRegion.Count
Sheets(Array('Utilisateur FR')).Select
Sheets('Utilisateur FR').Activate
Sheets(Array('Utilisateur FR')).Copy.Name = tableau(ctr)
Next
'
End Sub
j'ai mis en fichier attaché la strucure de mon fichier