Re : Enregistrement automatique + Envoi mail automatique
re,
Rien ne sert de s'enerver, ici ça fonctionne , mais normal, j'ai pas ni ton fichier , ni ton lecteur K,( un serveur certainement), donc l'on peut t'aider à analyser , mais cela reste à toi de le faire , alors :
JE crois avoir lu que tu utilisais une date dans ton nom de fichier , mais les / sont interdits les "." aussi d'ailleur, donc avant de mettre la date dans ton nom de fichier faire
nomfichier = replace(tonNomdeFichier,"/","_"). ( si ton format de date est 12.12.2010 replace(tonNomdeFichier,"/",".")
Sinon en pas a pas ou en mettant un stop, regarde le contenu de Total juste avant l'activebook et poste le nous.
sinon, encore un test basic pour progresser dans TA mise au point :
pour les lignes :
chemin = "K:\PUBLIC\CELLULE QUALITE\Programme opératoire - Test\ISO\ISO complété\"
Total = Application.GetSaveAsFilename(chemin & "ISO_" & Range("H4").Value & Range("I20").Value)
remplaces par du tous simple:
chemin ="c:\temp\" 'enfin un chemin très court existant sur ton disque local
et total = Application.GetSaveAsFilename(chemin & "ISO")
dis nous ce que tout cela donne et l'on passera au pas suivant