Erreur de macro sur tablette windows10
djey_22
Messages postés
8
Statut
Membre
-
djey_22 Messages postés 8 Statut Membre -
djey_22 Messages postés 8 Statut Membre -
Bonjour à tous,
J'ai un petit problème avec le fichier excel avec lequel mon épouse fait ses factures.
Cela fait 5 ans qu'elle l'utilise sans problème pour son activité.
Elle a récemment acheté une tablette ASUS transformer t100h avec windows 10 pour des raisons de mobilité (avec office 2007).
Maleureusement, le fichier "Facutre.xlsm" affiche "Argument ou appel de procédure incorrect".
Arpès quelques tests je n'arrive toujours pas à voir où est le problème.
- Sur son ancien portable (HP pavillon, windows Vista, office 2007) : Aucun problème.
- Sur mon portable (ASUS, windows 10, office 2007) : Aucun problème
J'espère que l'un d'entre vous pourra m'aider. ;)
C'est un fichier avec une seule macro:
Feuil1 : "FACTURE" la facture avec un bouton "Enregistrer" lié à une macro
Feuil2 : "PATIENT" la liste des patients
Feuil3 : "DONNEES différentes cellules avec des infos concaténées dans la case "C8" pour déterminer le nom du fichier.pdf à enregistrer qui est utilisé dans la macro.
"=CONCATENER(A8;Facture!B16;"_";C3;A9)"
Ce qui donne :
--> "D:/dossier/factures/2016_01_NOMduPATIENT.pdf"
(remarque : j'ai bien entendu changé la valeur de "A8" lorsque je change d'ordinateur.)
Voici la macro dont le résultat est une jolie facture en pdf :
Un grand merci pour votre aide !
J'ai un petit problème avec le fichier excel avec lequel mon épouse fait ses factures.
Cela fait 5 ans qu'elle l'utilise sans problème pour son activité.
Elle a récemment acheté une tablette ASUS transformer t100h avec windows 10 pour des raisons de mobilité (avec office 2007).
Maleureusement, le fichier "Facutre.xlsm" affiche "Argument ou appel de procédure incorrect".
Arpès quelques tests je n'arrive toujours pas à voir où est le problème.
- Sur son ancien portable (HP pavillon, windows Vista, office 2007) : Aucun problème.
- Sur mon portable (ASUS, windows 10, office 2007) : Aucun problème
J'espère que l'un d'entre vous pourra m'aider. ;)
C'est un fichier avec une seule macro:
Feuil1 : "FACTURE" la facture avec un bouton "Enregistrer" lié à une macro
Feuil2 : "PATIENT" la liste des patients
Feuil3 : "DONNEES différentes cellules avec des infos concaténées dans la case "C8" pour déterminer le nom du fichier.pdf à enregistrer qui est utilisé dans la macro.
"=CONCATENER(A8;Facture!B16;"_";C3;A9)"
Ce qui donne :
A8 = "D:/dossier/factures/"
Facture!B16 = "2016_01"
"_"
C3 = "NOMduPATIENT"
A9 = ".pdf"
--> "D:/dossier/factures/2016_01_NOMduPATIENT.pdf"
(remarque : j'ai bien entendu changé la valeur de "A8" lorsque je change d'ordinateur.)
Voici la macro dont le résultat est une jolie facture en pdf :
Sub enregistrerFacturesPDF()
'
Dim nom As Variant
nom = Sheets("Données").Range("C8").Value
'
Sheets("Facture").Select
Sheets("Facture").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Un grand merci pour votre aide !
1 réponse
-
Bonjour,
Sur la pointe des pieds, je dirais qu'il y a peut être un problème avec le lecteur de PDF. Essaie de supprimer l'argumentOpenAfterPublish:= True
et reessaie.
m@rina
-
-
-
Bonsoir, J'ai testé en mettant le chemin et un nom dans la macro mais le problème est toujours là.. :s
C'est très bizarre que cela fonctionne partout ailleurs et pas sur la tablette qui est vendue comme un ordinateur supportant parfaitement la bureautique.
J'ai beau vérifier la macro pour moi tout est correct.
Merci de m'aider en tout cas ;)
-