Bonjour j'ai un probleme je veux creer une macro qui enregistre
automatiquement a la fermeture d'un classeur ce dernier sur un Cd-rw en
lançant la gravure automatiquement et en me demandant d'inserer le cd si ce
n'est pas fais
Merci pour votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RCR
Hello,
Question connais tu un peut VB ou pas du tout ? ...
Pour moi ... Si tu veut travailler sur un CD-RW tu devras peut être utilisé In-CD ça serra plus façile, si non tu devra t'amuser avec des ActiveX !!!
Pour le reste voila une petite bricole qui devrais marché.
Private Sub Workbook_BeforeClose(Cancel As Boolean) ' évenement avant fermeture
On Error GoTo Err_SAVE ' Gère l'erreur si on ne trouve pas le chemin Application.SaveWorkspace ("<CD-RW>:Nom_de_fichier") ' Sauve le classeur sur le CD-RW
Exit Sub ' si tout ce passe bien, on quitte le SUB
Err_SAVE:
MsgBox "Vous n'avez pas insèrer le CD" ' on suppose qu'il n'a pas trouver le CD (ça serrait bien de récupérer le message d'erreur également !!!)
End Sub
Voila ... J'espère que ça va t'aider ... Bonne journée ...
"ruf64" a écrit dans le message de news:
Bonjour j'ai un probleme je veux creer une macro qui enregistre automatiquement a la fermeture d'un classeur ce dernier sur un Cd-rw en lançant la gravure automatiquement et en me demandant d'inserer le cd si ce n'est pas fais Merci pour votre aide
Hello,
Question connais tu un peut VB ou pas du tout ? ...
Pour moi ... Si tu veut travailler sur un CD-RW tu devras peut être utilisé
In-CD ça serra plus façile, si non tu devra t'amuser avec des ActiveX !!!
Pour le reste voila une petite bricole qui devrais marché.
Private Sub Workbook_BeforeClose(Cancel As Boolean) ' évenement avant
fermeture
On Error GoTo Err_SAVE ' Gère l'erreur si on ne trouve pas le chemin
Application.SaveWorkspace ("<CD-RW>:Nom_de_fichier") ' Sauve le classeur
sur le CD-RW
Exit Sub ' si tout ce passe bien, on quitte le SUB
Err_SAVE:
MsgBox "Vous n'avez pas insèrer le CD" ' on suppose qu'il n'a pas trouver le
CD (ça serrait bien de récupérer le message d'erreur également !!!)
End Sub
Voila ... J'espère que ça va t'aider ... Bonne journée ...
"ruf64" <ruf64@discussions.microsoft.com> a écrit dans le message de news:
C96044AB-5CBA-432B-B079-FD60AE31399E@microsoft.com...
Bonjour j'ai un probleme je veux creer une macro qui enregistre
automatiquement a la fermeture d'un classeur ce dernier sur un Cd-rw en
lançant la gravure automatiquement et en me demandant d'inserer le cd si
ce
n'est pas fais
Merci pour votre aide
Question connais tu un peut VB ou pas du tout ? ...
Pour moi ... Si tu veut travailler sur un CD-RW tu devras peut être utilisé In-CD ça serra plus façile, si non tu devra t'amuser avec des ActiveX !!!
Pour le reste voila une petite bricole qui devrais marché.
Private Sub Workbook_BeforeClose(Cancel As Boolean) ' évenement avant fermeture
On Error GoTo Err_SAVE ' Gère l'erreur si on ne trouve pas le chemin Application.SaveWorkspace ("<CD-RW>:Nom_de_fichier") ' Sauve le classeur sur le CD-RW
Exit Sub ' si tout ce passe bien, on quitte le SUB
Err_SAVE:
MsgBox "Vous n'avez pas insèrer le CD" ' on suppose qu'il n'a pas trouver le CD (ça serrait bien de récupérer le message d'erreur également !!!)
End Sub
Voila ... J'espère que ça va t'aider ... Bonne journée ...
"ruf64" a écrit dans le message de news:
Bonjour j'ai un probleme je veux creer une macro qui enregistre automatiquement a la fermeture d'un classeur ce dernier sur un Cd-rw en lançant la gravure automatiquement et en me demandant d'inserer le cd si ce n'est pas fais Merci pour votre aide
