Jgral
XLDnaute Nouveau
Bonjour,
Me revoilà avec mon projet et un nouveau problème (au passage merci vous m'aidez énormément !!!)
Mon code fonctionne mais il ne fait pas exactement ce que je souhaite. J'ai deux problèmes majeurs :
- Le premier concerne ce bout de code :
Ici j'enregistre dans un répertoire mais ce dernier n'est présent que sur mon PC et pas sur celui de mes utilisateurs donc fatalement ça ne fonctionne pas sur un autre PC que le mien.
- Le second c'est que ce document que j'enregistre comporte les 4 pages de ma mise en page. Mais je voudrais qu'il ne comporte que les pages ou il y a des choses dessus. Je pensais utiliser un UserForm pour définir les pages a sauvegarder mais je n'ai aucune idée de comment le faire.
Voilà je vous met en PJ le fichier en espérant qu'une fois encore vous allez pouvoir m'aider.
Merci d'avance.
Me revoilà avec mon projet et un nouveau problème (au passage merci vous m'aidez énormément !!!)
Mon code fonctionne mais il ne fait pas exactement ce que je souhaite. J'ai deux problèmes majeurs :
- Le premier concerne ce bout de code :
VB:
Private Sub CommandButton9_Click()
Sheets("Concepteur étude").Range("M2").Replace What:=",", Replacement:="."
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jgral\Desktop\Photos MALATAVERNE\Etude Technique.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
UserForm6.Show
End Sub
Ici j'enregistre dans un répertoire mais ce dernier n'est présent que sur mon PC et pas sur celui de mes utilisateurs donc fatalement ça ne fonctionne pas sur un autre PC que le mien.
- Le second c'est que ce document que j'enregistre comporte les 4 pages de ma mise en page. Mais je voudrais qu'il ne comporte que les pages ou il y a des choses dessus. Je pensais utiliser un UserForm pour définir les pages a sauvegarder mais je n'ai aucune idée de comment le faire.
Voilà je vous met en PJ le fichier en espérant qu'une fois encore vous allez pouvoir m'aider.
Merci d'avance.