Bonjour à tous,
voici mon souci : je veux créer une macro dans un fichier que je nomme
:"Fichier Macros Impression.xls" qui ouvre des fichiers sucessifs "Fichier
1.xls" , "Fichier 2.xls", ect.. pour imprimer deux onglets de chacun de ces
fichiers.
Voici ce que j'ai testé ci-dessous et j'ai une erreur au 2ieme fichier
lorsque je veux selectionner le 1er onglet.
Pouvez-vous me dire ou est l'erreur surtout que ça fonctionne avec le
premier fichier appellé ? Merci de votre aide à tous.
regis.mathieu4@wanadoo.fr
Régis MATHIEU
Sub Impression()
Dim Noms_Fichiers, Noms_Feuilles
Noms_Fichiers = Array("Fichier 1.xls", "Fichier 2.xls")
Noms_Feuilles = Array("Feuille1", "Feuille2")
' Boucle d'ouverture des fichiers à imprimer
For i = 0 To 1
Fichier_a_ouvrir = "C:\Documents and Settings\REGIS\Bureau\Test
Impression\" & Noms_Fichiers(i)
Workbooks.Open Filename:=Fichier_a_ouvrir
Windows(Noms_Fichiers(i)).Activate
Fichier_Actif = ActiveWorkbook.Name
' Boucle d'impression des 2 feuilles de chaque fichier
For j = 0 To 1
' Selection de la fenetre 1 puis de la fenetre 2
Sheets(Noms_Feuilles(j)).Select
Nom_Feuille_Active = ActiveSheet.Name
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next j
'Fermeture du fichier après impression de ses deux feuilles
Fichier_Actif = ActiveWorkbook.Name
ActiveWorkbook.Close
'Passage au fichier suivant
Next i
End Sub
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
Daniel
Bonjour. Ça fonctionne bien chez moi. Es-tu sûr du chemin et noms des fichiers et des onglets. Cordialement. Daniel "Mathieu" a écrit dans le message de news: %
Bonjour à tous, voici mon souci : je veux créer une macro dans un fichier que je nomme :"Fichier Macros Impression.xls" qui ouvre des fichiers sucessifs "Fichier 1.xls" , "Fichier 2.xls", ect.. pour imprimer deux onglets de chacun de ces fichiers. Voici ce que j'ai testé ci-dessous et j'ai une erreur au 2ieme fichier lorsque je veux selectionner le 1er onglet. Pouvez-vous me dire ou est l'erreur surtout que ça fonctionne avec le premier fichier appellé ? Merci de votre aide à tous.
Régis MATHIEU
Sub Impression() Dim Noms_Fichiers, Noms_Feuilles Noms_Fichiers = Array("Fichier 1.xls", "Fichier 2.xls") Noms_Feuilles = Array("Feuille1", "Feuille2") ' Boucle d'ouverture des fichiers à imprimer For i = 0 To 1 Fichier_a_ouvrir = "C:Documents and SettingsREGISBureauTest Impression" & Noms_Fichiers(i) Workbooks.Open Filename:=Fichier_a_ouvrir Windows(Noms_Fichiers(i)).Activate Fichier_Actif = ActiveWorkbook.Name ' Boucle d'impression des 2 feuilles de chaque fichier For j = 0 To 1 ' Selection de la fenetre 1 puis de la fenetre 2 Sheets(Noms_Feuilles(j)).Select Nom_Feuille_Active = ActiveSheet.Name 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next j 'Fermeture du fichier après impression de ses deux feuilles Fichier_Actif = ActiveWorkbook.Name ActiveWorkbook.Close 'Passage au fichier suivant Next i End Sub
Bonjour.
Ça fonctionne bien chez moi. Es-tu sûr du chemin et noms des fichiers et des
onglets.
Cordialement.
Daniel
"Mathieu" <regis.mathieu4@wanadoo.fr> a écrit dans le message de news:
%23OzDwgTKFHA.3640@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
voici mon souci : je veux créer une macro dans un fichier que je nomme
:"Fichier Macros Impression.xls" qui ouvre des fichiers sucessifs "Fichier
1.xls" , "Fichier 2.xls", ect.. pour imprimer deux onglets de chacun de
ces
fichiers.
Voici ce que j'ai testé ci-dessous et j'ai une erreur au 2ieme fichier
lorsque je veux selectionner le 1er onglet.
Pouvez-vous me dire ou est l'erreur surtout que ça fonctionne avec le
premier fichier appellé ? Merci de votre aide à tous.
regis.mathieu4@wanadoo.fr
Régis MATHIEU
Sub Impression()
Dim Noms_Fichiers, Noms_Feuilles
Noms_Fichiers = Array("Fichier 1.xls", "Fichier 2.xls")
Noms_Feuilles = Array("Feuille1", "Feuille2")
' Boucle d'ouverture des fichiers à imprimer
For i = 0 To 1
Fichier_a_ouvrir = "C:Documents and SettingsREGISBureauTest
Impression" & Noms_Fichiers(i)
Workbooks.Open Filename:=Fichier_a_ouvrir
Windows(Noms_Fichiers(i)).Activate
Fichier_Actif = ActiveWorkbook.Name
' Boucle d'impression des 2 feuilles de chaque fichier
For j = 0 To 1
' Selection de la fenetre 1 puis de la fenetre 2
Sheets(Noms_Feuilles(j)).Select
Nom_Feuille_Active = ActiveSheet.Name
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next j
'Fermeture du fichier après impression de ses deux feuilles
Fichier_Actif = ActiveWorkbook.Name
ActiveWorkbook.Close
'Passage au fichier suivant
Next i
End Sub
Bonjour. Ça fonctionne bien chez moi. Es-tu sûr du chemin et noms des fichiers et des onglets. Cordialement. Daniel "Mathieu" a écrit dans le message de news: %
Bonjour à tous, voici mon souci : je veux créer une macro dans un fichier que je nomme :"Fichier Macros Impression.xls" qui ouvre des fichiers sucessifs "Fichier 1.xls" , "Fichier 2.xls", ect.. pour imprimer deux onglets de chacun de ces fichiers. Voici ce que j'ai testé ci-dessous et j'ai une erreur au 2ieme fichier lorsque je veux selectionner le 1er onglet. Pouvez-vous me dire ou est l'erreur surtout que ça fonctionne avec le premier fichier appellé ? Merci de votre aide à tous.
Régis MATHIEU
Sub Impression() Dim Noms_Fichiers, Noms_Feuilles Noms_Fichiers = Array("Fichier 1.xls", "Fichier 2.xls") Noms_Feuilles = Array("Feuille1", "Feuille2") ' Boucle d'ouverture des fichiers à imprimer For i = 0 To 1 Fichier_a_ouvrir = "C:Documents and SettingsREGISBureauTest Impression" & Noms_Fichiers(i) Workbooks.Open Filename:=Fichier_a_ouvrir Windows(Noms_Fichiers(i)).Activate Fichier_Actif = ActiveWorkbook.Name ' Boucle d'impression des 2 feuilles de chaque fichier For j = 0 To 1 ' Selection de la fenetre 1 puis de la fenetre 2 Sheets(Noms_Feuilles(j)).Select Nom_Feuille_Active = ActiveSheet.Name 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next j 'Fermeture du fichier après impression de ses deux feuilles Fichier_Actif = ActiveWorkbook.Name ActiveWorkbook.Close 'Passage au fichier suivant Next i End Sub
