Bonjour à tous,
Voici mon probléme:
Un classeur A avec des feuilles 1 à 4,
Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur
portant le nom de la feuille 4 le tout dans un autre dossier portant le nom
"Sauve"
Le tout en VBA bien sûr et en respectant la mise en forme intégrale.
J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans
une zone de texte)
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
Michel Pierron
Bonjour PB; Essaie: Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
MP
"PB" a écrit dans le message de news:Ouvyoi%
Bonjour à tous, Voici mon probléme: Un classeur A avec des feuilles 1 à 4, Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur portant le nom de la feuille 4 le tout dans un autre dossier portant le nom "Sauve" Le tout en VBA bien sûr et en respectant la mise en forme intégrale. J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans une zone de texte)
Merci de vos réponses
Pascal
Bonjour PB;
Essaie:
Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "Sauve"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
MP
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:Ouvyoi%23kEHA.644@tk2msftngp13.phx.gbl...
Bonjour à tous,
Voici mon probléme:
Un classeur A avec des feuilles 1 à 4,
Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur
portant le nom de la feuille 4 le tout dans un autre dossier portant le nom
"Sauve"
Le tout en VBA bien sûr et en respectant la mise en forme intégrale.
J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans
une zone de texte)
Bonjour PB; Essaie: Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
MP
"PB" a écrit dans le message de news:Ouvyoi%
Bonjour à tous, Voici mon probléme: Un classeur A avec des feuilles 1 à 4, Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur portant le nom de la feuille 4 le tout dans un autre dossier portant le nom "Sauve" Le tout en VBA bien sûr et en respectant la mise en forme intégrale. J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans une zone de texte)
Merci de vos réponses
Pascal
PB
Un grand Merci. C'est parfait. 2 semaines que je prenais la tête. Merci encore "Michel Pierron" a écrit dans le message de news:uhOsuw%
Bonjour PB; Essaie: Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
MP
"PB" a écrit dans le message de news:Ouvyoi%
Bonjour à tous, Voici mon probléme: Un classeur A avec des feuilles 1 à 4, Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur
portant le nom de la feuille 4 le tout dans un autre dossier portant le nom
"Sauve" Le tout en VBA bien sûr et en respectant la mise en forme intégrale. J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans
une zone de texte)
Merci de vos réponses
Pascal
Un grand Merci.
C'est parfait.
2 semaines que je prenais la tête.
Merci encore
"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:uhOsuw%23kEHA.2504@TK2MSFTNGP14.phx.gbl...
Bonjour PB;
Essaie:
Sub SaveSheet4()
Dim FilePath As String
FilePath = ThisWorkbook.Path & "Sauve"
If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(4).Copy
ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name
ActiveWorkbook.Close
End Sub
MP
"PB" <NoSpam@wanadoo.fr> a écrit dans le message de
news:Ouvyoi%23kEHA.644@tk2msftngp13.phx.gbl...
Bonjour à tous,
Voici mon probléme:
Un classeur A avec des feuilles 1 à 4,
Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau
classeur
portant le nom de la feuille 4 le tout dans un autre dossier portant le
nom
"Sauve"
Le tout en VBA bien sûr et en respectant la mise en forme intégrale.
J'ai bien un code, mais il ne me sauve pas les images qui sont insérés
(Dans
Un grand Merci. C'est parfait. 2 semaines que je prenais la tête. Merci encore "Michel Pierron" a écrit dans le message de news:uhOsuw%
Bonjour PB; Essaie: Sub SaveSheet4() Dim FilePath As String FilePath = ThisWorkbook.Path & "Sauve" If Dir(FilePath, vbDirectory) = "" Then MkDir (FilePath) Application.ScreenUpdating = False ThisWorkbook.Sheets(4).Copy ActiveWorkbook.SaveAs FilePath & ActiveSheet.Name ActiveWorkbook.Close End Sub
MP
"PB" a écrit dans le message de news:Ouvyoi%
Bonjour à tous, Voici mon probléme: Un classeur A avec des feuilles 1 à 4, Je voudrais sauvegarder la feuille 4, après avoir crée un nouveau classeur
portant le nom de la feuille 4 le tout dans un autre dossier portant le nom
"Sauve" Le tout en VBA bien sûr et en respectant la mise en forme intégrale. J'ai bien un code, mais il ne me sauve pas les images qui sont insérés (Dans
