M
Marie
Guest
Sub Visitemédicale()
On Error GoTo Fin
Worksheets("base de données").Copy After:=Sheets(Sheets.Count) ' copie feuille X dans une nouvelle feuille ( à la fin )
ActiveSheet.Name = ("Visite médicale") ' renommer la nouvelle feuille
Exit Sub
Fin: 'gestion erreur si la feuille Y existe deja
If Err = 1004 Then MsgBox " La feuille Visite médicale existe déja dans le classeur . "
'Application.DisplayAlerts = False ' option pour ne pas avoir le message excel qui valide la suppression de la feuille
ActiveSheet.Delete ' suppression de la feuille qui existe deja
'Application.DisplayAlerts = True ' ! pas de false sans true
End Sub
@@@@@@@@@
Je voudrai intégrer les actions ci-dessous, à la macro ci dessus ; MERCI à L’ INITIE qui saura le faire.
@@@@@@@@@
« Positionner le curseur en A2 »
Données
Filtrer
Filtre automatique
« Dans la colonne : R ; cliquer sur X »
Masquer
« Colonnes C à G »
« Puis M à BE »
Fichier
Mise en page
Page
« Ajuster 1 en largeur (uniquement) »
En-tête / pied de page
En tête personnalisé
Partie centrale : « écrire » &[Onglet] « (lui affecter gras italique 12) »
Pied de page
Partie centrale : « écrire : Page : &[Page] / &[Pages] »
Partie droite : écrire « Rezé le : » &[Date] »
Aperçu
On Error GoTo Fin
Worksheets("base de données").Copy After:=Sheets(Sheets.Count) ' copie feuille X dans une nouvelle feuille ( à la fin )
ActiveSheet.Name = ("Visite médicale") ' renommer la nouvelle feuille
Exit Sub
Fin: 'gestion erreur si la feuille Y existe deja
If Err = 1004 Then MsgBox " La feuille Visite médicale existe déja dans le classeur . "
'Application.DisplayAlerts = False ' option pour ne pas avoir le message excel qui valide la suppression de la feuille
ActiveSheet.Delete ' suppression de la feuille qui existe deja
'Application.DisplayAlerts = True ' ! pas de false sans true
End Sub
@@@@@@@@@
Je voudrai intégrer les actions ci-dessous, à la macro ci dessus ; MERCI à L’ INITIE qui saura le faire.
@@@@@@@@@
« Positionner le curseur en A2 »
Données
Filtrer
Filtre automatique
« Dans la colonne : R ; cliquer sur X »
Masquer
« Colonnes C à G »
« Puis M à BE »
Fichier
Mise en page
Page
« Ajuster 1 en largeur (uniquement) »
En-tête / pied de page
En tête personnalisé
Partie centrale : « écrire » &[Onglet] « (lui affecter gras italique 12) »
Pied de page
Partie centrale : « écrire : Page : &[Page] / &[Pages] »
Partie droite : écrire « Rezé le : » &[Date] »
Aperçu