Probleme de code pour enregistrement automati
Fermé
linda
-
18 août 2007 à 15:51
Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 - 22 août 2007 à 15:32
Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 - 22 août 2007 à 15:32
A voir également:
- Probleme de code pour enregistrement automati
- Code asci - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code blocks free - Télécharger - Langages
- Enregistrement vidéo écran - Guide
1 réponse
Papou93
Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
59
18 août 2007 à 21:51
18 août 2007 à 21:51
Bonsoir linda,
Tu dois séparer les 2 cellules par un point-virgule :
Cordialement.
Tu dois séparer les 2 cellules par un point-virgule :
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24;D11").Value
Cordialement.
18 août 2007 à 23:04
19 août 2007 à 09:38
Essaies comme celà, alors :
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("B24").Value & Range("C11").valueCordialement.
20 août 2007 à 19:49
Linda
20 août 2007 à 23:39
J ai une petite question
serait-il possible aprés ce code :
#
MsgBox ("Le devis sera enregistrer sous -nom client et numero devis- soit : " & Range("D11").Value & Range("B24") & Chr(13) & "Cliquez sur OK, une fois prêt")
Range("A25").Select
Set plage = Range("A25", [A25].End(xlDown))
nbcell = plage.Count + 3
If nbcell <= 32 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\owner\Mes documents\CLIENTS\" & Range("D11").Value & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Else
With ActiveSheet.PageSetup
.PrintTitleRows = "$24:$25"
.PrintTitleColumns = ""
End With
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS\" & Range("D11").Value & Range("B24").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
#
d'ajouter une boite de dialogue demandant si on veut: imprimer ou envoyer par mail ou faxer ce document?
Merci d'avance pour ta réponse
Linda
22 août 2007 à 15:32
Je pense que c'est possible, mais je n'ai jamais pratiqué.
La meilleure façon est, je pense, que tu utilises l'enregistreur de macros pour chaque manip, puis tu exécutes ces macros avec le bouton de validation de ta boite de dialogue, en fonction de la case d'option choisie.
Espérant t'avoir été utile sur cette question.
Cordialement.