D
Deedo
Guest
bonjour tout le monde!
voilà mon soucis en VBA:
ma macro génère une feuille répondant au doux nom de 'resul'
je désire copier cette feuille vers un nouveau classeur
puis demander à l'utilisateur Enregistrer dans... il saisit et hop!
mon soucis: la méthode copy , ouvre un nouveau classeur sans nom , y met ma feuille resul ... mais n'active pas ce dernier, il reste sur mon classeur d'origine.
Comment puis je faire pour activer le classeur dernièrement créé?
merci d'avance!
Deedo
ci joint ma petite procédure:
Sub export_resul()
'exporter la feuille résul vers un nouveau classeur
Dim ls_titre As String
Dim ls_filtre As String
Dim li_filtre As Integer
Dim ls_nomfic As Variant
'définir la liste des filtres de fichiers
ls_filtre = 'Fichiers Excel (*.xls),*.xls'
'affiche le filtre par défaut
li_filtre = 1
'Titre de la boite de dialogue
ls_titre = ' Export du questionnaire'
Sheets('resul').Select
Sheets('resul').Copy
'Obtenir le nom du fichier
ls_nomfic = Application.GetSaveAsFilename _
(FileFilter:=ls_filtre, _
FilterIndex:=li_filtre, _
Title:=ls_titre)
..........
voilà mon soucis en VBA:
ma macro génère une feuille répondant au doux nom de 'resul'
je désire copier cette feuille vers un nouveau classeur
puis demander à l'utilisateur Enregistrer dans... il saisit et hop!
mon soucis: la méthode copy , ouvre un nouveau classeur sans nom , y met ma feuille resul ... mais n'active pas ce dernier, il reste sur mon classeur d'origine.
Comment puis je faire pour activer le classeur dernièrement créé?
merci d'avance!
Deedo
ci joint ma petite procédure:
Sub export_resul()
'exporter la feuille résul vers un nouveau classeur
Dim ls_titre As String
Dim ls_filtre As String
Dim li_filtre As Integer
Dim ls_nomfic As Variant
'définir la liste des filtres de fichiers
ls_filtre = 'Fichiers Excel (*.xls),*.xls'
'affiche le filtre par défaut
li_filtre = 1
'Titre de la boite de dialogue
ls_titre = ' Export du questionnaire'
Sheets('resul').Select
Sheets('resul').Copy
'Obtenir le nom du fichier
ls_nomfic = Application.GetSaveAsFilename _
(FileFilter:=ls_filtre, _
FilterIndex:=li_filtre, _
Title:=ls_titre)
..........