word plante lors de l'enregistrement sur ma clef usb?

Le
sofia
bonjour
ma clef fonctionnait bien, puis voilà que lorsque je travaille sur un
document word sur mon ordinateur et que je veux l'enregistrer sur ma clef
usb, word plante il reste en enregistrement et m'interdit de faire autre
chose. J'ai pas le choix que de fermer word et alors une fenetre me demande
si je veux envoyer un message d'erreur que je dise oui ou non c'est pareil
j'ai pas de solution.
Si quelqu'un a le même problème que moi merci de m'aider.
je tiens à préciser que j'ai renommer ce fichier et que ça ne marche pas non
plus, par contre j'ai crée un doc sous excel et ça marche normalement!
merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
J. K.
Le #21167611
Bonjour, soir,
sofia a exprimé avec précision :

[..]
bonjour
ma clef fonctionnait bien, puis voilà que lorsque je travaille sur un
document word sur mon ordinateur et que je veux l'enregistrer sur ma
clef usb, word plante il reste en enregistrement et m'interdit de
faire autre chose. J'ai pas le choix que de fermer word et alors une
fenetre me demande si je veux envoyer un message d'erreur que je
dise oui ou non c'est pareil j'ai pas de solution.
Si quelqu'un a le même problème que moi merci de m'aider.
je tiens à préciser que j'ai renommer ce fichier et que ça ne marche
pas non plus, par contre j'ai crée un doc sous excel et ça marche
normalement! merci



Peut être que l'observateur d'événements donne des informations plus
précises.
Est-ce que la clef est formatée en ntfs ? Et puis si vous faites copier
?
Une autre possibilité, dans l'explorateur envoyer vers.
Renommer ce n'est peut être pas suffisant, c'est le format.
Ça fonctionne avec Excel, alors la clef est en bon état quoique l'on
peut en essayer une autre, on ne sait jamais.

--
Cordialement.
Jacques
michdenis
Le #21167741
Bonjour,

Je n'ai jamais tenté cette manœuvre, mais as-tu tenté
d'enregistrer ton document sur le DD et le copier par la
suite sur ta clef.
La problématique provient de la manière dont les documents
sont enregistrés. Le site proposé parle d'Excel, je suppose que
cela devrait être similaire pour Word.

http://support.microsoft.com/?id4068

Il doit y avoir moyen d'automatiser cela par macro...!
michdenis
Le #21167981
Si la chose t'intéresse, voici une macro pour automatiser la chose :

Il est présumé que tu n'as qu'un lecteur amovible de connecter
sinon il faudrait modifier quelque peu !

Tu as 2 variables à définir dans la macro "Test"
A ) Chemin où tu veux sauvegarder ton fichier sur ton disque amovible
B ) Chemin pour sauvegarde temporaire.

'-------------------------------------------
Sub test()
Dim MonFichier As String, Nom As String
Dim MonLecteur As String, Prêt As Boolean
Dim Repertoire As String, RepTem As String

'*******************************
'Répertoire où faire la sauvegarde sur le
'lecteur amovible. Ne pas inscrire le lecteur,
'seulement le chemin
Repertoire = "tototiti"

'Répertoire où se fera la sauvegarde temporaire
'avant de copier le fichier vers lecteur amovible
RepTem = "c:"
'*******************************************

MonLecteur = RemovableDisk(MonLecteur)
If MonLecteur <> "" Then
Prêt = EstPret(MonLecteur)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
Application.ScreenUpdating = False
'S'assurer que la sauvegarde des données
'récentes est faites
ActiveDocument.Save
'Création du répertoire si nécessaire
Creer_Chemin MonLecteur, Repertoire
'Récupération du nom du fichier actuel
Nom = ActiveDocument.Name

Application.Documents.Add ActiveDocument.FullName
'Sauvegarde du fichier ailleurs.
ActiveDocument.SaveAs RepTem & Nom
'Fermeture du document actif
ActiveDocument.Close

VBA.FileCopy RepTem & Nom, MonLecteur & Repertoire & Nom
'destruction du fichier temporaire
Kill RepTem & Nom
Application.ScreenUpdating = True
End Sub
'-------------------------------------------

Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function

'-------------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------





"michdenis"
Bonjour,

Je n'ai jamais tenté cette manœuvre, mais as-tu tenté
d'enregistrer ton document sur le DD et le copier par la
suite sur ta clef.
La problématique provient de la manière dont les documents
sont enregistrés. Le site proposé parle d'Excel, je suppose que
cela devrait être similaire pour Word.

http://support.microsoft.com/?id4068

Il doit y avoir moyen d'automatiser cela par macro...!
michdenis
Le #21168021
En supplément, tu pourrais automatiser l'exécution de la procédure test,
en insérant un module de classe dans ton document si l'enregistrement
sur un disque amovible ne s'adresse qu'à lui ou un module de classe
pour le modèle par défaut que tu utilises.
L'événement serait le suivant :

MonApp est une variable...
'------------------------------------------
Private Sub MonApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
'le code
End Sub
'------------------------------------------



"michdenis"
Si la chose t'intéresse, voici une macro pour automatiser la chose :

Il est présumé que tu n'as qu'un lecteur amovible de connecter
sinon il faudrait modifier quelque peu !

Tu as 2 variables à définir dans la macro "Test"
A ) Chemin où tu veux sauvegarder ton fichier sur ton disque amovible
B ) Chemin pour sauvegarde temporaire.

'-------------------------------------------
Sub test()
Dim MonFichier As String, Nom As String
Dim MonLecteur As String, Prêt As Boolean
Dim Repertoire As String, RepTem As String

'*******************************
'Répertoire où faire la sauvegarde sur le
'lecteur amovible. Ne pas inscrire le lecteur,
'seulement le chemin
Repertoire = "tototiti"

'Répertoire où se fera la sauvegarde temporaire
'avant de copier le fichier vers lecteur amovible
RepTem = "c:"
'*******************************************

MonLecteur = RemovableDisk(MonLecteur)
If MonLecteur <> "" Then
Prêt = EstPret(MonLecteur)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
Application.ScreenUpdating = False
'S'assurer que la sauvegarde des données
'récentes est faites
ActiveDocument.Save
'Création du répertoire si nécessaire
Creer_Chemin MonLecteur, Repertoire
'Récupération du nom du fichier actuel
Nom = ActiveDocument.Name

Application.Documents.Add ActiveDocument.FullName
'Sauvegarde du fichier ailleurs.
ActiveDocument.SaveAs RepTem & Nom
'Fermeture du document actif
ActiveDocument.Close

VBA.FileCopy RepTem & Nom, MonLecteur & Repertoire & Nom
'destruction du fichier temporaire
Kill RepTem & Nom
Application.ScreenUpdating = True
End Sub
'-------------------------------------------

Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function

'-------------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------





"michdenis"
Bonjour,

Je n'ai jamais tenté cette manœuvre, mais as-tu tenté
d'enregistrer ton document sur le DD et le copier par la
suite sur ta clef.
La problématique provient de la manière dont les documents
sont enregistrés. Le site proposé parle d'Excel, je suppose que
cela devrait être similaire pour Word.

http://support.microsoft.com/?id4068

Il doit y avoir moyen d'automatiser cela par macro...!
Publicité
Poster une réponse
Anonyme