Intégration

[Marie]

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

 

[nono]

Bonjour,

Sympa la démo. Avec un fichier zipé ce serait mieux.

@+
Bruno

 

[Jeannot45]

Bonjour Marie,

Il te suffit de faire une macro enregistrée et de copier les instructions générées lors de l'enregistrement et qui sont placées entre le Sub et le End sub du Module créé par Excel.
Une fois sélectionnées et Copier, tu les colles dans ta procédure

Bon courage et Bonnes fetes

Jeannot