VBA - lien entre deux fichiers avec macro
Bonjour
Je vais tenter d'être le plus clair possible. J'ai un document modèle WORD pour un formulaire de demande de congé. Je place ce document sur un réseau R/ utilisable par tous les utilisateurs. Ils créent leurs documents, insère leurs signatures numérisées et envoient le document créé par mail à leur supérieur.
Je vous explique mon environnement : (2 serveurs)
- un environnement avec CITRIX pour la messagerie et même une bureautique
- un environnement avec TSE pour la bureautique
Là où j'ai un problème, c'est quand le supérieur reçoit le document :
il doit pour pourvoir faire fonctionner la macro, enregistrer le document sur P/ avec le document modèle dans le même dossier. Il y t'il une solution. Je précise que je préfère qu'il utilise P/ car c'est une question de confidentialité et je préfère éviter de déployer mon document modèle partout sur le réseau. Je vous mets ci-dessous le code utilisé.
Private Sub Image1_Click()
' Récupérer le nom du nouveau fichier
Dim divers As Variant
Dim nomfichier, nomfichier3
nomfichier = ActiveDocument.Name
' OUVRIR LE FICHIER DEMANDE DE CONGE
'
'
ChangeFileOpenDirectory "\\tsclient\R\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF"
Documents.Open FileName:="\\tsclient\R\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES.dotm", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
Windows(nomfichier).Activate
' APPEL POUR L'UTILISATION DES MACROS
Application.Run ("macro2")
End Sub
bonjour
au lieu de Word, fournis-leur un xls(x),
en ligne 1 les mots "nom prénom", datedébut, datefin, (et signatureparcollaged'unscan si tu veux, mais ça ne sert strictement à rien de rien)
en ligne 2 rien (c'est dans cette ligne qu'ils rentreront les données
ils enregistrent sous "nomprénomdatedébut.xls(x)" dans un répertoire UNIQUE et commun à tous
alternativement, ils envoient leur xlsx au chef. C'est lui qui range tout dans le répertoire unique.
à ton chef tu fournis un xlsx dans lequel tu as fait
menu Power query, obtenir de répertoire
magie !
lui n'aura qu'à cliquer "actualiser"
selon ta version, il te faut télécharger
https://www.youtube.com/watch?v=gwW2CDdvUUs
inclus dans les versions "récentes"
pas de macro, pas de formule. Du pur Excel !
indépendant de l'environnement serveur.
dans 20 ans ça fonctionnera encore.
amitiés
Bonjour
Merci pour ton travail.
Ta réponse est interressante, malheureusement pour l'instant, je n'ai pas le droit de télécharger ou d'installer un Programme Annexe, et la direction souhaite uen signature sur les documents.
Donc pour moi je dois passer par une macro.
re
en gros on accepte les macros qui sont des nids à microbes (c'est leur créateur, Microsoft, qui le dit à chaque ouverture de fichier ! )
et refuse d'installer Power Query ?
et veut un dessin sur des fichiers informatiques ?
tu souffres et tu souffriras.
bon courage
Bonjour
Merci pour ce commentaire. J'avais juste demandé de l'aide.
Y a t'il quelqu'un d'autre pour se pencher sur mon problème?