nat54
XLDnaute Barbatruc
Bonjour,
J'aimerai pouvoir découper l'onglet base, selon l'onglet param, en s'arrêtant à la colonne W.
Dans ce fichier test on obtiendrait donc 3 fichiers avec 2 lignes complétées dans chaque fichier
Je souhaiterai que le fichier soit nommé ainsi
AAAA-MM-JJ_nom avec AAA-MM-JJ selon la date de l'envoi de la macro
exemple : 2025-10-22_RES 1.xlsx
Pourriez-vous m'aider ?
Merci d'avance,
J'ai commencé mais je ne sais pas comment sélectionner la plage
Dans un 2ème temps j'aimerai bien voir comment gérer un envoi par mail
Un fichier = un destinataire
Mais ça c'est facultatif, ce serait la cerise sur le gâteau
J'aimerai pouvoir découper l'onglet base, selon l'onglet param, en s'arrêtant à la colonne W.
Dans ce fichier test on obtiendrait donc 3 fichiers avec 2 lignes complétées dans chaque fichier
Je souhaiterai que le fichier soit nommé ainsi
AAAA-MM-JJ_nom avec AAA-MM-JJ selon la date de l'envoi de la macro
exemple : 2025-10-22_RES 1.xlsx
Pourriez-vous m'aider ?
Merci d'avance,
J'ai commencé mais je ne sais pas comment sélectionner la plage
Code:
Sub Créer_fichiers()
Application.ScreenUpdating = False 'ne pas voir ce qui se passe à l'écran, diminue besoin mémoire
For lgn = 1 To 12 'pour boucler sur les lignes 1 à 12
Sheets("param").Select 'on se place sur la feuille de référence
indic = Cells(lgn, 1).Value 'on variabilise, indic = cellule ligne de la boucle, colonne 1
Sheets("base").Select ''on se place sur la feuille où se trouve la BD
Next lgn ' on continue sur 2nd, 3èm.. indicateur (boucle)
Application.ScreenUpdating = True
End Sub
Dans un 2ème temps j'aimerai bien voir comment gérer un envoi par mail
Un fichier = un destinataire
Mais ça c'est facultatif, ce serait la cerise sur le gâteau