Bonjour,
Je navigue entre plusieurs classeurs
J'aimerais faire une macro qui me ram=E8ne au dernier classeur ouvert un
peu comme je fais un retour =E0 la page pr=E9c=E9dente par la proc=E9dure:
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub
Merci
Michel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour,
If Windows.Count > 1 Then Windows(2).Activate
Cordialement. Daniel
Bonjour, Je navigue entre plusieurs classeurs J'aimerais faire une macro qui me ramène au dernier classeur ouvert un peu comme je fais un retour à la page précédente par la procédure: Public Res As String Sub Retour() Sheets(Res).Select End Sub Merci Michel
Bonjour,
If Windows.Count > 1 Then Windows(2).Activate
Cordialement.
Daniel
Bonjour,
Je navigue entre plusieurs classeurs
J'aimerais faire une macro qui me ramène au dernier classeur ouvert un
peu comme je fais un retour à la page précédente par la procédure:
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub
Merci
Michel
Bonjour, Je navigue entre plusieurs classeurs J'aimerais faire une macro qui me ramène au dernier classeur ouvert un peu comme je fais un retour à la page précédente par la procédure: Public Res As String Sub Retour() Sheets(Res).Select End Sub Merci Michel
DanielCo
Plus exactement, cette ligne te ramènes au dernier classeur actif. Daniel
Bonjour,
If Windows.Count > 1 Then Windows(2).Activate
Cordialement. Daniel
Bonjour, Je navigue entre plusieurs classeurs J'aimerais faire une macro qui me ramène au dernier classeur ouvert un peu comme je fais un retour à la page précédente par la procédure: Public Res As String Sub Retour() Sheets(Res).Select End Sub Merci Michel
Plus exactement, cette ligne te ramènes au dernier classeur actif.
Daniel
Bonjour,
If Windows.Count > 1 Then Windows(2).Activate
Cordialement.
Daniel
Bonjour,
Je navigue entre plusieurs classeurs
J'aimerais faire une macro qui me ramène au dernier classeur ouvert un
peu comme je fais un retour à la page précédente par la procédure:
Public Res As String
Sub Retour()
Sheets(Res).Select
End Sub
Merci
Michel
Plus exactement, cette ligne te ramènes au dernier classeur actif. Daniel
Bonjour,
If Windows.Count > 1 Then Windows(2).Activate
Cordialement. Daniel
Bonjour, Je navigue entre plusieurs classeurs J'aimerais faire une macro qui me ramène au dernier classeur ouvert un peu comme je fais un retour à la page précédente par la procédure: Public Res As String Sub Retour() Sheets(Res).Select End Sub Merci Michel
michir
On 25 mar, 09:34, DanielCo wrote:
Plus exactement, cette ligne te ram nes au dernier classeur actif. Daniel
> Bonjour,
> If Windows.Count > 1 Then Windows(2).Activate
> Cordialement. > Daniel
>> Bonjour, >> Je navigue entre plusieurs classeurs >> J'aimerais faire une macro qui me ram ne au dernier classeur ouvert un >> peu comme je fais un retour la page pr c dente par la proc dure: >> Public Res As String >> Sub Retour() >> Sheets(Res).Select >> End Sub >> Merci >> Michel
Ok, merci Daniel, cela fonctionne bien Michel
On 25 mar, 09:34, DanielCo <dcolardelle...@free.fr> wrote:
Plus exactement, cette ligne te ram nes au dernier classeur actif.
Daniel
> Bonjour,
> If Windows.Count > 1 Then Windows(2).Activate
> Cordialement.
> Daniel
>> Bonjour,
>> Je navigue entre plusieurs classeurs
>> J'aimerais faire une macro qui me ram ne au dernier classeur ouvert un
>> peu comme je fais un retour la page pr c dente par la proc dure:
>> Public Res As String
>> Sub Retour()
>> Sheets(Res).Select
>> End Sub
>> Merci
>> Michel
Plus exactement, cette ligne te ram nes au dernier classeur actif. Daniel
> Bonjour,
> If Windows.Count > 1 Then Windows(2).Activate
> Cordialement. > Daniel
>> Bonjour, >> Je navigue entre plusieurs classeurs >> J'aimerais faire une macro qui me ram ne au dernier classeur ouvert un >> peu comme je fais un retour la page pr c dente par la proc dure: >> Public Res As String >> Sub Retour() >> Sheets(Res).Select >> End Sub >> Merci >> Michel
Ok, merci Daniel, cela fonctionne bien Michel
MichD
Bonjour,
Si tu ouvres tes classeurs par macro :
Dim Wk As Workbook Set Wk = Workbooks.Open("c:CheminClasseur.xls")
Dans le reste de la procédure, tu peux utiliser la Variable Wk dans ton code au lieu de Workbooks("Classeur.xls")
With Wk 'Si tu veux qu'il devienne actif à l'écran .Activate .Worksheets("Feuil1").... 'tout le reste du code 'pour enregistrer le classeur .save 'pour fermer le classeur .Close End with
Si ton classeur est déjà ouvert, tu fais comme précédemment dim Wk As workbook, Wk1 As Workbook set Wk = Workbooks("Classeur.xls")
Set Wk1 = ThisWorkbook
Quand tes classeurs sont bien identifiés en début de procédure, tu peux passer d'un classeur à l'autre sans aucun problème et sans méprise!
Dim Wk As Workbook
Set Wk = Workbooks.Open("c:CheminClasseur.xls")
Dans le reste de la procédure, tu peux utiliser la Variable Wk dans ton code
au lieu de Workbooks("Classeur.xls")
With Wk
'Si tu veux qu'il devienne actif à l'écran
.Activate
.Worksheets("Feuil1")....
'tout le reste du code
'pour enregistrer le classeur
.save
'pour fermer le classeur
.Close
End with
Si ton classeur est déjà ouvert, tu fais comme précédemment
dim Wk As workbook, Wk1 As Workbook
set Wk = Workbooks("Classeur.xls")
Set Wk1 = ThisWorkbook
Quand tes classeurs sont bien identifiés en début de procédure, tu peux passer
d'un classeur à l'autre sans aucun problème et sans méprise!
Dim Wk As Workbook Set Wk = Workbooks.Open("c:CheminClasseur.xls")
Dans le reste de la procédure, tu peux utiliser la Variable Wk dans ton code au lieu de Workbooks("Classeur.xls")
With Wk 'Si tu veux qu'il devienne actif à l'écran .Activate .Worksheets("Feuil1").... 'tout le reste du code 'pour enregistrer le classeur .save 'pour fermer le classeur .Close End with
Si ton classeur est déjà ouvert, tu fais comme précédemment dim Wk As workbook, Wk1 As Workbook set Wk = Workbooks("Classeur.xls")
Set Wk1 = ThisWorkbook
Quand tes classeurs sont bien identifiés en début de procédure, tu peux passer d'un classeur à l'autre sans aucun problème et sans méprise!