Bonjour,
J'utilise une macro pour générer une facture dans une feuille du classeur actif. Jusqu'ici, pas de problème.
Ensuite, via un bouton de commande, je sauvegarde la feuille active (la facture) avec un chemin d'accès spécifier. Jusqu'ici, pas de problème.
Le problème est que la feuille active qui est copiée (la facture) prend le bouton de commande qui se trouve sur celle-ci et le code VBA.
Suite à des recherches sur le Net, j'ai trouvé des solutions pour supprimer le code VBA, mais pas pour copier sans le code VBA et sans les contrôles activeX (les boutons de commande).
Il existe peut être un paramètre lors de la copie ?
Voici le code que j'utilise :
Précision, je sauvegarde sans prise en charge de macro (format .xlsx), ce qui me fait zapper une fonction (dans un module) qui permet de convertir un nombre en texte (en cellule C33), ce pourquoi je recopie le contenu de cette cellule.
Cet enregistrement (sans macro) me supprime les modules mais pas le code de la feuille.
Si quelqu'un a une solution, merci d'avance
J'utilise une macro pour générer une facture dans une feuille du classeur actif. Jusqu'ici, pas de problème.
Ensuite, via un bouton de commande, je sauvegarde la feuille active (la facture) avec un chemin d'accès spécifier. Jusqu'ici, pas de problème.
Le problème est que la feuille active qui est copiée (la facture) prend le bouton de commande qui se trouve sur celle-ci et le code VBA.
Suite à des recherches sur le Net, j'ai trouvé des solutions pour supprimer le code VBA, mais pas pour copier sans le code VBA et sans les contrôles activeX (les boutons de commande).
Il existe peut être un paramètre lors de la copie ?
Voici le code que j'utilise :
Code:
Private Sub CommandButton1_Click()
Dim Nom As String
Nom = Range("B16")
Sheets("Facture").Copy
ActiveWorkbook.Sheets(1).Range("C33") = Range("C33").Value
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "C:\" & "Facture_" & Nom & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Range("A20:A26").ClearContents
Range("C20:C26").ClearContents
Range("D20:D26").ClearContents
Range("F20:F26").ClearContents
Range("D9").ClearContents
End Sub
Précision, je sauvegarde sans prise en charge de macro (format .xlsx), ce qui me fait zapper une fonction (dans un module) qui permet de convertir un nombre en texte (en cellule C33), ce pourquoi je recopie le contenu de cette cellule.
Cet enregistrement (sans macro) me supprime les modules mais pas le code de la feuille.
Si quelqu'un a une solution, merci d'avance