Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exempl e des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exempl e des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exempl e des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exemple des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exemple des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)
Etant novice dans le domaine, pourriez vous me rédiger pour exemple des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
mais c'est ce n'est pas si simple que ça. Tu dois passer par
ADO (activex data object). Si tu y tiens, tu peux aller sur le
Site internet de Misange http://www.excelabo.net tu vas
pouvoir télécharger quelques fichiers exemple dont celui-ci
que j'ai commis : dm-basedonnee.zip
'--------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:UsersPowerUser"
Fichier = "AppelMacro1.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True
End Sub
'--------------------------------
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" a écrit dans le message de groupe de discussion :
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" <Yves@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
C49DE4E9-B15E-42C0-A11C-C96827FA757B@microsoft.com...
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" a écrit dans le message de groupe de discussion :
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" a écrit dans le message de groupe de discussion
:
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" <Yves@discussions.microsoft.com> a écrit dans le message de groupe de discussion
:
C49DE4E9-B15E-42C0-A11C-C96827FA757B@microsoft.com...
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>
Je te suggère de prendre ton problème par l'autre bout de la lorgnette.
Au lieu d'exporter vers ton fichier Bilan Annuel, pourquoi
ne pas importer tes données à partir de ton fichier
bilan annuel... selon c'est beaucoup plus simple.
Si tu travailles avec un classeur modèle, où chaque classeur
est conçu de la même manière, les feuilles ont le même nom
que la plage à importer est la même, que tous tes classeurs
se retrouvent dans le même répertoire, Alors là, je peux te
proposer quelque chose. Pour faire cette macro, j'ai besoin :
a) adresse de la plage de cellules que tu veux importer
B ) nom de la feuille (en supposant qu'elle soit la même)
C ) Le chemin où se retrouve tes classeurs
(seuls les classeurs pertinents se retrouvent dans ce répertoire)
D ) Le lieux de leur destination, tu doit être plus précis
que "Dans les colonnes A:H." , Tu dis avoir
80 classeurs. De quelles façons doivent être réparties
dans 8 colonnes ?
"Yves" a écrit dans le message de groupe de discussion
:
je me suis rendu compte que ma question n'est pas correctement formulée...
En fait, dans [classeur1 feuil1], A3:A10 est une synthèse de cette feuil.
Je vais avoir environ 80 [classeur1 feuil1] par an.
[Classeur 2 feuil1] sera mon fichier "Bilan annuel". Ainsi en cliquant dans
mes fichiers [classeur1 feuil1] il faudrait pouvoir exporter mes "synthèses"
A3:A10 vers mon "Bilan annuel" [classeur 2 feuil1] Dans les colonnes A:H.
C'est pas tout à fait ce que j'exprimais la première fois. Désolé.
Je pensais à un bouton "EXPORT" dans les fichiers [classeur1 feuil1].
Si jamais vous avez d'autres manière de faire (peut être plus simple...)...
Sinon, j'ai essayé d'accéder à votre "dm-basedonnee.zip" mais je n'ai pas
réussi à le trouver sur excelabo.net ...
D'avance merci
PS: Si ce n'était pour une petite association sans budget, je passerai par
un service de developpement, mais, je doit me débrouiller. Pour
l'organisation des fichiers, les formules de calcul & co pas de soucis. Mais
ce fichu export... Seul, ça m'est impossible.
Yves
"michdenis" a écrit :
> Je te propose plutôt ceci. Écrire dans un fichier c'est réalisable
> mais c'est ce n'est pas si simple que ça. Tu dois passer par
> ADO (activex data object). Si tu y tiens, tu peux aller sur le
> Site internet de Misange http://www.excelabo.net tu vas
> pouvoir télécharger quelques fichiers exemple dont celui-ci
> que j'ai commis : dm-basedonnee.zip
>
> '--------------------------------
> Sub test()
> Dim Chemin As String, Fichier As String
> Dim wk As Workbook
>
> '*******Variable à définir**************
> Chemin = "C:UsersPowerUser"
> Fichier = "AppelMacro1.xls"
> '***************************************
>
> Application.ScreenUpdating = False
> Set wk = Workbooks.Open(Chemin & Fichier)
> ThisWorkbook.Worksheets("Feuil1").Range("A3:A10").Copy
> wk.Worksheets("Feuil1").Range("A3:H3").PasteSpecial xlPasteAll, , , True
> Application.CutCopyMode = True
> wk.Close True
> End Sub
> '--------------------------------
>