En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit:
ActiveWorkbook.SaveCopyAS "a:\Dépmod3.xls"
But, mettre sur une disquette le fichier du disque D: Dépmod3.xls
Le fichier est inférieur à 1.44Mo, les disquettes sont formatées.
Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp
Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et
est inutilisable.
J'ai essayé: ActiveWorkbook.SaveCopyAS "a:\Depmod3.xls"
ActiveWorkbook.SaveCopyAS Filename:="a:\Dépmod3.xls"
ActiveWorkbook.SaveAS "a:\Dépmod3.xls"
ActiveWorkbook.SaveAS Filename:="a:\Dépmod3.xls"
sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde.
Merci à l'avance.
André
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
Michel Pierron
Bonsoir André; Je ne pense pas que cette instruction soit en cause. Est-ce que la copie de ce fichier exécutée par l'explorateur se passe correctement ? Tu peux aussi essayer en 2 temps: ActiveWorkbook.SaveCopyAs "C:Depmod3.xls" FileCopy "C:Depmod3.xls", "a:Depmod3.xls" pour voir si cela change quelque chose. MP
"andré charrier" a écrit dans le message de news:cgvq8l$kln$
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit: ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls" But, mettre sur une disquette le fichier du disque D: Dépmod3.xls Le fichier est inférieur à 1.44Mo, les disquettes sont formatées. Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et
est inutilisable. J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls" ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls" ActiveWorkbook.SaveAS "a:Dépmod3.xls" ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls" sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde. Merci à l'avance. André
Bonsoir André;
Je ne pense pas que cette instruction soit en cause.
Est-ce que la copie de ce fichier exécutée par l'explorateur se passe
correctement ?
Tu peux aussi essayer en 2 temps:
ActiveWorkbook.SaveCopyAs "C:Depmod3.xls"
FileCopy "C:Depmod3.xls", "a:Depmod3.xls"
pour voir si cela change quelque chose.
MP
"andré charrier" <andre.charrier@tiscali.fr> a écrit dans le message de
news:cgvq8l$kln$1@news.tiscali.fr...
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit:
ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls"
But, mettre sur une disquette le fichier du disque D: Dépmod3.xls
Le fichier est inférieur à 1.44Mo, les disquettes sont formatées.
Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp
Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ
et
est inutilisable.
J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls"
ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls"
ActiveWorkbook.SaveAS "a:Dépmod3.xls"
ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls"
sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde.
Merci à l'avance.
André
Bonsoir André; Je ne pense pas que cette instruction soit en cause. Est-ce que la copie de ce fichier exécutée par l'explorateur se passe correctement ? Tu peux aussi essayer en 2 temps: ActiveWorkbook.SaveCopyAs "C:Depmod3.xls" FileCopy "C:Depmod3.xls", "a:Depmod3.xls" pour voir si cela change quelque chose. MP
"andré charrier" a écrit dans le message de news:cgvq8l$kln$
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit: ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls" But, mettre sur une disquette le fichier du disque D: Dépmod3.xls Le fichier est inférieur à 1.44Mo, les disquettes sont formatées. Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et
est inutilisable. J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls" ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls" ActiveWorkbook.SaveAS "a:Dépmod3.xls" ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls" sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde. Merci à l'avance. André
FxM
Bonsoir André,
Sub test() ActiveWorkbook.SaveCopyAs "a:test.xls" End Sub fonctionne bien chez moi.
Il faut être extrêmement prudent lors d'un travail sur disquette : - savecopyas semble maintenir le fichier original sur D: Si tu faisais saveas, le fichier avec lequel tu travailles serait ensuite sur A: - lors d'une sauvegarde de fichier, Excel crée un fichier temporaire, efface le premier fichier puis renomme le fichier temporaire. Si la taille dépasse la moitié de l'espace disponible -> plantage, - enfin les disquettes sont des bêtes relativement fragiles. Il serait judicieux d'y faire un scandisk pour trouver et marquer les secteurs éventuellement défectueux.
Je préfère de loin faire une copie manuelle ou, au pire, faire la copie à partir d'un fichier non concerné par le travail via filecopy (et non pas activeworkbook).
@+ FxM
andré charrier wrote:
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit: ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls" But, mettre sur une disquette le fichier du disque D: Dépmod3.xls Le fichier est inférieur à 1.44Mo, les disquettes sont formatées. Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et est inutilisable. J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls" ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls" ActiveWorkbook.SaveAS "a:Dépmod3.xls" ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls" sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde. Merci à l'avance. André
Bonsoir André,
Sub test()
ActiveWorkbook.SaveCopyAs "a:test.xls"
End Sub
fonctionne bien chez moi.
Il faut être extrêmement prudent lors d'un travail sur disquette :
- savecopyas semble maintenir le fichier original sur D: Si tu faisais
saveas, le fichier avec lequel tu travailles serait ensuite sur A:
- lors d'une sauvegarde de fichier, Excel crée un fichier temporaire,
efface le premier fichier puis renomme le fichier temporaire. Si la
taille dépasse la moitié de l'espace disponible -> plantage,
- enfin les disquettes sont des bêtes relativement fragiles. Il serait
judicieux d'y faire un scandisk pour trouver et marquer les secteurs
éventuellement défectueux.
Je préfère de loin faire une copie manuelle ou, au pire, faire la copie
à partir d'un fichier non concerné par le travail via filecopy (et non
pas activeworkbook).
@+
FxM
andré charrier wrote:
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit:
ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls"
But, mettre sur une disquette le fichier du disque D: Dépmod3.xls
Le fichier est inférieur à 1.44Mo, les disquettes sont formatées.
Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp
Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et
est inutilisable.
J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls"
ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls"
ActiveWorkbook.SaveAS "a:Dépmod3.xls"
ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls"
sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde.
Merci à l'avance.
André
Sub test() ActiveWorkbook.SaveCopyAs "a:test.xls" End Sub fonctionne bien chez moi.
Il faut être extrêmement prudent lors d'un travail sur disquette : - savecopyas semble maintenir le fichier original sur D: Si tu faisais saveas, le fichier avec lequel tu travailles serait ensuite sur A: - lors d'une sauvegarde de fichier, Excel crée un fichier temporaire, efface le premier fichier puis renomme le fichier temporaire. Si la taille dépasse la moitié de l'espace disponible -> plantage, - enfin les disquettes sont des bêtes relativement fragiles. Il serait judicieux d'y faire un scandisk pour trouver et marquer les secteurs éventuellement défectueux.
Je préfère de loin faire une copie manuelle ou, au pire, faire la copie à partir d'un fichier non concerné par le travail via filecopy (et non pas activeworkbook).
@+ FxM
andré charrier wrote:
Bonjour,
En VBA Excel 2000 à l'intérieur d'une procédure j'ai écrit: ActiveWorkbook.SaveCopyAS "a:Dépmod3.xls" But, mettre sur une disquette le fichier du disque D: Dépmod3.xls Le fichier est inférieur à 1.44Mo, les disquettes sont formatées. Résultat la disquette se lance , ne s'arrête pas sauf avec Ctrl+Alt+Supp Le contrôle de la disquette donne 353Ko pour un fichier de 700Ko environ et est inutilisable. J'ai essayé: ActiveWorkbook.SaveCopyAS "a:Depmod3.xls" ActiveWorkbook.SaveCopyAS Filename:="a:Dépmod3.xls" ActiveWorkbook.SaveAS "a:Dépmod3.xls" ActiveWorkbook.SaveAS Filename:="a:Dépmod3.xls" sans résultat.
Quelqu'un peut-il m'aider à écrire la procédure de sauvegarde. Merci à l'avance. André
