Export avec format, sans formules
Bonjour le forum
Voici mon obstacle actuel :
J'ai besoin de modifier ou d'adapter le code VBA pour copier simplement la plage (A1 : H100)
dans une nouvelle feuille sans les formules.
La macro que j'utilise permet de copier toutes les formules et les liaisons
Merci de votre aide.
Je vous joins un fichier exemple pour mieux comprendre
cordialement
Bonjour
La macro que j'utilise permet de copier toutes les formules et les liaisons
dans votre fichier quelle est cette macro ?
Et la nouvelle feuille doit être nommée comment ?
Bonjour Dan
Bonjour, tout d'abord je vous remercie de votre disponibilité et de votre réponse
Voila le macro
Sub NouvelleFeuille()
Dim xName As String, wM As Worksheet
Set wM = Sheets("FCjour")
Sheets("FCjour").Copy Before:=Sheets(2)
On Error Resume Next
xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveSheet.Name = xName
If Err.Number <> 0 Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Application.DisplayAlerts = False
ActiveSheet.Delete
Exit Sub
Exit Sub
End If
End Sub
'Code : Copier feuille déjà existante et nommer par ordre croissant
Sub Copyrenameworksheet()
'Updateby Extendoffice
Dim wh As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy after:=Worksheets(Sheets.Count)
If wh.Range("A1").Value <> "" Then
ActiveSheet.Name = wh.Range("A1").Value
End If
wh.Activate
End SubLa nouvelle feuille est identifiée dans InputBox
Ok. Vous n'aviez pas besoin de poster les codes car je vois qu'ils sont dans le module 4
Par rapport à votre demande, je ne vois pas l'utilité du code Sub Copyrenameworksheet().
Sert-il à quelque chose sachant que l'on peut tout faire dans le code Nouvelle feuille
Dites-moi
Bonjour à tous,
L'essentiel est de recpier la feuille "FCjour" SANS FORMULE avec format , soit avec le code actuel ou nouveau code Vba.
Merci à vous par avance
re
Ok votre code comme ceci
Sub NouvelleFeuille()
Dim xName As String, wM As Worksheet
Set wM = Sheets("FCjour")
wM.Copy Before:=Sheets(2)
On Error Resume Next
xName = InputBox("Please enter a name for this new sheet ", "Adding new sheet")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveSheet.Name = xName
If Err.Number <> 0 Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook", vbCritical, "Existing sheet"
Application.DisplayAlerts = False
ActiveSheet.Delete
Exit Sub
Exit Sub
End If
With Sheets(xName).Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
.Columns("I:Q").Delete
End With
End SubLe deuxième code ne vous sert plus, à moins que je ne me trompe.
Si ok et terminé, pensez à
Cordialement
Bonsoir @ vous deux !
Un fichier qui traine sur mon disque !
Le code est "impressionnant" mais il sert à créer un nouveau fichier avec l'extension qui va bien...
La feuille est copiée modifiée puis enregistrée dans le nouveau classeur.
Le fichier :
Dans votre cas il faudra peut-être le simplifier...
@ bientôt
LouReeD
Souvent je ne suis pas assez rapide !
Dan
@ bientôt
LouReeD
@Looreed : c'était facile de voir que je m'en occupais depuis 1 heure
A+
Ho lala ! Je ne regarde pas tout ça moi ! Vraiment je suis plutôt lent...
Je regarde la question et je vois si je peux apporter une pierre à l'édifice...
En générale vos interventions en 1 heure ou autre sont de bon exercices pour moi !
@ bientôt
LouReeD
Ç’est exactement ce que je voulais
Cela fonctionne parfaitement et j'ai compris ta solution, merci !!
Je vous remercie pour vos efforts LouReeD
Amicalement
@ bientôt
Bonjour,
merci @ vous pour vos encouragements !
@ bientôt
LouReed