Condition sur planning

Bonjour,

Je travaille pour plusieurs entreprises et leur transmets un planning de mes disponibilités chaque semaine. Il est basique: ligne jour de la semaine et en dessous les jours du mois correspondant. Ma cellule reste sans couleur quand je suis disponible et passe en rouge quand je ne le suis plus, j’intègre le nom de l'entreprise quand la journée est pour celle-ci.

J'ai trouvé une macro qui me convient pour copier, un planning général que je modifie, sur tous les autres plannings. Mon pb est que je n'arrive pas à y intégrer une condition me permettant de copier que le nom de l'entreprise sur son planning respectif sans que le nom des autres entreprises apparaissent. J'aimerai que ne soit copier que la date de la cellule, son format et sa couleur sans le nom des autres entreprises.

Mon code ci-dessous:

Sub maj_planning()

Workbooks("Planning général.xlsm").Sheets("Feuil1").Range("A1:I39").Copy
With Workbooks("Planning Nom de l'entreprise 1.xlsm").Sheets("Feuil1").Range("A1:I39")
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial Paste:=xlPasteFormats
    .Application.CutCopyMode = False
    End With
Workbooks("Planning général.xlsm").Sheets("Feuil1").Range("A1:I39").Copy
With Workbooks("Planning Nom de l'entreprise 2.xlsm").Sheets("Feuil1").Range("A1:I39")
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial Paste:=xlPasteFormats
    .Application.CutCopyMode = False
    End With
End Sub

Merci d'avance pour vos éclaircissements.

Bonjour

Si tu veux avoir plus de chances d'obtenir de l'aide, tu devrais fournir un fichier dans lequel tu indiques (avec exemple) ce que tu veux obtenir

Bonjour Banzai64,

ci joint un zip expliquant ce que j'aimerais.

Merci.

Bonjour

A voir

Merci Benzai64,

j'ai essayé d'adapter ta macro aux différentes entreprises mais rien ne se passe. J'ai bien le message terminé de la fin de la macro.

Je modifie le planning général en changeant la couleur de fond de la cellule ou en y mettant le nom d'une entreprise mais aucune copie ne se fait dans les autres feuilles. Toutes les feuilles planning des différentes entreprises sont ouvertes quand j'utilise la macro.

Mon but est de garder à jour ce planning général avec toutes les entreprises et de copier automatiquement sur chaque planning personnel de chaque entreprise les infos: jours disponibles, jours non disponible et jours réservés pour la dite entreprise.

Ma première macro copiait exactement ce qu'il y avait sur le planning général sur les différentes feuilles respectives mais j'aimerais que les jours réservés à chaque entreprise apparaissent sur leur planning respectif et que les autres jours apparaissent seulement comme non disponible (parce que réservé par une autre entreprise) ou disponible si je n'ai rein.

J'espère avoir pu, mieux expliquer, ce que je voulais.

Encore merci, je débute en VBA et j’apprends au fur et à mesure.

Bonjour

Comme indiqué dans le fichier

Création dans le même répertoire que celui de ce fichier, de fichiers aux nom de l'entreprise

Attention les Noms des entreprises sont E.1 et E.2 (à modifier dans la macro)

A tu regardé dans le répertoire ?

Tu dois avoir 2 fichiers supplémentaires E.1.xlsx et E.2.xlsx

Excuses moi, j'avais pas bien compris ce que tu avais écrit. Le résultat est au dessus de mes espérances. Encore plus automatique que ce que je voulais.

Un grand merci à toi.

Je vais chercher maintenant pour automatiser l'envoi par mail pour chaque entreprise. Je me permettrai de poster si je vois que j'ai un problème.

D'une efficacité ce forum.

A bientôt.

Bonsoir,

Je reviens sur le forum suite à mes recherches infructueuses.

Voilà ce que j'aimerais dans cette macro (si possible):

Je voudrais joindre automatiquement chaque planning (fichier excel) à chaque destinataire (1 ou plusieurs destinataires par planning), en y intégrant l'objet: planning, un texte en comic sans ms et en couleur.

L'idée serait d'ouvrir les mails mais pas de les envoyer en automatique. Je voudrais pouvoir modifier, parfois, le texte avant l'envoi et surtout vérifier que la bonne pj est avec les bons destinataires.

Merci à vous.

PS: la maj de mon planning est un vrai bonheur maintenant avec la macro précédente.

Bonsoir

Comme je n'y connais rien pour l'envoie des mails

Je te conseille de clore ce post et d'en ouvrir un autre

Tu auras plus de chance (j'espère pour toi) d'avoir une solution

N'oublies pas de joindre le/les fichier(s)

Merci, j'essaie ça.