déplacer un fichier en vba Fermé

Question

Bonjour, 


j'ai un problème . je n'arrive pas à copier des fichiers d'un endroit vers un autre . quelle commande en vba pour word je dois utiliser ?  ah j'ai oublié ! j'utilise word 2003  d'avance merci

Utilisateur anonyme · Accepted Answer

Bonjour,

Set objFSO = CreateObject("Scripting.FileSystemObject")

Cette instruction est native du VBS, et supporté par tous
les environnements VBA et VB que j'ai utilisé. Scripting
est l'appellation qui remplace à mon avis les fichiers batch
ou les fichiers cmd. Sous Windoos, l'utilisation du VBS est
très efficace pour automatisé certaines tâches quand les outils
sont natifs du systême d'exploitation.

Donc le FileSystemObject est comme sont nom l'indique,
un objet Fichier du systême. Cette objet nous permmettra
l'utilisation de certaines méthodes et propriétés pour
manipuler des objets du systême de fichiers.

Voici quelques méthodes :

Si 
Source = "C:\MonFichierSrc.txt"
et
Destination = "C:\MonFichierDes.txt"

Methode Copie
objOFS.CopyFile Source, Destination

Méthode Déplacement
objOFS.MoveFile Source, Destination

Méthode Existe
objOFS.FileExists(Source) -> Renvoi Vrai ou Faux

Si
Dossier = "C:\Temp\Affaires\Numéro\"


Méthode Prendre Répertoire
Set objDossier = objFSO.GetFolder(Dossier)

For Each Fichier In objDossier.Count
	' Code ...
Next

Ce n'est certe pas la définition du dictionnaire,
mais disons simplifié dans mes mots.

Lupin

Utilisateur anonyme · Answer

Bonjour,

exemple :


Sub CopieFichier()

    Const Source = "C:\Temp\MonFichier.txt"
    Const Destin = "C:\Monfichier.txt"
  
    Dim objOFS As Variant
    
    Set objOFS = CreateObject("Scripting.FileSystemObject")
    
    If (objOFS.FileExists(Source)) Then
        objOFS.CopyFile Source, Destin
        Kill Source
    End If
    
    Set objOFS = Nothing

End Sub
'

ou

Sub DeplaceFichier()

    Const Source = "C:\Temp\MonFichier.txt"
    Const Destin = "C:\Monfichier.txt"
  
    Dim objOFS As Variant
    
    Set objOFS = CreateObject("Scripting.FileSystemObject")
    
    If (objOFS.FileExists(Source)) Then
        objOFS.moveFile Source, Destin
    End If
    
    Set objOFS = Nothing

End Sub
'

Lupin

vba · Answer

bonjour,



   merci   ça marche 


mais   je ne  comprends pas la ligne suivante :


   Set objOFS = CreateObject("Scripting.FileSystemObject")    


c'est quoi  en détail   Scripting.FileSystemObject


    D'avance merci

vba · Answer

bonjour,


 Je voudrai piloter une application  par  exemple  Powerpoint  à partir de Word  .  Je ne sais pas comment . D'après ce que j'ai compris , il faut activer manuellement   la référence " Micosoft PowerPoint xxx.Object Library"   dans le menu OUTILS de la barre de tâche de Visual Basic Application. Y 'a -t-il une autre manière d'activer cette référence grâce à un code  VBA . D'avance merci

Utilisateur anonyme · Answer

Bonjour,

oui, il y a une autre possibilité, c'est d'utiliser les objets de scripting sous VBA.

ex: déclaré l'appel de l'objet :

Set ppApp = CreateObject("PowerPoint.Application")

ceci dit, les objets de scripting son moins évolué que ceux de l'application.

pour excel, ça donne quelque chose comme :
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Temp\MonFichier.xls")
Set xlWKS = xlBook.Worksheets(1)
Set xlRange = xlWKS.Range("A1:A65535")

je ne connais pas bien les objets de PowerPoint et même de base en VBA
sous PowerPoint, il y a beaucoup moins de choses natives des objets.
je travaille actuellement à un projet VBA sous PP qui manipule XL et j'ai
plus de facilité à manipuler Excel de l'extérieur que de manipuler PP de
l'intérieur.

Exemple complet de pilotage d'Excel à partir d'un script VBS écrit avec le bloc-notes.
http://membre.oricom.ca/lupin/documents/excelvbs.txt

Lupin

vba · Answer

bonjour,



je dois passer une variable à une fonction . je ne sais pas si je dois la passer par ByVal ou ByRef ? quelle est la différence entre ces deux expressions  par des exemples  concrets  SVP.

Autre question :    if valeur boolénne then   je fais quelque    chose ;  la valeur booléenne par défaut ici  c'est  quoi ?

Utilisateur anonyme · Answer

Bonjour,

un peu de lecture peut-être ...

http://membre.oricom.ca/lupin/Excel/LesRoutines.htm

Lupin

vba · Answer

Bonjour, 



Merci pour toutes ces idées géniales !!!


j'ai cherché à comprendre le terme revert dans par exemple :


 Documents.open   filename:= toto.doc , revert:=false 


mais je n'ai pas trouvé de documentation  la-dessus



merci d'avance

Déplacer un fichier en vba

8 réponses

Discussions similaires