je souhaite créer une macro qui copie et colle des infos provenant d'un
autre fichier.
En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon
fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce
possible ?
Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il
selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06()
'
Windows("fiche-X.xls").Activate
Sheets("2006").Select
Range("A1:O19").Select
Selection.Copy
Windows("ANALYSE.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
Si les 2 fichiers sont dans le mm répertoire
sinon faut renseigner "chemin"
Sub Macro1()
'R est la ligne k
'C1 est la colonne 1
chemin = "'" & ThisWorkbook.Path & ""
For k = 1 To 10
'Feuil1.Cells(ligne, colonne)
Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _
(chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Next
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1316E37B-F5AE-449F-B697-103B28548787@microsoft.com...
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un
autre fichier.
En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon
fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext
ce
possible ?
Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il
selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06()
'
Windows("fiche-X.xls").Activate
Sheets("2006").Select
Range("A1:O19").Select
Selection.Copy
Windows("ANALYSE.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
Sunburn
Merci Youky pour cette réponse rapide. En effet, dans ma situation, mes deux fichiers sont dans le même dossier. Donc que dois-je utiliser comme macro? (j'y connais peu,désolé). Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
Merci Youky pour cette réponse rapide.
En effet, dans ma situation, mes deux fichiers sont dans le même dossier.
Donc que dois-je utiliser comme macro? (j'y connais peu,désolé).
Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire
sinon faut renseigner "chemin"
Sub Macro1()
'R est la ligne k
'C1 est la colonne 1
chemin = "'" & ThisWorkbook.Path & ""
For k = 1 To 10
'Feuil1.Cells(ligne, colonne)
Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _
(chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Next
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1316E37B-F5AE-449F-B697-103B28548787@microsoft.com...
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un
autre fichier.
En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon
fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext
ce
possible ?
Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il
selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06()
'
Windows("fiche-X.xls").Activate
Sheets("2006").Select
Range("A1:O19").Select
Selection.Copy
Windows("ANALYSE.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Merci Youky pour cette réponse rapide. En effet, dans ma situation, mes deux fichiers sont dans le même dossier. Donc que dois-je utiliser comme macro? (j'y connais peu,désolé). Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
Youky
remplace "monfichier" par le vrai nom de ton classeur et "nomonglet" par le nom de la page ,exemple .....Feuil1 (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Feuil1.Cells(k, 2) = Application................ Remplace aussi Feuil1 si le nom est différent, c'est la page ou s'écrit les données Encore si tu veux que les données s'écrivent plus bas exemple à partir de la ligne 10 tu mets Feuil1.Cells(k+9, 2) = Application..... N'hésite pas à faire des essais sur des copies, c'est la seule facon d'apprendre Youky
"Sunburn" a écrit dans le message de news:
Merci Youky pour cette réponse rapide. En effet, dans ma situation, mes deux fichiers sont dans le même dossier. Donc que dois-je utiliser comme macro? (j'y connais peu,désolé). Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
remplace "monfichier" par le vrai nom de ton classeur et "nomonglet" par le
nom de la page ,exemple .....Feuil1
(chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Feuil1.Cells(k, 2) = Application................
Remplace aussi Feuil1 si le nom est différent, c'est la page ou s'écrit les
données
Encore si tu veux que les données s'écrivent plus bas exemple à partir de la
ligne 10 tu mets
Feuil1.Cells(k+9, 2) = Application.....
N'hésite pas à faire des essais sur des copies, c'est la seule facon
d'apprendre
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: CB73B2C8-E56F-4F09-BADF-27892E42BCBC@microsoft.com...
Merci Youky pour cette réponse rapide.
En effet, dans ma situation, mes deux fichiers sont dans le même dossier.
Donc que dois-je utiliser comme macro? (j'y connais peu,désolé).
Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire
sinon faut renseigner "chemin"
Sub Macro1()
'R est la ligne k
'C1 est la colonne 1
chemin = "'" & ThisWorkbook.Path & ""
For k = 1 To 10
'Feuil1.Cells(ligne, colonne)
Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _
(chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Next
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1316E37B-F5AE-449F-B697-103B28548787@microsoft.com...
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un
autre fichier.
En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon
fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X".
Ext
ce
possible ?
Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t
il
selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06()
'
Windows("fiche-X.xls").Activate
Sheets("2006").Select
Range("A1:O19").Select
Selection.Copy
Windows("ANALYSE.xls").Activate
Range("A1").Select
ActiveSheet.Paste
remplace "monfichier" par le vrai nom de ton classeur et "nomonglet" par le nom de la page ,exemple .....Feuil1 (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1")
Feuil1.Cells(k, 2) = Application................ Remplace aussi Feuil1 si le nom est différent, c'est la page ou s'écrit les données Encore si tu veux que les données s'écrivent plus bas exemple à partir de la ligne 10 tu mets Feuil1.Cells(k+9, 2) = Application..... N'hésite pas à faire des essais sur des copies, c'est la seule facon d'apprendre Youky
"Sunburn" a écrit dans le message de news:
Merci Youky pour cette réponse rapide. En effet, dans ma situation, mes deux fichiers sont dans le même dossier. Donc que dois-je utiliser comme macro? (j'y connais peu,désolé). Je te remercie.
Yann
Si les 2 fichiers sont dans le mm répertoire sinon faut renseigner "chemin" Sub Macro1() 'R est la ligne k 'C1 est la colonne 1 chemin = "'" & ThisWorkbook.Path & "" For k = 1 To 10 'Feuil1.Cells(ligne, colonne) Feuil1.Cells(k, 2) = Application.ExecuteExcel4Macro _ (chemin & "[monfichier.xls]nomonglet'!R" & k & "C1") Next End Sub
Youky
"Sunburn" a écrit dans le message de news:
Bonjour,
je souhaite créer une macro qui copie et colle des infos provenant d'un autre fichier. En fait, je veux copier les éléments de la "fiche-X" , A1 à A19 sur mon fichier sur lequel je travail, mais sans ouvrir le fichier "fiche-X". Ext ce possible ? Voilà ce que j'ai fais pour l'instant, et ça ne fonctionne pas. Y'a t il selon vous une possibilité que ça marche? Merci. Yann
Sub CopieTab06() ' Windows("fiche-X.xls").Activate Sheets("2006").Select Range("A1:O19").Select Selection.Copy Windows("ANALYSE.xls").Activate Range("A1").Select ActiveSheet.Paste
