Modification code
Bonjour je souhaiterai modifie le code ci joint
Je voudrai que le dossier d'enregistrement soit
R:\SIGNALISATION\suivi matériel\Année\valeur de la cellule F1 de la feuille 2
et le noms du fichier valeur de la cellule P3 feuille 1 _ valeur de la cellule D15 feuille1
Pour les mails je voudrais que ça envoie a ton les contact lister dans la colonne F de la feuille 2
Je souhaiterai également que quand je clique sur le bouton ça lance une impression
Merci par avance
Sub enreg()
ActiveWorkbook.Save
Application.ScreenUpdating = False
Application.EnableEvents = True
Dim Chemin As String, Dossier As String, NFichier As String, Var1 As String, OutApp As Object, OutMail As Object
Var1 = Range("F2") & Sheets("Feuil2").Range("B2")
If Var1 = Empty Then Exit Sub
Dossier = "Fiche suivi matériel"
Chemin = Application.ActiveWorkbook.Path & "\" & Dossier & "\"
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin
NFichier = Chemin & Var1 & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFichier, Quality _
:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Envoi du mail
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("Feuil2").Range("C5").Value
.CC = Sheets("Feuil2").Range("C6").Value
.Attachments.Add (NFichier)
.Subject = "Fiche de suivi Matériel " & Sheets("Feuil1").Range("P3")
' .Display
.Send
End With
Set OutApp = Nothing
Set OutMail = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
MsgBox "Enregistrement et envoi effectué ..."
End SubBonjour corbin2
Je ne comprends pas votre demande
Vous utilisez des variables, donc continuez pour le reste... ce n'est pas ce qui est le plus compliqué
https://www.excel-pratique.com/fr/vba/variables
A+
Bonjour
En supplément à Bruno, à quoi correspond votre variable Annee ? A l'année en cours, mais pourquoi ne pas mettre l'année dans le nom de votre fichier plutot que de créer un dossier par année. C'est plus compliqué à suivre
Vous devriez expliquer la procédure que vous voulez faire. Serait-ce :
- sauver le fichier dans un répertoire
- Faire un PDF de la feuille ? si oui quelle feuille ?
- Envoyer par mail le PDF ?
Aussi évitez les accents et surtout les espaces avec VBA. Pensez toujours Anglais, cela évitera parfois des soucis.
je début sur Excel et j'ai récupérer un fichier code que je cherche a modifier.
Actuellement si j'ai bien compris le code la liste de diffusion sont écrite en C5 et C6 moi je voudrais que ça soit les adresses écrire dans la colonne H a la rigueur de la cellule H1 a H20
je voudrais que le chemin d'accès soit R:\SIGNALISATION\suivi matériel\2024\
avec le noms du fichier texte écrit dans la cellule P3 de la feuille .
Dan ça peut être la solution pour la sauvegarde.
SI tu veux l'opérateur clique sur un bouton et cela envoie le fichier en pdf et l'enregistre dans le dossier concerné. puis impression sur l'imprimante configué
voici le fichier
re
SI tu veux l'opérateur clique sur un bouton et cela envoie le fichier en pdf et l'enregistre dans le dossier concerné. puis impression sur l'imprimante configué
Hum c'est pas tout à fait ce que je vous ai expliqué. C'est la feuille 1 en PDF ou le fichier XLSM que vous voulez sauvegarder dans votre répertoire année
avec le noms du fichier texte écrit dans la cellule P3 de la feuille .
Avant vous écrivez qu'il faut aussi la cellule D15...
Rem :
VBA aime pas trop les fusions donc déjà dans votre feuille sur P3
- Défusionnez P3 à R3
Une fois fait, sélectionnez à nouveau P3 à R3
- Cliquez sur l'icone Format (dans le menu accueil) puis "Format de cellule"
- Cliquez sur l'onglet "Alignement"
- dans la liste déroulante "Horizontal", choisir "Centré sur plusieurs colonnes"
Edit : ne repostez pas le fichier faite juste les modifications et dites moi si ok pour vous