Enregistrement
bonjour,
Je suis graphiste et je suis en train de travailler sur une mise en page de cartes de visite pour une collectivité de 5500 personnes.
Pour cela l'utilisateur ouvre un fichier Excel contenant un accès à une base de données, le fichier se met à jour et il le ferme.
Ensuite il ouvre une mise en page et envois les cartes.
je voudrais pouvoir intégrer dans le fichier excel deux choses:
1 - la sauvegarde automatique du fichier (sans message) dans le même format (XLSM)
2 - et une sauvegarde au format TXT avec séparateur tabulation (toujours sans message) pour pouvoir être utilisé dans indesign.
Comme je n'y connais rien est-ce que vous pouvez m'aider afin que je réalise la manipulation dans leur fichier ?
Car la base n'est pas bonne s'il a oublié de sauvegarder et là c'est grave, car ensuite cela par en impression.
Il me faut donc une chose transparente pour éviter l'intervention de l'humain.
Bien cordialement.
Daniel
Bonsoir Danval
code à mettre dans le "ThisWorkbook" de ton fichier comme ça, ta macro de sauvegarde se lancera à l'ouverture de ton fichier, et exécutera à l'heur que tu as programmer la macro de sauvegarde que tu vas adapter
Private Sub Workbook_Open()
Application.OnTime TimeValue("18:48:00"), "Sauve"
End Sub
Code à mettre dans ton fichier
Sub Sauve()
TA macro de sauvegarde (à récupérer ou à rechercher sur le net
End Sub
si tu peux attendre lundi je peux t'en faire parvenir un modèle qui se lance 2 fois par jour, mais je l'ai au bureau
à plus
bonjour,
merci pour la rapidité.
en fait il n'y as pas d'heure pour la sauvegarde.
quand il y as une demande de carte lors de changement de poste ou de numéro de téléphone.
en fait l'opérateur ouvre le fichier excel pour le mettre à jour par rapport à la base de données.
ensuite il le sauvegarde et l'enregistre au format txt avec tabulation.
je voudrais simplement que les deux sauvegardes se fassent toute seules lors de la fermeture du fichier.
une au format xlsm et l'autre au format txt.
Daniel
Bonjour,
aprés quelques heures de fouille je suis arrivé a mettre un code en place.
j'ai rajouté un code qui évite l'ouverture par deux personnes en même temps qui fonctionne.
alors la sauvegarde en xlsm fonctionne mais pas en txt avec tabulation.
quelqu'un aurait il une idée?
à l'avance merci.
Daniel
voici mon code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:="carte de visite.xlsm", _
FileFormat:=xlExcel12, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="carte de visite.txt", _
FileFormat:=xlText, CreateBackup:=False
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
'------avertissement
MsgBox "Ce classeur est en cours de modification par un autre utilisateur" _
& " Il va etre referm_", vbInformation
' -----fermeture
ThisWorkbook.Close
End If
End Sub
bonjour,
plus la peine de chercher j'ai trouvé.
merci