Autres Renommer les données du code vba à partir d'une cellule

Bonjour.
Pour la Source, comme c'est la feuille représentée par l'objet Worksheet portant le code, on peut utiliser Me. Comme ça :

Bonjour, je ne vais pas en faire l'inventaire dans ce post mais je t'invite à dowloader et consulter les des outils que j'ai déposé et ainsi dans les tips car tu auras les réponses à toutes les questions que tu te poses sur les appels dynamiques concernant les noms d'onglets, fichiers etc.....
je n'appelle jamais un onglet "en dur" sauf quand c'est l'objet d'un test rapide pour voir les effets du code que je teste. voir aussi dans les tips les sources sur la classe paramètres, mes outils passent par celle-ci.
Bien entendu ça passe par un peu "de spéléo" dans mon code mais tout y est bonne lecture et découverte

Dranreb à dit:

Bonjour.
Pour la Source, comme c'est la feuille représentée par l'objet Worksheet portant le code, on peut utiliser Me. Comme ça :

VB:

Option Explicit
Private Sub CommandButton1_Click()
   Dim WshCbl As Worksheet
   Set WshCbl = Workbooks(Me.[J7].Value & ".xlsx").Worksheets(1)
   WshCbl.[B3:B7].Value = Me.[B3:B7].Value
   WshCbl.[E6:E10].Value = Me.[E6:E10].Value
   End Sub

Cliquez pour agrandir...

Meci bcp Dranreb , ça fonctionne bien.pour la feuill1
Pouvez-vous m'expliquer comment transferer les données de plusieurs feuilles et merci

Rebonjour

Pour les autres feuilles que celle représentée par l'objet Worksheet où est écrit le code je prends toujours au lieu de Me le nom de l'objet Worksheet qui la représente, et qu'on appelle aussi parfois à tort son CodeName car il existe une propriété String en lecture seule qui s'appelle comme ça et qui reproduit ce nom. Les objets Worksheet d'un autre projet VBA que celui portant le code ne sont pas connus dans celui ci. Pour ceux ci il n'y a pas d'autre solution que de consulter la collection Worksheets de l'autre classeur.

pouvez vous modifier le fichier et le m'envoyer svp

Non, parce que je ne sais pas ce que vous voulez transférer dans quelles autres feuilles du même classeur ou d'un autre …

Dranreb à dit:

Non, parce que je ne sais pas ce que vous voulez transférer dans quelles autres feuilles du même classeur ou d'un autre …

Cliquez pour agrandir...

Transférer les données de la feuill1 et feuill2 du fichier source vers feuill1 et feuill2 du fichier TEST

bonjour
pour info consultes mes utilitaires comme LFMT, PQMT et les autres... dans ceux je manipule des données de mon fichier macro que je recommande de passer par Thisworkbook et j'ouvre aussi d'autres classeurs.... tu verras la démarche

Rappels
VBA est objet
un objet s'instancie par l'instruction set qui correspond en qq sorte au signe '=' pour une variable ; déjà quand on a compris cela on a avancé d'un grand pas.

Un autre principe de base a bien avoir tête c'est la hiérarchie des objets. Pour ta difficulté que tu postes sur le forum il est essentiel de bien comprendre cette hiérarchie en le classeur (workbook), l'onglet (worksheet), et les données (range).
On a donc Workbooks : une collection, Worksheets (une collection).
En respectant cette hiérarchie tu peux attaquer les cellules (ranges) d'autres classeurs que tu as ouvert dans ton code par l'instruction set wbClasseur1=...... avec une déclaration préalable dim wbClasseur as workbook
une fois le classeur instancié et ouvert tu peux instancier un onglet/feuille. Le principe est similaire à celui de l'objet workbook. Un dim préalable comme dim wkOngletExterne as worksheet et son instanciation par un set en passant par l'objet classeur ouvert préalablement soit
set wkOngletExterne=wbClasseur1.Worksheets("NOM_DE_MA_FEUILLE")

on passe au niveau inférieur pour attaquer cette fois les ranges (cellule) qui dépendent de l'objet feuille
dim rRangeExterne as range et set rRangeExterne=wkOngletExterne.Range("A1") ou remplacer A1 par un nom de champ (plage nommée) qui est plus parlant ! Avec l'objet rRangeExterne tu as toutes ses propriétés et lui affecter une valeur rien de plus simple rRangeExterne.Value="titi" (par défaut c'est la propriété Value) si tu ne la précises pas) que ce soit en lecture ou en écriture.

Attention : ne pas oublier quand tu ouvres un classeur externe par un Set, il devient automatiquement ton classeur actif. D'où l'importance de l'objet Thisworkbook qui héberge tes macros.

Ensuite pour te balader de feuille en feuille ou de classeur en classeur tu as la méthode Activate qui correspond au passage d'une feuille à l'autre ou d'un classeur à l'autre avec la souris.
Ne pas confondre avec .Select qui correspond à une action de Selection quand tu veux faire par exemple des copier/coller.

SI tu as bien compris cette méthodologie tu as résolu déjà 80% de tes problèmes en programmation VBA.






dim wb

Dranreb à dit:

Bonjour.
Donc par exemple:

VB:

Option Explicit
Private Sub CommandButton1_Click()
   Dim WbkCbl As Workbook, WshCbl As Worksheet
   Set WbkCbl = Workbooks(Me.[J7].Value & ".xlsx")
   Set WshCbl = WbkCbl.Worksheets(1)
   WshCbl.[B3:B7].Value = Me.[B3:B7].Value
   WshCbl.[E6:E10].Value = Me.[E6:E10].Value
   Set WshCbl = WbkCbl.Worksheets(2)
   WshCbl.[B3:B7].Value = Feuil2.[B3:B7].Value
   WshCbl.[E6:E10].Value = Feuil2.[E6:E10].Value
   End Sub

Attention, Feuil2 n'est pas le nom de l'onglet Excel mais celui de l'objet VBA qui en assume la représentation dans la rubrique Microsoft Excel Objets du projet VBA.

Cliquez pour agrandir...

merci bcp ça marche bien,

medlight à dit:

merci bcp ça marche bien,

Cliquez pour agrandir...

Bonjour, si je peux me permettre mais ça sent la programmation vba copier/coller sans trop rien y comprendre. Je t'invite à voir les bases de la programmation objet VBA. En effet comme dit DranReb il y a une énorme différence entre le nom symbolique objet et le nom "fonctionnel" de l'onglet.
Si tu passes par le nom symbolique tu n'as pas besoin de l'instancier mais il n'est connu que dans le classeur qui exécute la macro. Si tu souhaites attaquer une feuille d'un classeur tu dois l'instancier par son nom fonctionnel.
Après chacun sa méthode .

Allez je vais être sympa un petit exemple avec mes fichiers joints. C'est une manière d'y parvenir il y en a d'autres et aussi en espérant que ça serve d'école pour les autres

Bon je préfère le signaler pour test penser à changer le chemin d'accès selon votre disque
Const CLASSEUR_EXTERNE = "D:\DATA\18__ATELIERS\___XL__DOWNLOAD\ClasseurExterne.xlsx"