|
|
|
|
Bonjour, pouvez-vous m'aidez
Je voudrais faire une macro excel (95) qui puisse prendre le résultat d'une cellule pour activer l'onglet du même nom.
Le résultat à prendre en compte est le nom du serveur (ex : toto). J'ai bien sûr plusieurs onglets différents car plusieurs noms de serveur.
A partir d'un onglet résultat qui reprend les données ci-dessous :
Nom de serveur Date Sauvegarde Résultat
toto 04/08/2005 OK
Il faudrait que cette macro active l'onglet appelé "toto" pour copier la date de sauvegarde et le résultat.
Merci de votre aide.
Configuration: Windows XP et excel 95
Bonjour,
Sub ChercheOnglet()
Dim Feuille, LastFeuil As String
Dim Position As Integer
'Récupéré le nom de l'onglet actif
LastFeuil = ActiveSheet.Name
'Récupéré le nom de l'onglet
Feuille = ActiveCell.Offset(0, 0).Value
'Sélectionné l'onglet
Sheets(Feuille).Select
'Trouver la dernière ligne non-vide
Position = Range("A1:A65535").End(xlDown).Row
'Se positionner a N + 1
Range("A" & (Position + 1)).Select
'Écrire la date du jour
ActiveCell.Offset(0, 0).Value = Date
'Revenir à l'onglet initial
Sheets(LastFeuil).Select
End Sub
Lupin ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |