Déplacer un fichier PDF avec une macro word Le sujet est résolu

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
a
anne69
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 mai 2018
Version d'Excel : 2010 FR

Message par anne69 » 20 novembre 2018, 09:12

Bonjour

Je veux déplacer un fichier PDF avec une macro WORD d'un dossier source vers un autre dossier destination puis supprimer le fichier origine dans le dossier source.
VBA bloque sur la ligne 4 avec le message fichier introuvable.
1/nomfichier = nfichier2 & ".pdf"
2/sourceW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES A VALIDER"
3/DestinationW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES VALIDEES"
4/FileCopy sourceW & nomfichier, DestinationW & nomfichier
5/Kill sourceW & nomfichier

Merci pour votre aide.
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 1'399
Appréciations reçues : 91
Inscrit le : 29 mai 2018
Version d'Excel : 2016 (365)

Message par ric » 20 novembre 2018, 13:04

Bonjour,

Je crois qu'il manque les " \ " à la fin des chemins....
1/nomfichier = nfichier2 & ".pdf"
2/sourceW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES A VALIDER\"
3/DestinationW = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES VALIDEES\"
4/FileCopy sourceW & nomfichier, DestinationW & nomfichier
5/Kill sourceW & nomfichier


ric
Smart Indenter,
Excel fermé, https://www.add-ins.com/macro-products- ... a-code.htm .
Puis, clic-droit sur le code.

Ma formation avance ... je ne sais pas quelle forme j'aurai. :P
a
anne69
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 mai 2018
Version d'Excel : 2010 FR

Message par anne69 » 20 novembre 2018, 15:36

Bonjour

Merci pour la réponse mais je bloque toujours au même endroit Avec en message Fichier introuvable

Avez vous une idée?
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 1'399
Appréciations reçues : 91
Inscrit le : 29 mai 2018
Version d'Excel : 2016 (365)

Message par ric » 20 novembre 2018, 15:54

Bonjour,

Es-tu bien sûr que le chemin (dossiers et sous-dossiers) est bon ?
Les dossiers et sous-dossiers sont bien écrits en majuscule comme dans ton code ?

Pour vérifier : ouvre l'Explorateur Windows (gestionnaire de fichiers) > rends-toi sur le R et descend l'arborescence jusqu'au sous-dossier désiré > en haut de l'Explorateur Windows > il y a une ligne où l'on y voit les dossiers > clique dans cette ligne à droite de l'écriture > l'affichage va changer > copier > rends-toi dans ton code et coller > ainsi, on est certain que le chemin est parfait. :mrgreen:



ric
Smart Indenter,
Excel fermé, https://www.add-ins.com/macro-products- ... a-code.htm .
Puis, clic-droit sur le code.

Ma formation avance ... je ne sais pas quelle forme j'aurai. :P
a
anne69
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 mai 2018
Version d'Excel : 2010 FR

Message par anne69 » 20 novembre 2018, 16:57

Voilà j'ai trouvé
Sub EnregistrerPDF
Dim nfichier As String, nfichier2 As String, Dossier 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 R
Dossier = "R:\2.DOCUMENTS GENERAUX\3.MODELES\PERSONNEL_ABSENCES - NDF\DEMANDE DE CONGES VALIDEES\"
ActiveDocument.ExportAsFixedFormat outputFileName:=Dossier & nfichier2, exportFormat:=wdExportFormatPDF
ActiveDocument.Close
End Sub
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 1'399
Appréciations reçues : 91
Inscrit le : 29 mai 2018
Version d'Excel : 2016 (365)

Message par ric » 20 novembre 2018, 17:12

Bonjour,

C'était bien le chemin qui posait problème. ::(

Je suis bien heureux que ça fonctionne. ::D

A+



ric
Smart Indenter,
Excel fermé, https://www.add-ins.com/macro-products- ... a-code.htm .
Puis, clic-droit sur le code.

Ma formation avance ... je ne sais pas quelle forme j'aurai. :P
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message