Je suis plus que débutant en programmation.
je me suis essayé à un code VBA sous excel qui fonctionne super, mais je dois utiliser cette fonction avec le logiciel open office calc de mon travail.
Pourriez-vous m'aider à transformer ce code?
ou pourrais-je trouver de l'aide pour connaître les astuces d'une pareille transformation
Merci de votre aide
Voici ma petite procédure sous excel:
Code : Tout sélectionner
Private Sub Worksheet_Change(ByVal Target As range)
Dim copie As Integer
'Spécifie une variable "copie" et oblige du caractère numérique
If range("A8") = "" Then
'Vérification si la cellule A8 est vide
Exit Sub
'Sort de la procédure si condition remplie
End If
'Fin de la condition
If range("C8") = "" Then
'Vérification si la cellule C8 est vide
MsgBox "La cellule nombre de copies n'est pas remplie."
'Message à l'utilisateur si condition remplie
Exit Sub
'sortie de la procédure si condition remplie
End If
'Fin de la condition
valeur = range("A8").Value
'Indique que "valeur" est la case A8
copie = range("C8").Value
'Indique que "copie" est la case C8
Workbooks.Open Filename:="\\C:\Users\proprio\Desktop\" & valeur & ".xlsx"
'Ouvre le document suivant valeur A7 modifiant le chemin d'accès du fichier à imprimer
ActiveSheet.PrintOut Copies:=copie
'Imprime la feuille ouverte en Nbr exemplaires suivant case C8
ActiveWindow.Close
'Ferme la feuille active
range("A8").ClearContents
'Vide le contenu de la cellule A7
range("C8").ClearContents
'Vide le contenu de la cellule C7
End Sub
'Fin de la procédureLa modération vous a écrit: code mis entre balises [code] pour faciliter la lecture
