Probleme de library

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme de library

fufu33

Salut tout le monde,

Je souhaite realiser un enregistrement de fichier dans un autre dossier.
J'ai realise cette macro avec l'aide d'un ami qui lui l'a teste sur son PC perso(excel version 2007) ca fonctionnait.moi sur mom PC perso Version 2003 d'excel ca ne fonctionnait pas. Y a t'il un probleme de Library ou est ce que c'est mon code qui ne fonctionne pas?

Chemin1 est le chemin ou est situe mon fichier a sovegarder
Chemin2 est le dossier ou je souhaite sauvegarder mon fichier qui se trouve dans le chemin1.
NonFichier est le fichier a sauvegarder dans le chemin2

1.Sub backup2()

2.Dim chemin1, chemin2 As String
3.chemin1 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\"
4.chemin2 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\Weekly save\"
5.Nomfichier = "Audits Sheets DV4.xls"

6.Dim FSO As Scripting
7.Dim Fichier As Scripting.File
8.Dim Fichier As Scripting.Folders

9.Set FSO = New Scripting.FileSystemObject
10.Set DossierSource = FSO.GetFolder(chemin2)

11.For Each Fichier In DossierSource.Files
12. If Fichier = Nomfichier Then Fichier.Delete
13.Next Fichier

14.Set DossierSource = FSO.GetFolder(chemin1)
15.For Each Fichier In DossierSource.Files
16. If Fichier.Name = Nomfichier And DateDiff("d", Fichier.DateLastModified, Now) <> 3 Then
17. Application.DisplayAlerts = False
18. ActiveWorkbook.SaveCopyAs (chemin2 + Nomfichier)
19. End If
20.Next Fichier

21. Set Fichier = Nothing
22. Set DossierSource = Nothing
23. Set FSO = Nothing

24.End Sub

Merci d'avance.

Publicité

Moonschild

Au risque d'apparaitre comme le plus con du monde, tu veux juste copier un fichier que tu nommes d'un dossier a un autre?

Code :

private sub Button1_click()
dim chemin1, chemin2, Nomfichier, Nomfichier1, Nomfichier2
chemin1 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\"
chemin2 = "W:\Tiger\Students\Nicolas Fumard\DOCK AUDITS SHEETS\DV4\Weekly save\"
Nomfichier = "Audits Sheets DV4.xls"
Nomfichier1 = chemin1 & nomfichier
Nomfichier2 = chemin2 & nomfichier
if FileExists(Nomfichier1) = true then 'test pour verifier que le fichier a copier existe
if FileExists(Nomfichier2) = true then 'test pour verifier si le dossier de destination contient deja ce fichier
rep = MsgBox("Le fichier " & Nomfichier & " existe deja dans " & chemin2 & Chr(13) & "Supprimer le fichier?", vbExclamation + vbOKCancel, "erreur" )
If rep = 1 Then
Kill (Nomfichier2) 'suppression du fichier dans le dossier de reception
FileCopy Nomfichier1 Nomfichier2
End If
else
FileCopy Nomfichier1 Nomfichier2
end if
Else
msgbox ("le fichier a copier n'existe pas" )
end if
end sub
Function FileExists(ByVal fname As String) As Boolean
Dim x As String
x = Dir(fname)
If x <> "" Then FileExists = True Else FileExists = False
End Function

Désolé si je suis hors sujet, mais je n'aurai, dans ce cas, pas compris le sens de ta demande...

---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Probleme de library

Sujets relatifs
probleme affichage dans fausse popup	[Javascript] - onBeforeUnload, problème de rafraichissement
probleme compilation	[Résolu] Problème d'upload de fichier
Problème de mailto la messagerie ne souvre pas sur tout les ordis!	[C C++] problème Gnu scientific library 1.8 avec Dev-C++
Probleme de using library en c#	probléme avec visual C++ library
Probléme visual C++ library error	problème avec les library VBa access 2000
Plus de sujets relatifs à : Probleme de library

Page générée en 0.072 secondes