Bonjour tout le monde, je vous explique mon problème :
J'ai crée un fichier dans lequel il y a une feuille qui se nomme "modèle"
Je veux réaliser une macros (en VBA) qui me permette, d'une part d'inserer
une copie de ma feuille modèle et d'autre part, je voudrais que cette
nouvelle feuille se renome avec le contenu d'un TextBox qui est dispo dans un
UserForm.
Mais là, j'avoue que je sèche.
Si quelqu'un à reussi à comprendre mon problème, merci de me répondre. :)
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
Joël GARBE
Bonjour Tout seul !
Sans vérifier, et à la va-vite :
En supposant que le fichier où se trouve la feuille modèle ne soit pas le même que le fichier où on veut récupérer cette feuille modèle...
un truc de ce genre devrait convenir, à adapter...
Dim MonAppli As Workbook Dim sFile As String Dim FichSource As Workbook sFile = "Chemin où se trouve le fichier avec le modèle" Set MonAppli = ActiveWorkbook Workbooks.Open sFile, False, True Worksheets("Modele").Copy after:=MonAppli.Worksheets(MonAppli.Worksheets.Count) FichSource.Close False ActiveSheet.Name = Me.TextBoxX.Text
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "xell" a écrit dans le message de news:
Bonjour tout le monde, je vous explique mon problème :
J'ai crée un fichier dans lequel il y a une feuille qui se nomme "modèle"
Je veux réaliser une macros (en VBA) qui me permette, d'une part d'inserer une copie de ma feuille modèle et d'autre part, je voudrais que cette nouvelle feuille se renome avec le contenu d'un TextBox qui est dispo dans un UserForm.
Mais là, j'avoue que je sèche.
Si quelqu'un à reussi à comprendre mon problème, merci de me répondre. :)
Bonjour Tout seul !
Sans vérifier, et à la va-vite :
En supposant que le fichier où se trouve la feuille modèle ne soit pas le
même que le fichier où on veut récupérer cette feuille modèle...
un truc de ce genre devrait convenir, à adapter...
Dim MonAppli As Workbook
Dim sFile As String
Dim FichSource As Workbook
sFile = "Chemin où se trouve le fichier avec le modèle"
Set MonAppli = ActiveWorkbook
Workbooks.Open sFile, False, True
Worksheets("Modele").Copy
after:=MonAppli.Worksheets(MonAppli.Worksheets.Count)
FichSource.Close False
ActiveSheet.Name = Me.TextBoxX.Text
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"xell" <xell@discussions.microsoft.com> a écrit dans le message de news:
6B8B56B4-1457-4C2E-8C5E-EF20A34E024E@microsoft.com...
Bonjour tout le monde, je vous explique mon problème :
J'ai crée un fichier dans lequel il y a une feuille qui se nomme "modèle"
Je veux réaliser une macros (en VBA) qui me permette, d'une part d'inserer
une copie de ma feuille modèle et d'autre part, je voudrais que cette
nouvelle feuille se renome avec le contenu d'un TextBox qui est dispo dans
un
UserForm.
Mais là, j'avoue que je sèche.
Si quelqu'un à reussi à comprendre mon problème, merci de me répondre. :)
En supposant que le fichier où se trouve la feuille modèle ne soit pas le même que le fichier où on veut récupérer cette feuille modèle...
un truc de ce genre devrait convenir, à adapter...
Dim MonAppli As Workbook Dim sFile As String Dim FichSource As Workbook sFile = "Chemin où se trouve le fichier avec le modèle" Set MonAppli = ActiveWorkbook Workbooks.Open sFile, False, True Worksheets("Modele").Copy after:=MonAppli.Worksheets(MonAppli.Worksheets.Count) FichSource.Close False ActiveSheet.Name = Me.TextBoxX.Text
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "xell" a écrit dans le message de news:
Bonjour tout le monde, je vous explique mon problème :
J'ai crée un fichier dans lequel il y a une feuille qui se nomme "modèle"
Je veux réaliser une macros (en VBA) qui me permette, d'une part d'inserer une copie de ma feuille modèle et d'autre part, je voudrais que cette nouvelle feuille se renome avec le contenu d'un TextBox qui est dispo dans un UserForm.
Mais là, j'avoue que je sèche.
Si quelqu'un à reussi à comprendre mon problème, merci de me répondre. :)
