Discussion :

[dlight]

Bonjour à tous.

J'ai un problème que je ne trouve pas de source, voir de logique.

Mon fichier excel sert à nos clients pour inscrire les revenus et dépenses d'entreprise. Une procédure de fin d'année (qui fonctionne) permet de récupérer les informations de l'année précédente et me les transférer dans l'année courante.

À la fin de la procédure, je demande à l'utilisateur d'inscrire son Numéro d'assurance Social afin de nommer le fichier sous la forme 123123123 - T2125 2014 dans un répertoire déjà créé sur notre serveur.

Voici le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
 NomDeMonNouvFichier = InputBox("Veuillez indiquer le NAS du contribuable sans espace", "Sauvegarde")
   [LeNas] = NomDeMonNouvFichier
  [NasContribuable] = NomDeMonNouvFichier
Chemin = "G:\T1" & An & "\annexes\T2125\"
 
 
    ActiveWorkbook.SaveAs Filename:=Chemin & NomDeMonNouvFichier & "-2125 " & An & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

La variable An = integer (et la valeur actuelle est 2014) et NomDeMonNouvFichier = string

Si j'exécute la procédure pas à pas, ça fonctionne

Si je l'exécute normalement, le fichier ne s'enregistre pas...

Quelqu'un peut m'aider à comprendre car là je suis dans la brume...

Note: La version 2013 d'excel n'a aucun problème à réussir dans les deux cas...

Merci à l'avance
Dlight

[Kimy_Ire]

Bonjour dlight,

A la place de ActiveWorkbook place quelque chose du type Workbooks("le_nom_de_mon_classeur").

Ce n'est peut-être pas la solution mais ca guidera.

Cordialement,
Kimy

[dlight]

Merci à vous Kimy mais cela n'a rien changé au problème dès plus surprenant...

En mode pas à pas, ça fonctionne, mais en mode normal le fichier n'apparait tout simplement pas enregistré dans le répertoire...

Si quelqu'un a une solution pour moi, je suis prenneur !

Merci à l'avance

Dlight

[Slooby]

Bonjour,

ton chemin d'enregistrement est vachement confus.

Est-il du style :
"G:\T12015\annexes\T2125\IciMonNas -21252015.xls"


Une solution simple pour trouver l'erreur est de recommencer l'opération mais avec des paramètres très simple.

Du genre, crée toi un dossier dans ton G:\MesDocuments\VBA puis remplace (met ton code actuel en commentaires bien sûre ^^) dans ton code VBA ton Filename:=XXXX par ton chemin qui est direct vers ton dossier G:\MesDocuments\VBA\ & NomDeMonNouvFichier & ".xlsx"

et fixe directement la valeur de NomDeMonNouvFichier. Par exemple NomDeMonNouvFichier="essai1"

Là tu auras tout mis en DUR dans ton code.
Si ça ne marche pas, je ne peux rien pour toi ahahaha
Mais si ça marche (ce qui devrait être le cas), tu sauras que c'est l'écrite de ton chemin qui n'est pas bonne.

Bon courage !

[dlight]

Merci pour les pistes de solutions Slooby.

J'avais déjà fait l'expérience de mettre un autre répertoire simple et sur le disque C et j'ai le même résultat.

De plus, j'ai un autre fichier du même type qui lui ne cause aucun problème...

Je crois que je vais le refaire dans un fichier vierge après ma période folle...

Si quelqu'un à d'autres idées entre temps, je suis toujours preneur !


Dlight