XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )

[Atiom]

Bonjour,

Dans le code ci-dessous je souhaiterais remplacer 3 lignes

ThisWorkbook.Sheets("Base_VBA").Range("A2:A43").Value = nom
ThisWorkbook.Sheets("Base_VBA").Range("B2:B43").Value = semaine
ThisWorkbook.Sheets("Base_VBA").Range("C2:C43").Value = jour

Il faudrait remplacer ("Base_VBA") par le nom de la feuille active

J’ai essayé sans succès
ThisWorkbook. ActiveSheet.Name Range("A2:A43").Value = nom
Merci d’avance pour votre aide.

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim semaine As Variant
    Dim nom As Variant
    Dim jour As Variant
  
 '< >Définir et ouvrir le classeur source
    Workbooks.Open "\Users\Fichier1.xlsm"
    Set wbSource = Workbooks("Fichier1.xlsm")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'< >Définir la feuille du classeur
    Set wsSource = wbSource.Sheets("1")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'< >Récupérer les valeurs des cellule source
    nom = wsSource.Range("H$2").Value
    semaine = wsSource.Range("D$3").Value
    jour = wsSource.Range("B5:B46").Value

    '< >Affiche les valeurs dans cette feuille
    ThisWorkbook.Sheets("Base_VBA").Range("A2:A43").Value = nom
    ThisWorkbook.Sheets("Base_VBA").Range("B2:B43").Value = semaine
    ThisWorkbook.Sheets("Base_VBA").Range("C2:C43").Value = jour

  '< >Ferme le classeur source
    wbSource.Close SaveChanges:=False
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
      
    Application.ScreenUpdating = True
End Sub

 

[goube]

Bonjour,
A tester :

ActiveSheet.Range("A2:A43").Value =

Cordialement

 

[cathodique]

Bonsoir,

ThisWorkBook.ActiveSheet.Range("A2:A43").Value =

Bonne soirée.

 

[Cousinhub]

Bonsoir,
En résumant un peu

Me.Range("A2:A43").Value = ...

Bonne soirée

 

[Atiom]

Bonsoir,

Merci a vous 3 pour les propositions.

ThisWorkBook.ActiveSheet.Range("A2:A43").Value =

Ca fonctionne parfaitement.
Par contre avec les deux autres solutions j'ai des erreurs.
Encore grand merci bonne soirée et à bientôt.

 

[Cousinhub]

Re-,
Effectivement, lors de l'ouverture du fichier source, le focus a changé...
La syntaxe "ThisWorkBook" est bien à privilégier 👍

 

[Atiom]

Re,

Toujours dans le même code je m'aperçois que si je change l'emplacement du dossier source il faut changer le chemin dans chaque feuille.
Est-ce qu'il y a un moyen d'éviter cela ?
Par exemple mettre le chemin dans une cellule et le code VBA s'adapte automatiquement dans toutes les feuilles ?
Voilà les lignes à changer:

 '< >Définir et ouvrir le classeur source
    Workbooks.Open "\Users\Fichier1.xlsm"
    Set wbSource = Workbooks("Fichier1.xlsm")

Merci

 

[goube]

re,
Saisir le chemin du fichier dans une cellule, la nommer et utiliser le nom dans l'instruction VBA

 Workbooks.Open Range("_Chemin")

Cordialement

 

[Atiom]

Re,
Merci goube je pense que t'as sans aucun mais raison!
Mais après plusieurs essais de code j'ai malheureusement toujours des erreurs!
Donc :
J'ai ajouté une feuille que j'ai renommé Info
Dans la cellule A1 j'ai mis \Users\Fichier1.xlsm
et en A2 j'ai mis Fichier1.xlsm
Les deux chemins nécessaires au fonctionnement de mon code que fonctionne bien.
Concrètement comment je peux modifier le code ci-dessous afin de remplacer les lignes:

    Workbooks.Open "\Users\Fichier1.xlsm"
   Set wbSource = Workbooks("Fichier1.xlsm")

par les valeurs des cellules A1 et A2 de la feuille Info.

Merci infiniment de votre aide

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim semaine As Variant
    Dim nom As Variant
    Dim jour As Variant
 
 '< >Défini et ouvre le classeur source
    Workbooks.Open "\Users\Fichier1.xlsm"
    Set wbSource = Workbooks("Fichier1.xlsm")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'< >Défini la feuille du classeur
    Set wsSource = wbSource.Sheets("1")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'< >Récupérer les valeurs des cellule source
    nom = wsSource.Range("H$2").Value
    semaine = wsSource.Range("D$3").Value
    jour = wsSource.Range("B5:B46").Value

    '< >Affiche les valeurs dans cette feuille
      ThisWorkbook.ActiveSheet.Range("A2:A43").Value = nom
      ThisWorkbook.ActiveSheet.Range("B2:B43").Value = semaine
      ThisWorkbook.ActiveSheet.Range("C2:C43").Value = jour

  '< >Ferme le classeur source
    wbSource.Close SaveChanges:=False
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  
    Application.ScreenUpdating = True
End Sub
  ThisWorkbook.ActiveSheet.Range("C2:C43").Value = jour

 

[sylvanu]

Bonsoir le fil,

par les valeurs des cellules A1 et A2 de la feuille Info.

A2 est même inutile, vous pouvez utiliser uniquement A1 avec :

Dim Fichier$, T
Fichier = [A1]
Workbooks.Open Fichier
T = Split(Fichier, "\")
Set wbSource = Workbooks(T(UBound(T)))

 

[goube]

re,
Il faut nommer les cellules A1 et A2, par exemple A1 en _Chemin et A2 en _Fichier et utiliser ces noms dans la macro

 Workbooks.Open [_Chemin]
    Set wbSource = Workbooks[_Fichier]

 

[Atiom]

Re, sylvanu

Dim Fichier$, T
Fichier = Worksheets("Info").Range("A1").Value
Workbooks.Open Fichier
T = Split(Fichier, "\")
Set wbSource = Workbooks(T(UBound(T)))
  
'< >Défini la feuille du classeur
    Set wsSource = wbSource.Sheets("1")
' <<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Comme cela ?
Dans la cellule A1 de la feuille Info j'ai mis Users\Fichier1.xlsm

Je dois faire quelque chose de faux puisque ça ne marche pas !

 

[goube]

si

 Workbooks.Open "\Users\Fichier1.xlsm" fonctionne alors \Users\Fichier1.xlsm dans A1

Fichier = Worksheets("Info").Range("A1").Value
plutôt
Fichier = Sheets("Info").Range("A1").Value

 

[Dranreb]

Bonsoir.

Set wsSource = wbSource.Sheets("1")

Avez vous au moins une feuille nommée "1" ?
Parce que si c'est la 1ère feuille qui vous intéresse, il faut spécifier son numéro d'ordre par un nombre, pas une constante String !

Par ailleurs vous vous compliquez bien la vie parce que la méthode Open de l'objet Workbooks renvoie un objet Workbook.
Donc : Set wsSource = Workbooks.Open("\Users\Fichier1.xlsm").Sheets(1)

 

[Atiom]

Rebonsoir,

Top! Cela fonctionne!
Encore une fois grand merci à tous.

@Dranreb​

Oui j'ai une feuille nommée "1" et t'as sans doute raison concernant la constante String !
Je regarde !

​