Bonjour,
je cherche à créer un bouton permettant d'enregistrer une feuille d'un tableur excel en PDF dans un dossier. Jusque là c'est simple.
Le problème est le suivant : ce tableur excel (nommé STOCK10_TEST.xlsm) est mis à disposition sur plusieurs poste en réseau, via de simples petits raccourcis qui renvoient vers ce fameux fichier excel stocké sur le serveur de l'agence (dossier "Serveur\STOCK")
Chaque poste en réseau doit pouvoir apporter des modifications à ce tableur excel, et enregistrer la feuille au format PDF dans un dossier commun présent sur le serveur (dossier "Serveur\STOCK\COMMANDES").
Le problème est que sur chacun des postes, le serveur prend un nom différent (Y:, J:, H....). Donc pour spécifier le chemin à suivre pour l'enregistrement du PDF je me suis retrouvé bloqué dans mon code VBA (oui mes connaissances sont quasi-nulles).
Dans l'idée de contourner ce problème, je me suis servi de Workbooks(ActiveWorkbook.Name).Path qui permet de retourner le chemin du tableur excel ("Serveur\STOCK").
MAIS bien que ce code fonctionne parfaitement chez moi sur mon ordi unique, ça ne fonctionne pas sur les postes de l'agence, et le débogueur semble bloquer sur le chemin d'accès spécifier.
Qu'en pensez-vous ?
Private Sub Imp_complete_Click()
Dim LaDate$, Nom$, Rep$, Dossier$
LaDate = Format(Now, "yyyy_mm_dd_")
Nom = "LISTE_COMPLETE"
Rep = Workbooks(ActiveWorkbook.Name).Path
Dossier = "\COMMANDES\"
Sheets("Commande").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & Dossier & LaDate & "_" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub