Bonjour,
je souhaite sauvegarder les fichiers d'activation de OFFICE 2003, pour
éventuelle réinstallation.
Je sais sauvegarder les fichiers d'activation de WIN XP, je ne trouve pas
l'emplacement de ceux de OFFICE 2003.
Merci de m'aider.
Salutations
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 ...
"james" a écrit dans le message de news:
Bonjour, je souhaite sauvegarder les fichiers d'activation de OFFICE 2003, pour éventuelle réinstallation. Je sais sauvegarder les fichiers d'activation de WIN XP, je ne trouve pas l'emplacement de ceux de OFFICE 2003. Merci de m'aider. Salutations
James
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 ...
"james" <james@discussions.microsoft.com> a écrit dans le message de news:
EC16EE4A-5043-44D3-B1A9-5CBCA5DD9E24@microsoft.com...
Bonjour,
je souhaite sauvegarder les fichiers d'activation de OFFICE 2003, pour
éventuelle réinstallation.
Je sais sauvegarder les fichiers d'activation de WIN XP, je ne trouve pas
l'emplacement de ceux de OFFICE 2003.
Merci de m'aider.
Salutations
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 ...
"james" a écrit dans le message de news:
Bonjour, je souhaite sauvegarder les fichiers d'activation de OFFICE 2003, pour éventuelle réinstallation. Je sais sauvegarder les fichiers d'activation de WIN XP, je ne trouve pas l'emplacement de ceux de OFFICE 2003. Merci de m'aider. Salutations
