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

Rechercher des sujets similaires à "enregistrement"