Ajout d'un bouton pour récupérer données d'un fichier externe
Kivanc
Messages postés
390
Date d'inscription
Statut
Membre
Dernière intervention
-
Kivanc Messages postés 390 Date d'inscription Statut Membre Dernière intervention -
Kivanc Messages postés 390 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je fais appel à votre amabilité et connaissance éventuelle en VBA pour m'aider à ajouter un bouton à ma macro.
A la base j'ai 3 fichiers :
Je souhaiterai ajouter un bouton dans ma macro du même type que le deuxième « indiquer le fichier stocks » `qui alimente la colonne Ventes de mon fichier cadencier à partir de Qté Unités colonne L du fichier »SUM( [FLDC-Qté unites] ) »). Cette fois-ci je veux aller chercher un fichier Commandes prendre la colonne U « Arr. Intégrées » du fichier «fichier_alim_CMD »(dossier test macro) et la coller dans le fichier nommé Cadencier à la colonne CMD.
J'ai tout d'abord dans excel recopié la partie pour aller chercher le fichier créer le bouton et je l'ai affecté à une nouvelle macro « Sub CommandButton3_Click() »
Ensuite dans le code j'ai cherché à peu près tout le code ou y avait stock dedans et je l'ai recopié pour « commandes » en changeant le nom de toutes les variables...
PS: quand on appuie sur le bouton mettre a jour le cadencier ça marche ça alimente la colonne ventes. Mais mon bouton CMD ne marche pas... par contre avant d'appuyer sur mettre a jour faut qu'il y ait que la macro d'ouverte sur le pc.
Le dossier ci-joint contient donc : le cadencier, la macro de base, la macro test (contenant le code que j'ai ajouté qui se trouve entre des commentaires `TEST Bouton & `end test bouton pour pouvoir se repérer facilement ; le fichier pour alimenter les stocks avec le 2ème bouton et celui pour alimenter les commandes (nouveau bouton).
... je n'ai fait que reprendre la méthode de création du bouton 2. Je pense avoir fait le plus gros mais n'ayant que des connaissances très basiques de VBA, je suis incapable de rectifier.
Voici tous les fichiers :
https://www.cjoint.com/c/EDwleLoGB1Z
Merci par avance et bonne journée.
Je fais appel à votre amabilité et connaissance éventuelle en VBA pour m'aider à ajouter un bouton à ma macro.
A la base j'ai 3 fichiers :
- Un premier nommé « cadencier » contenant tous mes articles reconnu par un code IFLS colonne J
- Une macro « Macro alim cadencier » qui permet de récupérer des fichiers sur mon disque dur et d'alimenter la colonne Ventes du cadencier aves les boutons
- Le fichier contenant les données qui vont être intégré dans le cadencier grâce à la macro : « fichier_pour_alim_ventes »
Je souhaiterai ajouter un bouton dans ma macro du même type que le deuxième « indiquer le fichier stocks » `qui alimente la colonne Ventes de mon fichier cadencier à partir de Qté Unités colonne L du fichier »SUM( [FLDC-Qté unites] ) »). Cette fois-ci je veux aller chercher un fichier Commandes prendre la colonne U « Arr. Intégrées » du fichier «fichier_alim_CMD »(dossier test macro) et la coller dans le fichier nommé Cadencier à la colonne CMD.
J'ai tout d'abord dans excel recopié la partie pour aller chercher le fichier créer le bouton et je l'ai affecté à une nouvelle macro « Sub CommandButton3_Click() »
Ensuite dans le code j'ai cherché à peu près tout le code ou y avait stock dedans et je l'ai recopié pour « commandes » en changeant le nom de toutes les variables...
PS: quand on appuie sur le bouton mettre a jour le cadencier ça marche ça alimente la colonne ventes. Mais mon bouton CMD ne marche pas... par contre avant d'appuyer sur mettre a jour faut qu'il y ait que la macro d'ouverte sur le pc.
Le dossier ci-joint contient donc : le cadencier, la macro de base, la macro test (contenant le code que j'ai ajouté qui se trouve entre des commentaires `TEST Bouton & `end test bouton pour pouvoir se repérer facilement ; le fichier pour alimenter les stocks avec le 2ème bouton et celui pour alimenter les commandes (nouveau bouton).
... je n'ai fait que reprendre la méthode de création du bouton 2. Je pense avoir fait le plus gros mais n'ayant que des connaissances très basiques de VBA, je suis incapable de rectifier.
Voici tous les fichiers :
https://www.cjoint.com/c/EDwleLoGB1Z
Merci par avance et bonne journée.
A voir également:
- Ajout d'un bouton pour récupérer données d'un fichier externe
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Fichier rar - Guide
305 réponses
Pourquoi est-ce que le x ne marche plus qu'avec cet article ? Sincèrement j'aimerai éviter de changer le code... car j'ai plusieurs macros.
Et puis c'était plus pratique la croix quand la ligne n'est pas à jour car repérable plus facilement
Et puis c'était plus pratique la croix quand la ligne n'est pas à jour car repérable plus facilement
Re,
https://www.cjoint.com/c/EGynix3JoWf
j'ai suivi en pas a pas le code IFLS dont vous dites que la mise a jour ne se fait pas, elle se fait comme les autres codes IFLS jusqu'au 07/08. Les nombres ecrits dans les cellules proviennent bien de calcul prevision.
Que voulez-vous de plus ???????????????
https://www.cjoint.com/c/EGynix3JoWf
j'ai suivi en pas a pas le code IFLS dont vous dites que la mise a jour ne se fait pas, elle se fait comme les autres codes IFLS jusqu'au 07/08. Les nombres ecrits dans les cellules proviennent bien de calcul prevision.
Que voulez-vous de plus ???????????????
Excusez moi mais de mon côté il y a un réel problème avec cette ligne là
SVP refaites la même manip que moi avec ces fichiers:
https://www.cjoint.com/c/EGynZWTeqfm
Mise à jour du jour et vous verrez la croix apparait ligne 369. La vente n'est pas mise à jour ! alors que dans commentaires maj ok apparait.
SVP refaites la même manip que moi avec ces fichiers:
https://www.cjoint.com/c/EGynZWTeqfm
Mise à jour du jour et vous verrez la croix apparait ligne 369. La vente n'est pas mise à jour ! alors que dans commentaires maj ok apparait.
Re,
Les fichiers CadencierChristophe ne sont pas les memes(le code IFLS en question est a la ligne 30 pour l'un et 369 pour l'autre ( a priori pas d'importance, mais ...) et le fichier que vous utilisez pour les mises a jour ,Macro cadencier AB LENS 6 mai, n'est pas le meme que celui que j'utilise (derniere modifs du 25/06) Macro_cadencier_Bain_Rheu_Mans_Carpi
Donc, je veux bien regarder cette fois-ci ce qui ne va pas, mais a vous d'utiliser les fichiers des dernieres modifs
Les fichiers CadencierChristophe ne sont pas les memes(le code IFLS en question est a la ligne 30 pour l'un et 369 pour l'autre ( a priori pas d'importance, mais ...) et le fichier que vous utilisez pour les mises a jour ,Macro cadencier AB LENS 6 mai, n'est pas le meme que celui que j'utilise (derniere modifs du 25/06) Macro_cadencier_Bain_Rheu_Mans_Carpi
Donc, je veux bien regarder cette fois-ci ce qui ne va pas, mais a vous d'utiliser les fichiers des dernieres modifs
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Pas un probleme de fichier de mise a jour,
vous avez DEUX FOIS LED MEME CODE IFLS 831583 dans votre cadencier
Pas un probleme de fichier de mise a jour,
vous avez DEUX FOIS LED MEME CODE IFLS 831583 dans votre cadencier
Bonjour,
Gros problème sur mon fichier cadencier : Je n'arrive plus à fermer ni ouvrir mes (grouper/dissocier). Ni à utliser la mise en forme conditionnelle...
Voici le fichier : https://www.cjoint.com/c/EHfmHQwfcim
Merci par avance.
Gros problème sur mon fichier cadencier : Je n'arrive plus à fermer ni ouvrir mes (grouper/dissocier). Ni à utliser la mise en forme conditionnelle...
Voici le fichier : https://www.cjoint.com/c/EHfmHQwfcim
Merci par avance.
Bonjour,
J'ai un gros problème avec un de mes fichiers : impossible de faire un copier coller depuis des semaines. Message d'erreur: "La sélection est trop grande".
J'ai pourtant copier-coller en valeurs, arranger la mise en forme confitionnelle... je ne trouve pas de solution.
C'est très embêtant étant donné qu'il y'a sans cesse des nouveaux produits à ajouter : un bloc de 5 lignes avec les formules ...
Ce que je faisais avant c'est que j'avais toujours unj bloc de ligne vierge avec des formules que je copiais coller mais là ça n'est plus possible.
Voici le fichier : https://www.cjoint.com/c/EHsoMQhkRvn
Pouvez-vous voir svp?
merci
J'ai un gros problème avec un de mes fichiers : impossible de faire un copier coller depuis des semaines. Message d'erreur: "La sélection est trop grande".
J'ai pourtant copier-coller en valeurs, arranger la mise en forme confitionnelle... je ne trouve pas de solution.
C'est très embêtant étant donné qu'il y'a sans cesse des nouveaux produits à ajouter : un bloc de 5 lignes avec les formules ...
Ce que je faisais avant c'est que j'avais toujours unj bloc de ligne vierge avec des formules que je copiais coller mais là ça n'est plus possible.
Voici le fichier : https://www.cjoint.com/c/EHsoMQhkRvn
Pouvez-vous voir svp?
merci
Bonjour,
J'ai fait du copier/coller, du copier/Inserer cellules copier et pas de probleme !!
https://www.cjoint.com/c/EHspqXftr6f
J'ai fait du copier/coller, du copier/Inserer cellules copier et pas de probleme !!
https://www.cjoint.com/c/EHspqXftr6f
Bonjour,
Oui dans votre fichier il n'y a plus les mises en forme conditionnelle sur les colonnes A et stock.
J'ai essayé de les remettre mais malgré que les cellules soient bien nommées les premières colonnes (19 aout) ne sont pas prises en compte
Voici le fichier :
https://www.cjoint.com/c/EHtgSLiLp8n
Oui dans votre fichier il n'y a plus les mises en forme conditionnelle sur les colonnes A et stock.
J'ai essayé de les remettre mais malgré que les cellules soient bien nommées les premières colonnes (19 aout) ne sont pas prises en compte
Voici le fichier :
https://www.cjoint.com/c/EHtgSLiLp8n
Bonjour,
ai supprime les lignes sans mise en forme et fait un copier/coller de lignes avec mise en forme: https://www.cjoint.com/c/EHthP1UNMtf
Normalement je devais faire un bouton pour cette duplication, mais je vois que vous n'utilisez deja pas le fichier qui permet de dupliquer des semaines ....
ai supprime les lignes sans mise en forme et fait un copier/coller de lignes avec mise en forme: https://www.cjoint.com/c/EHthP1UNMtf
Normalement je devais faire un bouton pour cette duplication, mais je vois que vous n'utilisez deja pas le fichier qui permet de dupliquer des semaines ....
Bonjour!
Encore un problème aujourd'hui à la mise à jour d'un cadencier ! (pas de problème pour tous les autres).
ERREUR: Dépassement de capacité.
Je pensais que ça venait du fait que le fichier est peut être trop lourd j'ai copié collé en valeurs... mais toujours la même erreur !
Pouvez vous voir svp : https://www.cjoint.com/c/EHvihwsF64m
merci bcp
Encore un problème aujourd'hui à la mise à jour d'un cadencier ! (pas de problème pour tous les autres).
ERREUR: Dépassement de capacité.
Je pensais que ça venait du fait que le fichier est peut être trop lourd j'ai copié collé en valeurs... mais toujours la même erreur !
Pouvez vous voir svp : https://www.cjoint.com/c/EHvihwsF64m
merci bcp
Bonjour,
Je reviens vers vous svp. Je suis en train de créer de nouveaux cadenciers j'ai repris le même modèle que j'avais pour la structure les colonnes... En essayant de créer un historique (j'ai d'abord alimenté les colonnes VENTES manuellement), j'ai essayé d'alimenter avec la macro mais j'ai une erreur incompatibilité de type. Je ne trouve pas l'erreur...
Je vous mets à dispo le nouveau cadencier + le fichier pour alimenter les sorties. De plus, autre question : est-il nécessaire de mettre les formules dans les colonnes A ou est-ce que la macro les met automatiquement ?
https://www.cjoint.com/c/EIwnLGyyw4m
https://www.cjoint.com/c/EIwnMqtF1xm
Merci par avance.
Je reviens vers vous svp. Je suis en train de créer de nouveaux cadenciers j'ai repris le même modèle que j'avais pour la structure les colonnes... En essayant de créer un historique (j'ai d'abord alimenté les colonnes VENTES manuellement), j'ai essayé d'alimenter avec la macro mais j'ai une erreur incompatibilité de type. Je ne trouve pas l'erreur...
Je vous mets à dispo le nouveau cadencier + le fichier pour alimenter les sorties. De plus, autre question : est-il nécessaire de mettre les formules dans les colonnes A ou est-ce que la macro les met automatiquement ?
https://www.cjoint.com/c/EIwnLGyyw4m
https://www.cjoint.com/c/EIwnMqtF1xm
Merci par avance.
Bonjour,
Je reviens vers vous car je suis actuellement coincée. En période de fêtes exceptionnellement nous allons devoir travailler un dimanche et donc ajouter au cadencier (ci-joint comme exemple) la journée du dimanche 20 décembre. Or la macro est il me semble configurée pour fonctionner avec seulement 6 jours par semaine ? Il est prévu d’ajouter au tableau poids des jours une valeur pour le dimanche. Quelles sont les autres modifs à faire ? De plus, est-ce possible de n’ajouter que le dimanche 20 et toutes les autres semaines resteront à 6 jours du lundi au samedi ,
Merci par avance pour votre aide
Voici un cadencier : https://www.cjoint.com/c/ELhpIMpYqjn
La macro de mise à jour : https://www.cjoint.com/c/ELhpJi0Wx7n
Et le fichier d'alimentation des sorties : https://www.cjoint.com/c/ELhpKcq1vxn
Je reviens vers vous car je suis actuellement coincée. En période de fêtes exceptionnellement nous allons devoir travailler un dimanche et donc ajouter au cadencier (ci-joint comme exemple) la journée du dimanche 20 décembre. Or la macro est il me semble configurée pour fonctionner avec seulement 6 jours par semaine ? Il est prévu d’ajouter au tableau poids des jours une valeur pour le dimanche. Quelles sont les autres modifs à faire ? De plus, est-ce possible de n’ajouter que le dimanche 20 et toutes les autres semaines resteront à 6 jours du lundi au samedi ,
Merci par avance pour votre aide
Voici un cadencier : https://www.cjoint.com/c/ELhpIMpYqjn
La macro de mise à jour : https://www.cjoint.com/c/ELhpJi0Wx7n
Et le fichier d'alimentation des sorties : https://www.cjoint.com/c/ELhpKcq1vxn
Bonjour,
Merci pour votre réponse. J’ai un peu avancé sur le sujet : dans l’onglet paramètres j’ai modifié la plage de cellules nommée Poids des jours (pour qu’elle prenne en compte le dimanche ajouté). Dans le code j’ai également modifié les coordonnées de cellules pour les nombres de jours pris en compte pour la prev (vu que j’ai ajouté une ligne dans l’onglet paramètres.)
Maintenant j’ai une erreur 400 du surement au dimanche 20 ajouté.
Voici la macro modifiée : https://www.cjoint.com/c/ELihQLjCKVm
Merci par avance pour votre aide.
Merci pour votre réponse. J’ai un peu avancé sur le sujet : dans l’onglet paramètres j’ai modifié la plage de cellules nommée Poids des jours (pour qu’elle prenne en compte le dimanche ajouté). Dans le code j’ai également modifié les coordonnées de cellules pour les nombres de jours pris en compte pour la prev (vu que j’ai ajouté une ligne dans l’onglet paramètres.)
Maintenant j’ai une erreur 400 du surement au dimanche 20 ajouté.
Voici la macro modifiée : https://www.cjoint.com/c/ELihQLjCKVm
Merci par avance pour votre aide.
Re,
Si ça peut vous aider : je pense que le blocage se fait au niveau du calcul de la prevision.
En enlevant le bloc de la feuille6 (MaJ_Cadencier) suivant :
Si ça peut vous aider : je pense que le blocage se fait au niveau du calcul de la prevision.
En enlevant le bloc de la feuille6 (MaJ_Cadencier) suivant :
'Mise à jour des prévisionLes sorties ont été mises à jour même si un seul dimanche est présent dans le cadencier.
Ligne_Ref = Ligne
'Calcul des prévisions
Col_Prev = Colonne
Somme_Ref = -1 'Initialisé à -1 pour indiquer que la somme des sorties de la période de référence n'a pas encore été calculée [V6]
For I_Prev = 1 To Nombre_jours_prev 'on alimente la prévision pour le nombre de jours glissants paramétré
IPNCJ = I_Prev * Nombre_Colonne_Jour
'Prevision = Round(Calcul_Prevision(MFMP, MFC, Ligne_Ref, Col_Prev + (IPNCJ), Jour_Ferie, Nombre_Colonne_Jour, Somme_Ref), 0) '[V6]
Prevision = Calcul_Prevision(MFMP, MFC, Ligne_Ref, Col_Prev + (IPNCJ), Jour_Ferie, Nombre_Colonne_Jour, Somme_Ref) '[V6]
If Prevision < 1 Then Prevision = 0 Else Prevision = Round(Prevision, 0) '[V7] End If
MFC.Cells(Ligne, Col_Prev + 3 + (IPNCJ)) = Prevision
'Alerte pour le stock J+2 a J+6
If (I_Prev >= 2 And I_Prev <= 6) Then
'Format Anglais
MFC.Cells(Ligne, Col_Prev + (IPNCJ) + 1).Formula = Alerte_Stock(MFMP, MFC, Ligne_Ref, Col_Prev + (IPNCJ), Col_Sensibilite)
End If
If (I_Prev = 1 Or I_Prev = 2) Then 'Alerte Tendance pour les prév J+1, J+2
If Alerte_Tendance(MFMP, MFC, Ligne_Ref, Colonne, Nombre_Colonne_Jour) Then
'changement du format de la cellule
MFC.Cells(Ligne, Col_Prev + 3 + (IPNCJ)).Borders.Weight = 4 'Epaisseur de la bordure
MFC.Cells(Ligne, Col_Prev + 3 + (IPNCJ)).Borders.Color = RGB(255, 0, 0) 'Couleur de la bordure : rouge
End If
End If
Next I_Prev
'Fin mise à jour des prévisions
Je ne vois pas dans le code où est le parameter n'indiquant que 6 jours par semaine ?
J’ai modifié hier :
Nombre de jours glissants de référence pour le calcul de la prévision (20,9)
Nombre de jours glissants pour lesquels on calcule la prévision (21,9)
Nombre de jours glissants de référence pour le calcul de la prévision (20,9)
Nombre de jours glissants pour lesquels on calcule la prévision (21,9)
Re,
Ai trouve pour une partie: Dimanche------>1 pas 8, les jours de la semaine vont de 1 (dimanche) a 7 (Samedi) avec l'instruction WeekDay parametree par defaut et de 1 (Lundi) a 7(Dimanche) si parametre =2 voir:
https://www.techonthenet.com/excel/formulas/weekday.php
Ai trouve pour une partie: Dimanche------>1 pas 8, les jours de la semaine vont de 1 (dimanche) a 7 (Samedi) avec l'instruction WeekDay parametree par defaut et de 1 (Lundi) a 7(Dimanche) si parametre =2 voir:
https://www.techonthenet.com/excel/formulas/weekday.php
Comme je vous l'ai ecrit, le MJ est provisoire le temps de traiter votre soucis
Merci pou l' IFLS en defaut