j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre
fichier excel ferm=E9 qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais
copier/coller valeur et format de cet onglet dans le classeur ferm=E9
dans l'onglet data1.
Un excellent tutorial : http://silkyroad.developpez.com/VBA/ClasseursFermes/ qui devrait te permettre de faire ce que tu souhaites.
Cordialement,
F.
michdenis
Bonjour,
Une macro comme ceci devrait être suffisant et beaucoup plus facile à mettre en application.
'------------------------------------- Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir Chemin = "c:LeChemin" 'Nom du fichier à ouvrir Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran Application.ScreenUpdating = False
'Ouverture du fichier Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce 'classeur où tu as écris la macro vers la feuille data1 'du fichier_à_ouvrir 'La copie s'affectue comme si tu n'avais pas de données 'dans la feuille "data1" du fichier_à_ouvrir. ThisWorkbook.Worksheets("Data1").UsedRange.Copy _ Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true Application.ScreenUpdating = True End Sub '-------------------------------------
"sleg" a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais copier/coller valeur et format de cet onglet dans le classeur fermé dans l'onglet data1.
est ce possible et si oui comment ?
Merci de votre aide.
Bonjour,
Une macro comme ceci devrait être suffisant et
beaucoup plus facile à mettre en application.
'-------------------------------------
Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir
Chemin = "c:LeChemin"
'Nom du fichier à ouvrir
Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
'Ouverture du fichier
Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce
'classeur où tu as écris la macro vers la feuille data1
'du fichier_à_ouvrir
'La copie s'affectue comme si tu n'avais pas de données
'dans la feuille "data1" du fichier_à_ouvrir.
ThisWorkbook.Worksheets("Data1").UsedRange.Copy _
Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer
Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true
Application.ScreenUpdating = True
End Sub
'-------------------------------------
"sleg" <bastientot@gmail.com> a écrit dans le message de groupe de discussion :
9b4a1e25-89cf-4541-9ece-1a06c6ac0d8a@z26g2000yqm.googlegroups.com...
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre
fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais
copier/coller valeur et format de cet onglet dans le classeur fermé
dans l'onglet data1.
Une macro comme ceci devrait être suffisant et beaucoup plus facile à mettre en application.
'------------------------------------- Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir Chemin = "c:LeChemin" 'Nom du fichier à ouvrir Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran Application.ScreenUpdating = False
'Ouverture du fichier Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce 'classeur où tu as écris la macro vers la feuille data1 'du fichier_à_ouvrir 'La copie s'affectue comme si tu n'avais pas de données 'dans la feuille "data1" du fichier_à_ouvrir. ThisWorkbook.Worksheets("Data1").UsedRange.Copy _ Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true Application.ScreenUpdating = True End Sub '-------------------------------------
"sleg" a écrit dans le message de groupe de discussion :
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais copier/coller valeur et format de cet onglet dans le classeur fermé dans l'onglet data1.
est ce possible et si oui comment ?
Merci de votre aide.
sleg
BOnjour,
merci a tous je vais tester
bon week end
On 5 fév, 02:10, "michdenis" wrote:
Bonjour,
Une macro comme ceci devrait être suffisant et beaucoup plus facile à mettre en application.
'------------------------------------- Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir Chemin = "c:LeChemin" 'Nom du fichier à ouvrir Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran Application.ScreenUpdating = False
'Ouverture du fichier Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce 'classeur où tu as écris la macro vers la feuille data1 'du fichier_à_ouvrir 'La copie s'affectue comme si tu n'avais pas de données 'dans la feuille "data1" du fichier_à_ouvrir. ThisWorkbook.Worksheets("Data1").UsedRange.Copy _ Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true Application.ScreenUpdating = True End Sub '-------------------------------------
"sleg" a écrit dans le message de groupe de disc ussion :
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais copier/coller valeur et format de cet onglet dans le classeur fermé dans l'onglet data1.
est ce possible et si oui comment ?
Merci de votre aide.
BOnjour,
merci a tous je vais tester
bon week end
On 5 fév, 02:10, "michdenis" <michde...@hotmail.com> wrote:
Bonjour,
Une macro comme ceci devrait être suffisant et
beaucoup plus facile à mettre en application.
'-------------------------------------
Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir
Chemin = "c:LeChemin"
'Nom du fichier à ouvrir
Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
'Ouverture du fichier
Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce
'classeur où tu as écris la macro vers la feuille data1
'du fichier_à_ouvrir
'La copie s'affectue comme si tu n'avais pas de données
'dans la feuille "data1" du fichier_à_ouvrir.
ThisWorkbook.Worksheets("Data1").UsedRange.Copy _
Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer
Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true
Application.ScreenUpdating = True
End Sub
'-------------------------------------
"sleg" <bastien...@gmail.com> a écrit dans le message de groupe de disc ussion :
9b4a1e25-89cf-4541-9ece-1a06c6ac0...@z26g2000yqm.googlegroups.com...
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre
fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais
copier/coller valeur et format de cet onglet dans le classeur fermé
dans l'onglet data1.
Une macro comme ceci devrait être suffisant et beaucoup plus facile à mettre en application.
'------------------------------------- Sub test()
Dim Chemin As String, Fichier As String
'Chemin où se trouve le fichier à ouvrir Chemin = "c:LeChemin" 'Nom du fichier à ouvrir Fichier = "classeur1.xls"
'Empêche le raffraichissement de l'écran Application.ScreenUpdating = False
'Ouverture du fichier Workbooks.Open Chemin & Fichier
'Copie des données de la feuille Data1 de ce 'classeur où tu as écris la macro vers la feuille data1 'du fichier_à_ouvrir 'La copie s'affectue comme si tu n'avais pas de données 'dans la feuille "data1" du fichier_à_ouvrir. ThisWorkbook.Worksheets("Data1").UsedRange.Copy _ Workbooks(Fichier).Worksheets("Data1").Range("A1")
'pour fermer le classeur que tu viens d'ouvrir et l'enregistrer Workbooks(Fichier).Close True
'le raffraichissement de l'écran à true Application.ScreenUpdating = True End Sub '-------------------------------------
"sleg" a écrit dans le message de groupe de disc ussion :
BOnjour,
j'aimerais par macro ecrire d'un fichier excel ouvert dans un autre fichier excel fermé qu(il faudra ouvrir a l'execution de la macro.
je m'explique :
dans un fichier file1.xls un onglet data1 avec des TCD et j'aimerais copier/coller valeur et format de cet onglet dans le classeur fermé dans l'onglet data1.