[Résolu][Calc] Copier des fichiers du Dossier 1 coller dans le Dossier 2

[rflo_2024]

Bonjour à tous,

Je vous contacte puisque je n'arrive pas à copier des fichiers (format .ods, .txt) qui se trouvent dans le dossier 1 et les coller vers le dossier 2.
Pourriez-vous m'aider s'il vous plaît ?

Cordialement,

Code : Tout sélectionner

Sub CopieFichier

    Dim sourceFolder As String
    Dim destinationFolder As String
    Dim fichier As String
   
    ' Chemin du dossier source
    sourceFolder = "C:\temp\Dossier1"
   
    ' Chemin du dossier destination
    destinationFolder = "C:\temp\Dossier2"
      
    ' Obtenir le premier fichier dans le dossier source
    fichier = Dir(sourceFolder & "*.*")
   
    ' Boucle pour parcourir tous les fichiers et les copier
    Do While fichier <> ""
        ' Copier chaque fichier dans le dossier de destination
        FileCopy sourceFolder & fichier, destinationFolder & fichier
       
        ' Obtenir le fichier suivant
        fichier = Dir()
    Loop

End Sub

[Dude]

Salut,

Comme d'habitude, il faut au minimum déboguer avec XRay pour comprendre ce que l'on fait.
Dans ton cas, voici ce que me renvoie ta variable fichier :

capture.png

Je te laisse le soin de comprendre ton erreur en affichant le chemin que tu interroges avec Dir()

[jeanmi2403]

Bonjour,
Il manque "\" à la fin du chemin. Et "*.*" est superflu
Voilà ce que donne monsieur Gogol en cherchant "Dir OooBasic" :
dans la Documentation Basic OpenOffice
Bonne soirée.

[OOo - Ekel]

Bonsoir,

Pas la peine de ... Dernière visite : 09 sept. 2024 12:34.

Cordialement

[Bidouille]

Dernière visite : 09 sept. 2024 12:34.

Effectivement, je clos donc le fil