Discussion :

[noobistan]

Bonjour tout le monde.

voici le code vba d'enregistrement qui me pose problème ("colonne" est défini comme un worksheet plus haut") :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Path, File As String
 
Path = "G:\TEAM COMPTA\factures extérieures\CDS PASTEUR\"
File = "Facture CDS PASTEUR - " & Format(Now, "Mmmm yy") & ".xlsm"
 
ThisWorkbook.SaveCopyAs Filename:=Path & File
 
colonne.Activate
ActiveWorkbook.Close Savechanges:=False
Application.Quit

Le souci est le suivant : le ficher que j'enregistre est présent en lieu et place voulus, au format excel, mais je ne peux ouvrir ledit fichier, le texte suivant s'affichant :


Pourtant, après avoir vérifier l'exécution de chaque partie du Sub pas à pas, tout se passait comme il fallait. J'ai voulu faire en sorte que suite à l'application de ce Sub, on enregistre une copie car je veux garder le fichier initial qui sert d'appui au Sub intact (comme un patron, somme : on l'ouvre, on lance la procédure, on le referme sans le sauvegarder lui)

Pouve-zvous m'aider à comprendre où se situe le souci svp ?

D'avance, je vous en remercie

[mattgui]

Salut !

J'ai testé localement ton code qui me semblait correct et j'arrive à ouvrir le fichier crée sans problème, avec sa bonne extension. Le problème doit venir de plus haut

Tu peux peut-être, en guise de debug, remplacer le chemin d'accès et le nom du fichier par la méthode GetSaveAsFilename, qui te permettra de choisir manuellement le chemin d'accès, le nom et l'extension.
Si jamais ça ne marche pas non plus, c'est qu'il y bien un problème ailleurs !

Bon courage
Matt

[noobistan]

Salut Matt, et merci de ton retour ^^

Sur un autre forum, d'autres intervenants m'ont fait le même retour, à savoir que ça marche avec eux. Je ne sais pas si cela joue, mais je travaille sur un réseau partagé, le but étant de rendre disponibles toutes mes procédures à mes collègues afin d'automatiser bons nombres de tâches professionnelles utilisant Excel (gestion des stocks, facturations, imports/exports de documents de base de données de logiciels GEF, ...). De plus, les fichiers Excel sont automatiquement enregistrés "n propriété "Archives". Tout cela pourrait-il jouer un rôle dans mon problème ?

Parce que le code global fonctionne très bien (il est simple : je vais chercher des informations dans un fichier, je les copie-colle dans un autre).

Je souhaiterais enregistrer le fichier après application du sub sans modifier pour autant le fichier initial, pour qu'il serve et resserve ad vitam (comme un patron/modèle). Et mes collègues ne faisant que bidouiller dans Excel, je souhaiterais que tout le processus soit automatiser (lancement du sub à l'enregistrement)

[mattgui]

Salut

Je ne sais pas si cela joue, mais je travaille sur un réseau partagé, le but étant de rendre disponibles toutes mes procédures à mes collègues afin d'automatiser bons nombres de tâches professionnelles utilisant Excel (gestion des stocks, facturations, imports/exports de documents de base de données de logiciels GEF, ...)

Pour moi cela ne joue pas, à part si l'administrateur du réseau partagé a supprimé certains droits d'écriture mais ça m'étonnerait fortement.

As-tu essayé le debug que je t'ai proposé ? Il faut commencer par là pour cibler le problème, et si il vient de plus haut, on pourra agir en conséquences.

Je souhaiterais enregistrer le fichier après application du sub sans modifier pour autant le fichier initial, pour qu'il serve et resserve ad vitam (comme un patron/modèle). Et mes collègues ne faisant que bidouiller dans Excel, je souhaiterais que tout le processus soit automatiser (lancement du sub à l'enregistrement)

Il peut y avoir une solution qui consiste à forcer la lecture seule du fichier, permettant de faire des modifs sans sauvegarder sur le fichier original. Avec ça tu es sûr de garder ton "patron". Une piste à creuser éventuellement.

A+

Matt

[noobistan]

Re ^^

Alors, en mode manuel, cela passe très bien : que ce soit en extension ".xlsx" ou ".xlsm". Mais dès que je passe en mode automatique, cela pêche! Je ne vois pas du tout où est le problème...

[mattgui]

Re !

Question toute bête : quelle est l'extension de ton fichier initial ?

Car la méthode SaveCopyAs n'est pas censée pouvoir changer les extensions de fichier, pour ça il faut passer par SaveAs, qui a une propriété FileFormat.

J'ai fait le test rapidement :
Macro lancée depuis un fichier xls ==> même bug que toi
Macro lancé depuis un fichier xlsm ==> ça fonctionne

Tiens moi au courant

Matt