Petit problème sans doute de syntaxe !!!
J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier
dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je
souhaite copier des informations dans d'autres fichiers. J'ai essayé de
nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans
résultats : toujours des messages d'erreurs.
Sub Macro5()
Dim Fichier As String
Année = [J5]
Fichier = "Récap_Coli_" & Année & ".xls"
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichier
Fichier.Sheets("Années").Cells.Copy _
Workbooks("Classeur1.xls").Sheets("Feuil1").Cells
End Sub
Cordialement. Daniel "JacquesH" a écrit dans le message de news:
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!! J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je souhaite copier des informations dans d'autres fichiers. J'ai essayé de nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans résultats : toujours des messages d'erreurs.
Sub Macro5() Dim Fichier As String Année = [J5] Fichier = "Récap_Coli_" & Année & ".xls" Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _ Workbooks("Classeur1.xls").Sheets("Feuil1").Cells End Sub
Cordialement.
Daniel
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: eEXVE84NGHA.720@TK2MSFTNGP14.phx.gbl...
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!!
J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier
dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je
souhaite copier des informations dans d'autres fichiers. J'ai essayé de
nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans
résultats : toujours des messages d'erreurs.
Sub Macro5()
Dim Fichier As String
Année = [J5]
Fichier = "Récap_Coli_" & Année & ".xls"
Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _
Workbooks("Classeur1.xls").Sheets("Feuil1").Cells
End Sub
Cordialement. Daniel "JacquesH" a écrit dans le message de news:
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!! J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je souhaite copier des informations dans d'autres fichiers. J'ai essayé de nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans résultats : toujours des messages d'erreurs.
Sub Macro5() Dim Fichier As String Année = [J5] Fichier = "Récap_Coli_" & Année & ".xls" Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _ Workbooks("Classeur1.xls").Sheets("Feuil1").Cells End Sub
Quelqu'un peut-il me donner une idée ?
Merci d'avance
Jacques
JacquesH
Bonjour Daniel,
Evidemment !!! Pourquoi n'avais-je pas testé cela ??? Sans doute parce qu'il faut que je travaille encore plus mon VBA et que je vienne encore plus sur le forum "écouter les maîtres"...
Cordialement. Daniel "JacquesH" a écrit dans le message de news:
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!! J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je souhaite copier des informations dans d'autres fichiers. J'ai essayé de nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans résultats : toujours des messages d'erreurs.
Sub Macro5() Dim Fichier As String Année = [J5] Fichier = "Récap_Coli_" & Année & ".xls" Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _ Workbooks("Classeur1.xls").Sheets("Feuil1").Cells End Sub
Quelqu'un peut-il me donner une idée ?
Merci d'avance
Jacques
Bonjour Daniel,
Evidemment !!! Pourquoi n'avais-je pas testé cela ??? Sans doute parce
qu'il faut que je travaille encore plus mon VBA et que je vienne encore
plus sur le forum "écouter les maîtres"...
Cordialement.
Daniel
"JacquesH" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: eEXVE84NGHA.720@TK2MSFTNGP14.phx.gbl...
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!!
J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier
dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je
souhaite copier des informations dans d'autres fichiers. J'ai essayé de
nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans
résultats : toujours des messages d'erreurs.
Sub Macro5()
Dim Fichier As String
Année = [J5]
Fichier = "Récap_Coli_" & Année & ".xls"
Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _
Workbooks("Classeur1.xls").Sheets("Feuil1").Cells
End Sub
Evidemment !!! Pourquoi n'avais-je pas testé cela ??? Sans doute parce qu'il faut que je travaille encore plus mon VBA et que je vienne encore plus sur le forum "écouter les maîtres"...
Cordialement. Daniel "JacquesH" a écrit dans le message de news:
Bonjour à toutes et tous,
Petit problème sans doute de syntaxe !!! J'ai la Macro suivante qui fonctionne très bien pour ouvrir un fichier dont le nom contient une année que je choisis dans une liste déroulante.
Mon problème concerne la seconde partie car à partir de ce fichier, je souhaite copier des informations dans d'autres fichiers. J'ai essayé de nombreuses syntaxes : [Fichier] - Workbooks("Fichier")... sans résultats : toujours des messages d'erreurs.
Sub Macro5() Dim Fichier As String Année = [J5] Fichier = "Récap_Coli_" & Année & ".xls" Workbooks.Open Filename:=ThisWorkbook.Path & "" & Fichier
Fichier.Sheets("Années").Cells.Copy _ Workbooks("Classeur1.xls").Sheets("Feuil1").Cells End Sub
