Je n'ai pas trouvé ou peut-être pas su chercher sur Excel Labo ! Malgré
l'édition de plus de 40 pages
Voici mon problème.
Aprtir d'un fichier Excel actif je souhaite copier un fichier qui se trouve
dans une arborescence dans une autre en lui donnant un autre nom le tout
sans l'ouvrir bien sûr !
le "SaveCopyAs" me pose quelques problèmes. Puisque les exemples partent
toujours de "ThisWorkBook".
Le Code ci dessous ne me convient pas puisque "name" me déplace le fichier
d'origine en le renommant. Du coup, je ne peux plus renouveller l'opération
à volonté.
Ne me dites pas que j'ai épuisé toutes les ressources de VBA !
Merci de me donner un petit coup de main !
Cordialement,
Michel
' A terme, "2287" sera une variable récupérée dans une cellule
Public Sub Sve_cpy()
Dim Path As String
Path = ThisWorkbook.Path & "\2287\"
Name ThisWorkbook.Path & "\" & "SYNTH.XLS" As Path & "2287_SYNTH.XLS"
End Sub
"fleury.fontaine" a écrit dans le message de news: 4472b370$0$18335$
Bonjour à tous,
Je n'ai pas trouvé ou peut-être pas su chercher sur Excel Labo ! Malgré l'édition de plus de 40 pages Voici mon problème.
Aprtir d'un fichier Excel actif je souhaite copier un fichier qui se trouve dans une arborescence dans une autre en lui donnant un autre nom le tout sans l'ouvrir bien sûr ! le "SaveCopyAs" me pose quelques problèmes. Puisque les exemples partent toujours de "ThisWorkBook". Le Code ci dessous ne me convient pas puisque "name" me déplace le fichier d'origine en le renommant. Du coup, je ne peux plus renouveller l'opération à volonté. Ne me dites pas que j'ai épuisé toutes les ressources de VBA ! Merci de me donner un petit coup de main ! Cordialement, Michel
' A terme, "2287" sera une variable récupérée dans une cellule
Public Sub Sve_cpy() Dim Path As String Path = ThisWorkbook.Path & "2287" Name ThisWorkbook.Path & "" & "SYNTH.XLS" As Path & "2287_SYNTH.XLS" End Sub
"fleury.fontaine" <fleury.fontaine@wanadoo.fr> a écrit dans le message de
news: 4472b370$0$18335$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Je n'ai pas trouvé ou peut-être pas su chercher sur Excel Labo ! Malgré
l'édition de plus de 40 pages
Voici mon problème.
Aprtir d'un fichier Excel actif je souhaite copier un fichier qui se
trouve
dans une arborescence dans une autre en lui donnant un autre nom le tout
sans l'ouvrir bien sûr !
le "SaveCopyAs" me pose quelques problèmes. Puisque les exemples partent
toujours de "ThisWorkBook".
Le Code ci dessous ne me convient pas puisque "name" me déplace le fichier
d'origine en le renommant. Du coup, je ne peux plus renouveller
l'opération
à volonté.
Ne me dites pas que j'ai épuisé toutes les ressources de VBA !
Merci de me donner un petit coup de main !
Cordialement,
Michel
' A terme, "2287" sera une variable récupérée dans une cellule
Public Sub Sve_cpy()
Dim Path As String
Path = ThisWorkbook.Path & "2287"
Name ThisWorkbook.Path & "" & "SYNTH.XLS" As Path & "2287_SYNTH.XLS"
End Sub
"fleury.fontaine" a écrit dans le message de news: 4472b370$0$18335$
Bonjour à tous,
Je n'ai pas trouvé ou peut-être pas su chercher sur Excel Labo ! Malgré l'édition de plus de 40 pages Voici mon problème.
Aprtir d'un fichier Excel actif je souhaite copier un fichier qui se trouve dans une arborescence dans une autre en lui donnant un autre nom le tout sans l'ouvrir bien sûr ! le "SaveCopyAs" me pose quelques problèmes. Puisque les exemples partent toujours de "ThisWorkBook". Le Code ci dessous ne me convient pas puisque "name" me déplace le fichier d'origine en le renommant. Du coup, je ne peux plus renouveller l'opération à volonté. Ne me dites pas que j'ai épuisé toutes les ressources de VBA ! Merci de me donner un petit coup de main ! Cordialement, Michel
' A terme, "2287" sera une variable récupérée dans une cellule
Public Sub Sve_cpy() Dim Path As String Path = ThisWorkbook.Path & "2287" Name ThisWorkbook.Path & "" & "SYNTH.XLS" As Path & "2287_SYNTH.XLS" End Sub
