Deplacer un fichier PDF via 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 » 19 novembre 2018, 16:03

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.
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 249
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 19 novembre 2018, 17:19

bonjour

il faudrait poser la question sur un forum Word

amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
a
anne69
Jeune membre
Jeune membre
Messages : 35
Inscrit le : 30 mai 2018
Version d'Excel : 2010 FR

Message par anne69 » 20 novembre 2018, 08:05

Bonjour

Merci

Je vais le faire
Avatar du membre
waard
Contributeur
Contributeur
Messages : 433
Appréciations reçues : 13
Inscrit le : 9 février 2015
Version d'Excel : 2013, 2016, FR
Téléchargements : Mes applications

Message par waard » 20 novembre 2018, 08:37

Hi,

Pour info il y'a le topic "Autres questions" qui correspond à ce type de question mais pour cette fois-ci, voici le code :
Sub TRANSFERT_FICHIER_PDF() 'MACRO DE TRANSFERT DES FICHIERS
'I. Déclaration variables procédure
Dim Source, destin As String, objOFS As Variant
'---------------------------------------------------------------------------------------------------------
'IV. TRANSFERT FICHIER
   'IV.1 si chemin existe traiter
   Source = "B:\WAARD\Téléchargements\Nouveau dossier\enquête douanes recasters russes.pdf"    'def chemin source du fichier avec le nom du fichier en cours
   destin = "B:\WAARD\Téléchargements\Nouveau dossier\test dossier\enquête douanes recasters russes.pdf" 'def chemin de destination avec le nom du fichier en cours
   Set objOFS = CreateObject("Scripting.FileSystemObject")   'création d'un objet script de gestion de systeme fichier
       If (objOFS.FileExists(Source)) Then        'si fichier source existe alors bouge le fichier du chemin source à son chemin de destination, comprenant le nom du fichier
           objOFS.moveFile Source, destin
            '++++++++++++++++++++++++++++++++++++++++++++++
            MsgBox "Déplacement fichier terminé, le gestionnaire a été mis à jour de ce déplacement.", vbInformation, "Information : Déplacement terminé"
            '---------------------------------------------------------------------------------------------------------
       Else
            '---------------------------------------------------------------------------------------------------------
            MsgBox "Informations non valides :" _
            & Chr(10) & "Nom fichier : " & ThisWorkbook.ActiveSheet.Range("B" & numligne).Text _
            & Chr(10) & "Chemin fichier : " & ThisWorkbook.ActiveSheet.Range("G" & numligne).Text _
            & Chr(10) & "Chemin de déplacement : " & ThisWorkbook.ActiveSheet.Range("H" & numligne).Text _
            & Chr(10) & Chr(10) & "Abandon du déplacement", vbCritical, "ERREUR CHEMIN DOSSIER"
            ThisWorkbook.ActiveSheet.Range("B" & numligne).Interior.ColorIndex = 2
            '---------------------------------------------------------------------------------------------------------
       End If
       Set objOFS = Nothing 'raz de l'objet
'---------------------------------------------------------------------------------------------------------
End Sub
C'est du Vbscript une sous-famille de vba, il est possible de faire des actions sur les objets dans l'exploreur, ici un lien tuto :
http://www.info-3000.com/vbvba/fichiers/#DeplaceFichier
"One and yet a mass"
COHENNY Tristan - Projet MYRMIDON
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message