Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer qu'on
récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet voulu
?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer qu'on
récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet voulu
?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer qu'on
récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet voulu
?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonjour J-Pascal,
C'est toujours le même principe
d'abord tu dois t'assurer que c'est le bon classeur qui est
la fenêtre actif, la feuille et en dernier lieu la feuille
Workbooks("NomDuclasseur.xls").Activate
Worksheets(NomDeLaFeuille).Select
Range("A1").Select
Ou une autre syntaxe
With Workbooks("NomDuclasseur.xls").Worksheets(NomDeLaFeuille).
.range("A1") = "Ok"
End With
"j-pascal" a écrit dans le message de groupe de
discussion : Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonjour J-Pascal,
C'est toujours le même principe
d'abord tu dois t'assurer que c'est le bon classeur qui est
la fenêtre actif, la feuille et en dernier lieu la feuille
Workbooks("NomDuclasseur.xls").Activate
Worksheets(NomDeLaFeuille).Select
Range("A1").Select
Ou une autre syntaxe
With Workbooks("NomDuclasseur.xls").Worksheets(NomDeLaFeuille).
.range("A1") = "Ok"
End With
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.74ee7d9486e45bcc.81386@venir.com... Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonjour J-Pascal,
C'est toujours le même principe
d'abord tu dois t'assurer que c'est le bon classeur qui est
la fenêtre actif, la feuille et en dernier lieu la feuille
Workbooks("NomDuclasseur.xls").Activate
Worksheets(NomDeLaFeuille).Select
Range("A1").Select
Ou une autre syntaxe
With Workbooks("NomDuclasseur.xls").Worksheets(NomDeLaFeuille).
.range("A1") = "Ok"
End With
"j-pascal" a écrit dans le message de groupe de
discussion : Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir.
Il ne faut pas mettre le nom d'une variable entre guillemets :
Windows(NomFeuilActive).Select
Cordialement.
DanielBonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir.
Il ne faut pas mettre le nom d'une variable entre guillemets :
Windows(NomFeuilActive).Select
Cordialement.
Daniel
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir.
Il ne faut pas mettre le nom d'une variable entre guillemets :
Windows(NomFeuilActive).Select
Cordialement.
DanielBonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
il faut remplacer windows par sheets
"j-pascal" a écrit dans le message de
news:Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
il faut remplacer windows par sheets
"j-pascal" <messages@venir.com> a écrit dans le message de
news:mn.74ee7d9486e45bcc.81386@venir.com...
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
il faut remplacer windows par sheets
"j-pascal" a écrit dans le message de
news:Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir JP
Windows("NomFeuilActive").Select à remplacer par
Sheets(NomFeuilActive).activate
Bien que lorsque ton classeur actif est activé, il se trouve déja sur la
feuille active !!
Ou je n'ai pas tout compris
--
Cordialement
"j-pascal" a écrit dans le message de
news:Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir JP
Windows("NomFeuilActive").Select à remplacer par
Sheets(NomFeuilActive).activate
Bien que lorsque ton classeur actif est activé, il se trouve déja sur la
feuille active !!
Ou je n'ai pas tout compris
--
Cordialement
jpmonnier-nospam@neuf.fr
"j-pascal" <messages@venir.com> a écrit dans le message de
news:mn.74ee7d9486e45bcc.81386@venir.com...
Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Bonsoir JP
Windows("NomFeuilActive").Select à remplacer par
Sheets(NomFeuilActive).activate
Bien que lorsque ton classeur actif est activé, il se trouve déja sur la
feuille active !!
Ou je n'ai pas tout compris
--
Cordialement
"j-pascal" a écrit dans le message de
news:Bonsoir,
Ci-après les noms de divers classeurs et feuilles :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
NomFichierImport = Application.GetOpenFilename(typeFichier, , Titre)
Du code :
[...]
Windows(NomFichierImport).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close
Application.EnableEvents = True
[Le classeur actif réapparaît après fermeture du classeur précédent]
Sheets("import relance").Activate
Sheets("import relance").Visible = False
[Je me demande si la ligne suivante est indispensable, sauf à s'assurer
qu'on récupère le bon classeur ...]
Windows(NomClasseurActif).Activate 'ajout 13/04/09
[Quoiqu'il en soit, je suis bien sur le bon classeur, mais impossible
d'activer la bonne feuille avec la ligne suivante !! ]
Windows("NomFeuilActive").Select
Question : Pourquoi cette dernière ligne ne me sélectionne pas l'onglet
voulu ?
Merci d'avance pour votre aide,
JP
Mais qu'est-ce que : "Windows(NomClasseurActif).Activate" active ?
Pourquoi désires-tu tant utiliser Windows plutôt que Workbooks() ?
En théorie, Windows(NomClasseurActif).Activate fonctionne mais quand
tu définis tes variables de cette manière :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
Ceci est du code très approximatif ! au lancement de ton code, si tu as
plus d'un classeur ouvert, comment fais-tu pour être sûr que ActiveWorbook
est le bon classeur qui est actif ?
Les expressions suivantes utilisées très fréquemment par l'enregistreur de
macro sont à remplacer à chaque fois où c'est possible :
ActiveCell, ActiveWorkbook, Activesheet, Selection
Tu peux (devrais) utiliser les variables "objet" pour ce faire :
Dim Wk As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
OU
Set Wk = Workbooks("MonClasseur.xls")
Ou
Set Wk = Workbooks.Open("c:CheminMonClasseur.xls")
Ou
Set Wk = Workbooks.Add
Et pour spécifier une feuille de la variable objet Wk
Set Sh = Wk.Worksheets("NomDeLaFeuille")
Tout au long du code, Wk Et Sh représentent toujours le même classeur et la
même feuille. à n'importe quel moment, tu peux faire appel la la feuille Sh
sans faire référence à l'objet Wk.
Avec un peu d'habitude, c'est beaucoup plus précis, plus court à écrire et
plus lisible.
Une bonne habitude à développer !
Mais qu'est-ce que : "Windows(NomClasseurActif).Activate" active ?
Pourquoi désires-tu tant utiliser Windows plutôt que Workbooks() ?
En théorie, Windows(NomClasseurActif).Activate fonctionne mais quand
tu définis tes variables de cette manière :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
Ceci est du code très approximatif ! au lancement de ton code, si tu as
plus d'un classeur ouvert, comment fais-tu pour être sûr que ActiveWorbook
est le bon classeur qui est actif ?
Les expressions suivantes utilisées très fréquemment par l'enregistreur de
macro sont à remplacer à chaque fois où c'est possible :
ActiveCell, ActiveWorkbook, Activesheet, Selection
Tu peux (devrais) utiliser les variables "objet" pour ce faire :
Dim Wk As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
OU
Set Wk = Workbooks("MonClasseur.xls")
Ou
Set Wk = Workbooks.Open("c:CheminMonClasseur.xls")
Ou
Set Wk = Workbooks.Add
Et pour spécifier une feuille de la variable objet Wk
Set Sh = Wk.Worksheets("NomDeLaFeuille")
Tout au long du code, Wk Et Sh représentent toujours le même classeur et la
même feuille. à n'importe quel moment, tu peux faire appel la la feuille Sh
sans faire référence à l'objet Wk.
Avec un peu d'habitude, c'est beaucoup plus précis, plus court à écrire et
plus lisible.
Une bonne habitude à développer !
Mais qu'est-ce que : "Windows(NomClasseurActif).Activate" active ?
Pourquoi désires-tu tant utiliser Windows plutôt que Workbooks() ?
En théorie, Windows(NomClasseurActif).Activate fonctionne mais quand
tu définis tes variables de cette manière :
NomClasseurActif = ActiveWorkbook.Name '(prévient les modifs)
NomFeuilActive = ActiveSheet.Name
Ceci est du code très approximatif ! au lancement de ton code, si tu as
plus d'un classeur ouvert, comment fais-tu pour être sûr que ActiveWorbook
est le bon classeur qui est actif ?
Les expressions suivantes utilisées très fréquemment par l'enregistreur de
macro sont à remplacer à chaque fois où c'est possible :
ActiveCell, ActiveWorkbook, Activesheet, Selection
Tu peux (devrais) utiliser les variables "objet" pour ce faire :
Dim Wk As Workbook
Dim Sh As Worksheet
Set Wk = ThisWorkbook
OU
Set Wk = Workbooks("MonClasseur.xls")
Ou
Set Wk = Workbooks.Open("c:CheminMonClasseur.xls")
Ou
Set Wk = Workbooks.Add
Et pour spécifier une feuille de la variable objet Wk
Set Sh = Wk.Worksheets("NomDeLaFeuille")
Tout au long du code, Wk Et Sh représentent toujours le même classeur et la
même feuille. à n'importe quel moment, tu peux faire appel la la feuille Sh
sans faire référence à l'objet Wk.
Avec un peu d'habitude, c'est beaucoup plus précis, plus court à écrire et
plus lisible.
Une bonne habitude à développer !