Comment lancer des macros d'un classeur dans un autre ?
Résolu/Fermé
Druddy
Messages postés
34
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
29 mars 2023
-
8 juin 2021 à 18:32
Druddy Messages postés 34 Date d'inscription samedi 29 mai 2021 Statut Membre Dernière intervention 29 mars 2023 - 12 juin 2021 à 18:29
Druddy Messages postés 34 Date d'inscription samedi 29 mai 2021 Statut Membre Dernière intervention 29 mars 2023 - 12 juin 2021 à 18:29
A voir également:
- Comment lancer des macros d'un classeur dans un autre ?
- Lancer un programme au demarrage - Guide
- Macros word - Guide
- Impossible de lancer l'application ps4 - Forum Jeux vidéo
- Comment lancer un jeu sur ps3 - Forum PS3
- Importer une feuille excel dans un autre classeur vba ✓ - Forum VB / VBA
4 réponses
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
8 juin 2021 à 21:36
8 juin 2021 à 21:36
Bonjour,
Lancer des macros ne veux rien dire...!
Que voulez-vous réaliser exactement ---exemple depuis classeur global je vais chercher des valeurs ou (feuille/Classeur) et je les mets ou (feuille/Classeur).... et qu'elle est le résultat final....?
Lancer des macros ne veux rien dire...!
Que voulez-vous réaliser exactement ---exemple depuis classeur global je vais chercher des valeurs ou (feuille/Classeur) et je les mets ou (feuille/Classeur).... et qu'elle est le résultat final....?
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
9 juin 2021 à 17:15
9 juin 2021 à 17:15
Bonjour,
Merci pour le message. Pour moi c'est de moins en moins compréhensible.
Pouvez-vous mettre un fichier exemple ..sur https://www.cjoint.com/ et poster le lien.
Merci pour le message. Pour moi c'est de moins en moins compréhensible.
Pouvez-vous mettre un fichier exemple ..sur https://www.cjoint.com/ et poster le lien.
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
9 juin 2021 à 18:20
9 juin 2021 à 18:20
Bonjour,
J'ai remarqué ceci :
Il me manque la définition de la plage de données pour les TCD à l'issue et la nommer à chaque fois en "DatSLAGéné__3".
Sans connaitre la structure de vos données c'est impossible de donner une proposition.
Voir poste précédent.
J'ai remarqué ceci :
Il me manque la définition de la plage de données pour les TCD à l'issue et la nommer à chaque fois en "DatSLAGéné__3".
Sans connaitre la structure de vos données c'est impossible de donner une proposition.
Voir poste précédent.
Druddy
Messages postés
34
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
29 mars 2023
Modifié le 9 juin 2021 à 21:30
Modifié le 9 juin 2021 à 21:30
Bonsoir Le Pingou,
Voici le lien avec donc mon problème est de lancer des macros d'un fichier sur un autre :
https://www.cjoint.com/c/KFjtvNUYmqx
Voici le lien avec donc mon problème est de lancer des macros d'un fichier sur un autre :
https://www.cjoint.com/c/KFjtvNUYmqx
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
>
Druddy
Messages postés
34
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
29 mars 2023
Modifié le 10 juin 2021 à 13:34
Modifié le 10 juin 2021 à 13:34
Bonjour,
Merci, il ne s'agit pas d'un exemple Excel (classeur) , de ce fait je ne peux rien faire avec votre schéma.
Je ne vais pas refaire un classeur en essayant de le construire selon votre schéma.
je pense qu'il vous faut voir avec JB22 (poste 6).
Désolé.
Salutations.
Le Pingou
Merci, il ne s'agit pas d'un exemple Excel (classeur) , de ce fait je ne peux rien faire avec votre schéma.
Je ne vais pas refaire un classeur en essayant de le construire selon votre schéma.
je pense qu'il vous faut voir avec JB22 (poste 6).
Désolé.
Salutations.
Le Pingou
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
>
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
Modifié le 10 juin 2021 à 15:30
Modifié le 10 juin 2021 à 15:30
JB22
>
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
12 juin 2021 à 09:59
12 juin 2021 à 09:59
Druddy a marqué son post comme "RESOLU"; mais il ne dit rien de la solution adoptée;
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
>
JB22
12 juin 2021 à 10:24
12 juin 2021 à 10:24
Bonjour,
Eh oui tout le monde n'est pas bienséant. Il vos mieux rien attendre en retour.
Salutations.
Le Pingou
Eh oui tout le monde n'est pas bienséant. Il vos mieux rien attendre en retour.
Salutations.
Le Pingou
Bonjour,
Comme vous j' ai un classeur contenant différentes feuilles avec des boutons activant des macros.
Dans une feuille de ce classeur j' ai un bouton qui effectue une copie d' une feuille et qui demande de fournir différentes informations qui servirons à nommer la feuille, la macro effectue ensuite les autres opérations
Dans une autre feuille du classeur principal j' ai un autre bouton qui active une autre macro qui fait une copie du classeur et demande de lui attribuer un nom.
Dans toutes les copies les boutons apparaissent ils sont donc opérationnels.
A vous de voir si vous pouvez adapter mes procédures à votre problème
CDT
JB22
Comme vous j' ai un classeur contenant différentes feuilles avec des boutons activant des macros.
Dans une feuille de ce classeur j' ai un bouton qui effectue une copie d' une feuille et qui demande de fournir différentes informations qui servirons à nommer la feuille, la macro effectue ensuite les autres opérations
Dans une autre feuille du classeur principal j' ai un autre bouton qui active une autre macro qui fait une copie du classeur et demande de lui attribuer un nom.
Dans toutes les copies les boutons apparaissent ils sont donc opérationnels.
A vous de voir si vous pouvez adapter mes procédures à votre problème
CDT
JB22
8 juin 2021 à 23:15
Tout d'abord merci pour l'attention de mon cas.
Voilà le détail :
J'ai un classeur global avec des tcd.
Pour l'alimenter en datas, je dois faire une extraction via un outil de ticketing qui génère un fichier Num.xls (ex : 57834027.xls)
J'ai créé des macros pour "travailler" ce fichier (suppression de colonnes inutiles, renommer des colonnes, faire un calcul sur une colonne (format heure).
Ces données devront être injectées dans une feuille Datas de mon classeur global (avec redéfinition de la plage de données pour être prise en compte dans les TCD.
Afin de partager ce fichier, j'aimerais créer un onglet "Notice" dans le fichier global afin d'indiquer ce qu'il faut faire, lancer les différentes macros pour formater les données de l'extraction et les rajouter dans l'onglet Datas pour mettre à jour les TCD (via des boutons) .
J'ai déjà les différentes macros et il me reste qu'à harmoniser tout ça :
A EXECUTER SUR FICHIER D'EXTRACTION
'*******************************************
'Suppression des colonnes fichier SLA
'*******************************************
Sub DeletecolonnesSLA()
Columns("BT:BK").Delete Shift:=xlToLeft
Columns("BI:BI").Delete Shift:=xlToLeft
Columns("BF:BF").Delete Shift:=xlToLeft
Columns("BB:AN").Delete Shift:=xlToLeft
Columns("AJ:V").Delete Shift:=xlToLeft
Columns("S:P").Delete Shift:=xlToLeft
Columns("M:K").Delete Shift:=xlToLeft
Columns("I:F").Delete Shift:=xlToLeft
Rows("1:2").Delete Shift:=xlUp
Range("A1").Select
End Sub
A EXECUTER SUR FICHIER D'EXTRACTION
'*******************************************
' RenommeM1Changes Macro
'*******************************************
Sub RenommeM1Changes()
Range("M1").Select
Selection.ClearContents
Range("M1").Select
ActiveCell.FormulaR1C1 = "Dépassement"
Range("A1").Select
End Sub
<gras>A EXECUTER SUR FICHIER D'EXTRACTION</gras
'*******************************************
' CalculDépassementChange Macro
'*******************************************
Sub CalculDépassementChange()
deli = Range("K" & Rows.Count).End(xlUp).Row
Range("M2").FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("M2").AutoFill Destination:=Range("M2:M" & deli)
Range("M2:M" & deli).Select
End Sub
<gras>A EXECUTER SUR FICHIER D'EXTRACTION</gras
'*******************************************
' Suppression dernier Enregistrement d'une colonne
'*******************************************
Sub SupDerEnregD1Col()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & lifin).ClearContents
End Sub
<gras>A EXECUTER SUR FICHIER GLOBAL</gras
'Récupérations des données
'********************************************************
option explicit
sub RecupereDataFichier()
'********************Déclaration des variables**************************
Dim ListeFichier as variant
Dim MonClasseur as workbook
'*****On désactive le presse papier et le raffraichissement de l'écran***
Application.cutcopymode=false
Application.screenupdating=false
'*********************On efface les anciennes données*****************
Activesheet.range ("A2").currentregion.clear
ChDir "C:\Users\Name\Downloads" 'te place dans le répertoire "C:\Users\CDURRIEU\Downloads"
'Affiche la boîte de dialogue Ouvrir
'******************On récupère le fichier de données à copier************
ListeFichier=application.getopenfilename(title:="sélectionnez votre fichier",filefilter:="fichiers excel(*.xls*),*xls*",buttontext:="Cliquez")
'****************************Prévoir le cas du bouton Annuler************
if ListeFichier <> false then
'********************On affecte le fichier sélectionné*******************
set Monclasseur=Application.workbooks.open(ListeFichier)
'****On copie les données de la feuille 1 du classeur sélectionné*******
MonClasseur.sheets(1).range("A1").currentregion.copy
'****************On colle les données dans la feuille active*************
thisworkbook.activesheet.range("A1").pastespecial xlpastevalues
'*********On désactive les messages d'alerte de Microsoft*************
application.displatalerts=false
'***************************On ferme le classeur source****************
MonClasseur.close
End if
'*******On réactive le presse papier et le rafraîchissement de l'écran*****
Application.cutcopymode=true
Application.screenupdating=true
End sub
Il me manque la définition de la plage de données pour les TCD à l'issue et la nommer à chaque fois en "DatSLAGéné__3".
J'espère avoir été assez clair dans ce que je voudrais obtenir comme résultat.
Merci
Druddy