Bonjour à toutes et à tous,
Débutant en VBA je souhaite faire une macro qui me permettra d'enregistrer un classeur dans un dossier en vérifiant si un autre classeur n'y figure pas.
Voilà où je me suis arrêté malgré mes recherches et mes efforts :
Sub Enregistrement()
Nom_Fichier = 'O:\\DSPM_CTC_Macon\\02-Suivi_d'affaire\\2.0-Plannings\\Planning Services + Rotations MACON.xls'
If Dir(Nom_Fichier, vbNormal) = Nom_Fichier Then
MsgBox ('Pascal à déjà transmis son planning ' & 'Nom_Fichier' & Chr10 & 'en date du ' ???? & Chr10 & 'Voulez-vous l'écraser ?' & Chr10, vbYesNo + vbQuestion)
If Answer = vbYes Then Copie
If Answer = vbNo Then MsgBox 'Fichier non transmis sur DSPM !': Exit Sub
End If
End Sub
Je ne trouve pas non plus la formule pour récupérer la date du classeur et l'intégrer dans ma MsgBox et aussi pour mettre 'ATTENTION!' comme titre de MsgBox.
Merci, Lucien
Débutant en VBA je souhaite faire une macro qui me permettra d'enregistrer un classeur dans un dossier en vérifiant si un autre classeur n'y figure pas.
Voilà où je me suis arrêté malgré mes recherches et mes efforts :
Sub Enregistrement()
Nom_Fichier = 'O:\\DSPM_CTC_Macon\\02-Suivi_d'affaire\\2.0-Plannings\\Planning Services + Rotations MACON.xls'
If Dir(Nom_Fichier, vbNormal) = Nom_Fichier Then
MsgBox ('Pascal à déjà transmis son planning ' & 'Nom_Fichier' & Chr10 & 'en date du ' ???? & Chr10 & 'Voulez-vous l'écraser ?' & Chr10, vbYesNo + vbQuestion)
If Answer = vbYes Then Copie
If Answer = vbNo Then MsgBox 'Fichier non transmis sur DSPM !': Exit Sub
End If
End Sub
Je ne trouve pas non plus la formule pour récupérer la date du classeur et l'intégrer dans ma MsgBox et aussi pour mettre 'ATTENTION!' comme titre de MsgBox.
Merci, Lucien