Macro Duplicata

[isabelle29]

Bonjour,

S'il vous plait comment faire un duplicata d'un fichier .xls en fonction rang ("a1")
rang ("a1")=nombre de duplicata

Merci de votre réponse,

 

[youky(BJ)]

Bonjour Isabelle,
Comme on peut pas avoir plusieurs fichiers de même nom je mets (1)
Bruno

On Error Resume Next
for k= 1 to Feuil1.[A1] ' feuil1 se voit en vba projet à adapter
Fichier_A_Dupliquer = ThisWorkbook.Path & "\MonFichier.xls" 'A adapter
FichierDestination = ThisWorkbook.Path & "\MonFichier(" & k & ").xls"  'A adapter chemin et nom du fichier
FileCopy Fichier_A_Dupliquer, FichierDestination
Next

 

[isabelle29]

Bonsoir Bruno,
D'accord je vais l'essayer.
Merci beaucoup de votre réponse.

 

[isabelle29]

Bonjour Bruno ,
Excuse moi mais je n'ai pas bien compris votre code . Le fichier destinateur représente quoi dans le code ?
Car normalement, je n'ai pas un fichier destinateur je dois juste avoir une macro qui me permets de faire un duplicat de 10 fichiers
Merci d'avance de votre réponse ,
Bonne journée ,

 

[youky(BJ)]

RE,
La variable FichierDestination doit indiquer le chemin et le nom souhaité du fichier
A savoir que le fichier recopié on peut lui changer de nom et de chemin
Thisworkbook.path renvoie le chemin du fichier ou tu lance la macro, remplace MonFichier par le nom que tu souhaite lui donner.
Bruno

 

[isabelle29]

Merci énormément le code fonction parfaitement
j'ai juste déclaré la variable k située dans quel range après la boucle est bouclée

 

[isabelle29]

Permettez moi M.Bruno, d'abuser de votre gentillesse
Je suis bloquée au niveau d'ouvrir un fichier dont le répertoire il y'a une variable inconnue
c-à-d:
chemin ="C:\dossier\facturex\tva.xls"
avec X=variable
(NB:facturex existe une seule fois )
j'ai essayé ="C:\dossier\facture"& "*" & "\tva.xls"
et ça marche pas
S'il vous plait si vous avez une solution .

Merci d'avance

 

[youky(BJ)]

Bonsoir Isabelle,
Voici, mais non testé j'ai fait ce code en pompant un de mes codes sans utiliser Excel alors . . .
Si besoin déclare les variables moi j'ai tors je le fait pas
Bruno

MyPath = "C:\dossier\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
    If MyName <> "." And MyName <> ".." Then ' Ignore le répertoire courant
   'regarde si répertoire
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            If Left(MyName, 7) = "facture" Then 
              MyFic = MyPath & MyName "\tva.xls":exit do
           end if
loop
On Error Resume Next
workbook.open(MyFic)
 If Err <> 0 Then msgbox "TVA.xls Non trouvé !":exit sub

 

[isabelle29]

Merci, avec quelques modifications le code marche bien