Utiliser une macro sur des fichiers différents
Bonjour, je découvre le potentiel des macros mais étant débutant, je me suis rapidement trouvé bloqué.
J'ai créé ma première macro personnelle sur un fichier généré par un autre logiciel en csv.
Mais lorsque j'essaye de l'appliquer sur un qui ne porte pas le même nom, cela ne marche pas.
En effet, dans la macro il y a nom du fichier d'origine!
De plus, je n'arrive pas à insérer un formule qui récupère les données du nom du fichier dans le code de la macro.
Et pour terminer, la fonction "mettre sous forme de tableau" se fait sur une plage de cellules alors que la dimension de celui ci varie en fonction de la quantité de données.
Voici le liste des instructions:
Suppression de la colonne A
Trier par localisation puis GMV
Changer l'intitulé de la colonne A en Loc.
Supprimer la colonne unité de gestion
Mettre le code GEF en seconde colonne
Largeur de colonnes : A à 7, C à 30, D à 40 et E à 7
Renvoyer à la ligne automatiquement tout le tableau
Aligner tout le tableau au centre
Mettre sous forme de tableau clair 1 avec entête
Mettre en page avec marge haut, droite et gauche: 0.5; bas 1.5 et pied de page à 0.5
Pied de page: Page 1 de ?
Insérer une ligne au dessus du tableau et fusionner les 5 premières cellules
Mettre dans cette cellule la formule suivante pour récupérer les données du nom de fichier:
="Quantitées cumulées pour le service " & DROITE(GAUCHE(CELLULE("filename");NBCAR(CELLULE("filename"))-43);NBCAR(GAUCHE(CELLULE("filename");NBCAR(CELLULE("filename"))-43)))-(TROUVE("_";GAUCHE(CELLULE("filename");NBCAR(CELLULE("filename"))-43)))-5) & " du " & TEXTE(DATE(GAUCHE(GAUCHE(DROITE(CELLULE("filename");42);8);4);STXT(GAUCHE(DROITE(CELLULE("filename");42);8);5;2);DROITE(GAUCHE(DROITE(CELLULE("filename");42);8);2));"JJ/MM/AA") & " à " & TEXTE(GAUCHE(DROITE(CELLULE("filename");34);4);"00\:00") &" au " & TEXTE(DATE(GAUCHE(GAUCHE(DROITE(CELLULE("filename");29);8);4);STXT(GAUCHE(DROITE(CELLULE("filename");29);8);5;2);DROITE(GAUCHE(DROITE(CELLULE("filename");29);8);2));"JJ/MM/AA") & " à " & TEXTE(GAUCHE(DROITE(CELLULE("filename");21);4);"00\:00") & CAR(10)&" (calculé le " & TEXTE(DATE(GAUCHE(GAUCHE(DROITE(CELLULE("filename");16);8);4);STXT(GAUCHE(DROITE(CELLULE("filename");16);8);5;2);DROITE(GAUCHE(DROITE(CELLULE("filename");16);8);2));"JJ/MM/AA") & " à " & TEXTE(GAUCHE(DROITE(CELLULE("filename");8);4);"00\:00")&")"
Mettre le texte de cette cellule en gras et taille 14
Mettre la hauteur de cette ligne à 50
Je pense que l'enregistrement automatique a toute ses limites!
Désolé, je n'arrive pas à ajouter mes fichiers csv
Son nom est au format: CumulC_9193_C3ma_202110270000_202111020000_202110271529 (ce qui change c'est les dates et le C3ma)
Il ressemble à ça:
UF Localisation Libellé spé Libellé GMV Qté Unité de gestion Code Gef C3ma 1 zgzg tjqtj 10 comprimé 323 C3ma 1 qgqbqzrg qtj 36 comprimé 6165 C3ma 1 qrgqbsfb wdgj 20 comprimé 6538 C3ma 1 q qtj 30 gélule 5405 C3ma 1 bqfr tgjwdf 45 gélule 5417 C3ma 1 qbqfsbnqh njy 0 comprimé 4694 C3ma 1 hethjeh tkjy 70 comprimé 1203 C3ma 1 zrhzrh kty 20 comprimé 4619 C3ma 1 ZRHQFNBQ kls 30 comprimé 204 C3ma 1 QZRH kls 10 comprimé 6725 C3ma 1 QRZHBWF sykl 30 comprimé 6726 C3ma 1 HBQRZH skl 15 comprimé 6757 C3ma 1 BNQ wg, 6 comprimé 6717 C3ma 1 SRH ksy 20 comprimé 6947 C3ma 1 QRH kw 10 comprimé 4123 C3ma 1 QRH dg, 20 comprimé 6736 C3ma 1 QTRJHRY sryk 10 gélule 6728 C3ma 1 KJTU wdgx, 70 comprimé 3814 C3ma 1 QRH sykl 20 comprimé 5859 C3ma 1 NEBIVOLOL ARL 5MG CPR kwdg;, 80 comprimé 5860 C3ma ST rsxyk 12 comprimé
Un grand merci pour votre aide
Répondre avec citation
Partager