Leçon 3 (#3/10) - Transferts de données d'une feuille automatiquement ?

Bonjour,
Dans cette 3-ième session de cours VBA pour débutant sur Excel
je vous propose un exercice d'application qui vous permettra d'établir la connexion entre deux classeurs Excel.
Le but ici étant de mettre à jour une base de données destinée au post-traitement de données en vu de mettre en évidence des indices de performances.
Au travers de ce cours VBA, vous découvrirez comment copier des données d'un classeur à un autre.
Bien à vous.
One Taste

[@hachfi3741]

Bonjour, est ce possible de partager avec nous la base de donnée (Excel) que vous avez utilisé ? et de mettre en ligne les leçons 8 et 9 ? Merci

[@hugueskoffi2098]

Bonjour , merci pour ce tuto très intéressant. Serait il possible de re-avoir ce tuto en version débutant?

[@frenchcokeboy]

Salut, merci bcp mais tu n'as pas expliqué à quoi correspondait la fonction Set Wbkdata = Workbooks.Open(nom_fichier) peux-tu stp nous expliquer ? merci à toi

[@lumiere5545]

merci pour ce travail

[@deynamodestepesson4894]

la description le lien pour télécharger le fichier Excel svp.

[@cheikhgueye7681]

Bonjour Monsieur, je suis en France et j'aimerais bien collaborer avec vous mais je ne sais pas comment je dois faire pour avoir ton contact stp

[@piorodriguez8205]

Bonjour, Excellent tuto mais je ne retrouve pas ce que je cherche. Je voudrais copier des cellule d'une feuille d'un classeur (A1; K9; AI9...) J'ai créée une boucle mais je n'arrive pas à les coller. Comment peut-on faire pour copier certaine cellule d'une feuille (Identique format) de n classeur (Identique mais avec une numerotation consécutive ) et les coller dans un fichier de synthèse à la suite ? Merci pour votre support Pio

[@learningxcel6]

Pío RODRIGUEZ pardon pour cette réponse tardive avez toujours besoin de support ?

[@piorodriguez8205]

@@learningxcel6 oui svp

[@media2732]

Bonjour, Est ce qu'on peut avoir le code VBA complet ainsi que le fichier exemple SVP ? sinon super tutoriel ! on peut retrouver ce cas pratique dans plusieurs situations.

[@learningxcel6]

media oui je vais vous transmettre le code

[@media2732]

@@learningxcel6 merci j'attend le code avec impatience !

[@learningxcel6]

@@media2732 Dim nom_fichier As String Dim Wbkdata As Workbook Dim Nom_classeur As String Application.ScreenUpdating = False Application.DisplayAlerts = False ' chemin vers le repertoire ChDir "" nom_fichier = Application.GetOpenFilename("fichiers Excel (*.),*.") Set Wbkdata = Workbooks.Open(nom_fichier) ' ouverture du classeur de données ' effacer le contenu de la feuille a mettre a jour Nom_classeur = ThisWorkbook.Name ' recuperation du nom du classeur a mettre a jour ThisWorkbook.Activate Sheets("database").Select Range("A2:AI3468").Select Selection.ClearContents Range("A2").Select 'recupération du contenu de la feuille data base Wbkdata.Activate Sheets("KPI_Test").Select Range("A2:AI3468").Select Selection.Copy ' copie des données du classeur database Windows(Nom_classeur).Activate Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Wbkdata.Close ' fermeture du classeur Application.ScreenUpdating = True Application.DisplayAlerts = True

[@hachfi3741]

@@learningxcel6 vous pouvez partager le data set svp

[@I347-w8d]

Bonjour, très bonne vidéo. C'est possible de partager avc nous le code que vous avez établi pour cette vidéo. D'avance merci

[@learningxcel6]

Dim nom_fichier As String Dim Wbkdata As Workbook Dim Nom_classeur As String Application.ScreenUpdating = False Application.DisplayAlerts = False ' chemin vers le repertoire ChDir "" nom_fichier = Application.GetOpenFilename("fichiers Excel (*.),*.") Set Wbkdata = Workbooks.Open(nom_fichier) ' ouverture du classeur de données ' effacer le contenu de la feuille a mettre a jour Nom_classeur = ThisWorkbook.Name ' recuperation du nom du classeur a mettre a jour ThisWorkbook.Activate Sheets("database").Select Range("A2:AI3468").Select Selection.ClearContents Range("A2").Select 'recupération du contenu de la feuille data base Wbkdata.Activate Sheets("KPI_Test").Select Range("A2:AI3468").Select Selection.Copy ' copie des données du classeur database Windows(Nom_classeur).Activate Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Wbkdata.Close ' fermeture du classeur Application.ScreenUpdating = True Application.DisplayAlerts = True

[@obandy9485]

@@learningxcel6 Dans la video tu as declaré 2 variables mais ici tu en as déclaré 3

[@christianmubenga7033]

Bonjour merci beaucoup pour ces tutoriels intéressant. pourriez vous m'aider avec les codes pour créer des segments en VBA ? merci beaucoup d'avance

[@learningxcel6]

Bonjour, Par segment vous parlez de ceux qu'on utilise sur les tableaux croisés dynamiques ?

[@christianmubenga7033]

Oui oui effectivement En plus j'ai quelques questions dessus si ça ne dérange pas vous pouvez me laisser un message sur [e-mail] question d'une discussion Merci beaucoup

[@naswr5176]

malheureusement tous les 10 cours ne sont pas présent sinon très bien expliqué. bon courage et merci pour le partage

[@telechat5161]

Bonjour, Merci pour le tuto. Petite question concernant la plage à copier. Celle-ci semble figée dans le code VBA : Range("A2:AI3468").Select Ainsi, si une ligne est ajoutée sur le fichier de données, je comprends qu'il faut changer le code VBA pour redéfinir la nouvelle plage à copier. Existe-t-il une possibilité de définir la plage de manière dynamique pour que le programme la détermine sans que nous ayons à modifier le code ? Merci.

[@makayadelaroura9186]

Bjr je suis débutant sur VBA et j'aimerai avoir ce même tuto de manière détailler . merci

[@wilfriedgoore277]

Merci pour ce tuto. Stp possible pourrais-tu nous partager ton mail ?

[@learningxcel6]

[e-mail]

[@alaintiutsiatsotsague1414]

bonjour one taste et merci pour l'initiative mais à ce rythme on n'arrivera jamais à la 10 eme leçon !

[@hervehor9601]

Salut merci pour la vidéo il serait mieux que quand vous faites les vidéos mettez dans la description le lien pour télécharger le fichier Excel que vous avez utiliser pour faire la vidéo sinon la vidéo ne vas pas nous servir

[@learningxcel6]

Bonjour, je peux vous les mettre a disposition si vous en avez besoin personnellement

[@tbouridaamouretfolie-4300]

Bonjour, Merci d'avoir partager votre expérience VBA, mais je trouve que sur ce dernier tuto que vous allez trop vite sachant qu'il y a des informations intéressantes à savoir la fonction "ChDir"... !! Merci :-)

[@learningxcel6]

Tabourida amour et folie - التبوريدة عشق و جنون Bonjour, J'en prends note. Et je vais réajuster. Merci de me suivre

[@houdnarguib4949]

Hahaha, j'ai regardé 1 et 2 e croyant que ça va se faire assez simple et lent, là vous avez êtes passé de 5 à 1000, j'ai beaucoup de mal à vous suivre

[@learningxcel6]

Bonjour, Dsl dans les débuts j' y allais un peu vite sans m'en rendre compte. Si vous avez des questions N'hésitez pas je vais vous repondre

[@alexandre637]

Très bonne vidéo mais c'est regrettable que nous ne puissions même pas voir la fin du code sur votre VBE et que ce soit trop rapide

[@learningxcel6]

Dim nom_fichier As String Dim Wbkdata As Workbook Dim Nom_classeur As String Application.ScreenUpdating = False Application.DisplayAlerts = False ' chemin vers le repertoire ChDir "" nom_fichier = Application.GetOpenFilename("fichiers Excel (*.),*.") Set Wbkdata = Workbooks.Open(nom_fichier) ' ouverture du classeur de données ' effacer le contenu de la feuille a mettre a jour Nom_classeur = ThisWorkbook.Name ' recuperation du nom du classeur a mettre a jour ThisWorkbook.Activate Sheets("database").Select Range("A2:AI3468").Select Selection.ClearContents Range("A2").Select 'recupération du contenu de la feuille data base Wbkdata.Activate Sheets("KPI_Test").Select Range("A2:AI3468").Select Selection.Copy ' copie des données du classeur database Windows(Nom_classeur).Activate Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False Wbkdata.Close ' fermeture du classeur Application.ScreenUpdating = True Application.DisplayAlerts = True