Avec une macro, comment rediriger un chemin Résolu/Fermé

Question

Bonjour, 
J'ai fait une macro (en fouillant sur le net) qui me permette d'enregistrer un nom de fichier pris dans dans mon document non seulement au format word docx mais aussi et directement au format pdf.
Deux soucis : 1- j'ai actuellement la redirection des chemins (je débute en macro) qui ne fonctionne pas. En effet je voudrais que le document word s'enregistre dans le dossier Devis_word et que le document pdf dans le dossier devis_pdf.
2- je voudrais qu'une fois le fichier pdf enregistrer, il s'ouvre avec acrobat. je n'ai pas réussi à trouver une macro pour l'ouvrir après l'enregistrement.
Je vous note la macro ci-dessous :

Private Sub CommandButton1_Click()
'macro écrite par m@rina
Dim nom As String, nom2 As String, nombre
ChangeFileOpenDirectory "E:\_Mes Données\Valentin\Documents administratifs\Devis_Word"                 'enregistre bien dans Devis Word
nom = ActiveDocument.Paragraphs(1).Range
nombre = ActiveDocument.Paragraphs(1).Range.Characters.Count
nom2 = (Left(nom, nombre - 1))
ActiveDocument.SaveAs FileName:=nom2 & ".docx"
 
'enregistrement doc PDF
Dim nfichier As String, nfichier2 As String, intpos As Byte
ChangeFileOpenDirectory "E:\_Mes Données\Valentin\Documents administratifs\Devis_Pdf"                    'n'enregistre pas dans devis Pdf mais le fait dans devis Word
nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier2, _
exportFormat:=wdExportFormatPDF
 
End Sub

Merci de votre aide

Configuration: Windows 7 / Firefox 45.0

tyranausor · Answer

Bonjour, si tu lis l'aide de ExportasfixedFormat tu aurais vu qu'il faut spécifier un répertoire, et chose que tu as faite. Mais en mettant ActiveDocument.Path sachant qu'avant tu as enregistré ton document dans un dossier spécifique (Devis Word), le chemin du document actif reste celui que tu as donné même si tu indiques un nouveau chemin, il ne sera pas pris en compte! Un ordi c'est bête, il ne faut pas l'oublier, si tu lui d'aller à droite, il tourne à droite même s'il y a un mur!

Bref, avec chemin = "E:\_Mes Données\Valentin\Documents administratifs\Devis_Pdf"ActiveDocument.ExportAsFixedFormat outputFileName:=chemin & "/" & nfichier2, _exportFormat:=wdExportFormatPDF ça devrait aller mieux

robbybasch · Answer

Bonjour Tyranausor
Je viens d'essayer et cela m'enregistre toujours dans devis_word. Qu'ai fait qu'il ne faut pas faire ??? je te remets ce que j'ai noté :

Private Sub CommandButton1_Click()
'macro écrite par m@rina
Dim nom As String, nom2 As String, nombre
ChangeFileOpenDirectory "E:\_Mes Données\Valentin\Documents Administratifs\Devis_Word"
nom = ActiveDocument.Paragraphs(1).Range
nombre = ActiveDocument.Paragraphs(1).Range.Characters.Count
nom2 = (Left(nom, nombre - 1))
ActiveDocument.SaveAs FileName:=nom2 & ".docx"


Dim nfichier As String, nfichier2 As String, intpos As Byte
nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
chemin_pdf = "E:\_Mes Données\Valentin\Documents administratifs\Devis_Pdf"

ActiveDocument.ExportAsFixedFormat outputFileName:=chemin_pdf & "/" & nfichier2, _
exportFormat:=wdExportFormatPDF
End Sub
faut-il définir la variable chemin_pdf afin qu'elle soit prise en compte ?
CDL
Robby

tyranausor · Answer

Ne serait-il pas plus simple de stocker le nom dans une variable? Et si tu peux joindre ton fichier (sans données perso), ça serait pas plus mal pour voir ce qui va pas.

robbybasch · Answer

Bonjour Tyranausor
Eh ben c'est bien a ce que je pense mais je ne sais pas faire. Si tu peux me dépanner. En faite la variable ou se trouve le nom de fichier pdf est nfichier2 et la variable du chemin est cheminpdf (ce que tu m'as indiqué). Ce que je ne sais pas faire c'est à partir de l'appel d'un programme (acrobat en l'occurence) concatener le tout "logiciel chemin et variable nom de fichier" en vba.
Pour ouvrir acrobat j'ai trouvé ceci :
Shell "cmd /c start acrord32.exe   ce qui fonctionne parfaitement, après l'enregistrement du doc word et pdf, acrobat s'ouvre mais ne trouve pas le nom de fichier. Je pense que c'est ma commande qui n'est pas bonne.
La ou cela ne va pas c'est la ligne c'est ou j'ai rajouté le texte en gras
Shell "cmd /c start acrord32.exe  outputFilename:=cheminpdf & nfichier2"

tyranausor · Answer

Bonjour, c’est expliqué ici comment joindre un fichier. Concernant l'ouverture du fichier après export, je suppose, ce sera activedocument.ExportAsFixedFormat OutputFileName :=cheminpdf & nfichier2" , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=true

Je te repréciserais cela directement dans ton document

robbybasch · Answer

Bonjour tyranausor
ne cherche plus.. j'ai trouvé ( il suffisait d'ajouter un +).... en fouillant sur le net. (j'avais un peu de temps). Donc si cela intéresse des personnes je mets le code qui sert à :
Pour les nuls en word et pour ceux qui ont du mal avec les chemins, cette macro permet de noter le nom du fichier dans le document word (qui est masqué pour l'impression) et en cliquant sur un bouton (masqué également) à coté, il  permet d'enregistrer en word et en pdf et ouvre à la fin le pdf, ce qui permet une vérification. le doc word est dans un dossier word et le doc pdf est dans un dossier pdf.
macro :
Private Sub CommandButton1_Click()'macro écrite par m@rinachemindocx = "E:\_Mes Données\Valentin\Documents Administratifs\Devis_Word\"cheminpdf = "E:\_Mes Données\Valentin\Documents administratifs\Devis_Pdf\"Dim nom As String, nom2 As String, nombrenom = ActiveDocument.Paragraphs(1).Rangenombre = ActiveDocument.Paragraphs(1).Range.Characters.Countnom2 = (Left(nom, nombre - 1))ActiveDocument.SaveAs FileName:=chemindocx & nom2 & ".docx"Dim nfichier As String, nfichier2 As String, intpos As Bytenfichier = ActiveDocument.Name'trouve la position de l'extensionintpos = InStrRev(nfichier, ".")'remplace l'extension doc par pdfnfichier = Left(nfichier, intpos - 1)nfichier2 = nfichier & ".pdf"'enregistre dans le dossier en coursActiveDocument.ExportAsFixedFormat OutputFileName:=cheminpdf & nfichier2, _ExportFormat:=wdExportFormatPDF, OpenAfterExport:=TrueShell "cmd /c start acrord32.exe  + cheminpdf & nfichier2"End Sub

Merci à tyranausor pour sa contribution. Si le fichier interesse des personnes, pas de problème pour l'envoyer.
CDL
Robby

Avec une macro, comment rediriger un chemin

6 réponses

Discussions similaires

Newsletters