Discussion :

[alig427]

Bonjour,
Depuis quelques jours, (environ 20 septembre 2015) la fonction vba excel ActiveWorkbook.SaveCopyAs NomFichier me met une erreur 1004.
Sur des classeurs qui fonctionnaient très bien avant (depuis 2010), que ce soit sous Excel 2007 ou 2013.

J'ai essayé sur Windows XP, Windows 7 et Windows 10 avec des versions 32 ou 64 bits, toujours le même problème.

Dans mes essais, j'ai éliminé un problème de nom de fichier de sauvegarde quelque soit la méthode employée, impossible de sauvegarder mon classeur.
ActiveWorkBook.SaveAs + Nom du fichier de sauvegarde ou,
ThisWorkBook.SaveAs + Nom du fichier de sauvegarde ou,
ActiveWorkBook.SaveCopyAs + Nom du fichier de sauvegarde.

Est-ce que quelqu'un peut me venir en aide ?
Merci d'avance

[parmi]

Bonjour,

Es-tu certain que le nom du fichier (variable, j'imagine) n'a pas changé depuis ce 20 sept. ?
Le chemin est toujours valide ?

[alig427]

Bonjour parmi !
Merci de ta réponse,

mais je suis certain du nom du fichier j'ai même essayé de le mettre en dur "C:\xxxx.xlsm" et le pb est toujours la.

Par contre, j'utilise ceci dans mon classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

avec des #if Win64 pour les PC 64bits, et le même code sans les PtrSafe pour les 32bits.


Cela à t-il un rapport ?

Je viens de tester le code ci-dessous (le même que j'utilise dans le classeur posant problème), dans un classeur vierge et tout fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub EnregistrerCopie()
 
    Dim Nom As String
 
    Nom = ThisWorkbook.Path & "\BACKUP\" & "ARGILE_BACKUP_" & Format(Date, "dd-mm-yyyy") & " à " & Format(Time, "hh.mm") & ".xlsm"
    ThisWorkbook.SaveCopyAs Nom
 
End Sub

Donc le problème viens d'ailleurs...

Je continue mes recherches. Affaire à suivre.

[parmi]

Quand ç’a commencé à planter, est-ce que tu avais ajouté du code ?

[alig427]

Non, un matin en lançant excel. Il n'y a plus de modif dans ce classeur depuis au moins 2 ans.

J' ai tenter d'utiliser une ancienne version réalisée avec la fonction décrite plus tôt, et le problème est le même.

Je vois bien une maj windows ou office qui pourrais poser problème comme en décembre dernier.

[clementmarcotte]

Bonjour,

Essaie d'exporter ton module en fichier texte, de le supprimer dans ton projet et de le réimporter. Avec un peu de chance, cela pourrait enlever des impuretés, si impuretés il y a.

Pour un Excel à 32 bits seulement, il y a VBA Clode Cleaner :

http://www.appspro.com/Utilities/CodeCleaner.htm