Pop up Excel quand cellule remplie Résolu

Question

Bonjour tout le monde,

ca faisait longtemps que je n'étais pas venu posté sur ce forum, et ca me fait plaisir!!

Alors j'ai actuelllement un pb au cours de mon stage:
avec Excel 2003 j'aimerais afficher un pop up (MsgBox)sur l'écran  ("N'oubliez pas d'envoyer la facturation pr régulariser la situation 2") lorsqu'une cellule est remplie manuellement (par exemple la cellule B5 dans la colonne B intitulée "livraison matériel sur site") ou qu'une case est cochée... ce texte est-il alors imposé comme étant tjs le mm (mettre tt le temps la mm chose par exemple "Ok") ou bien peut on mettre n'importe quoi a partir du moment ou la cellule est remplie ?!

Le pb est que je ne sais pas comment faire pour cela! si vous pourriez m'aider ce serait super !!

Merci bcp par avance et je vous souahite de passer une agréable journée!!
..Antony..

NicoDisso · Answer

pour faire un msgbox, la syntaxe est 

msgbox libelle du message , bouton, titre du message

Ex : 
msgbox "ceci est un message de test !",vbinformation,"Message de Test"

Ensuite, il te suffit de mettre dans le code de ta feuille, les criteres qui vont bien, et de mettre des variables afin que ton message soit different selon les cas...

tony020422 · Answer

ok super merci bcp nicodisso, ca marche nikel!!

par contre, saurais tu comment faire ca? car je bloque completement........


J'ai crée un formmulaire excel avec cases à cocher...et j'aimerais créer un bouton "envoyé" en bas du formulaire qui, lorqu'on clik desssus, envoi directement le formulaire vers une unique adresse mail (tjs la même) 
il faut donc qu'au moment de l'envoi, le formulaire se sauvegarde et qu'Excel se ferme... 


Je ne sais pas quel code VBA taper malgré mais nombreuses recherches internet...... 

Merci, et Bonne journée !!

NicoDisso · Answer

Sois tu fais cela et normalement ton logiciel de messagerie te demanderas si tu autorises l'envoi en direct

    ActiveWorkbook.Save
    ActiveWorkbook.SendMail "adresse destinataire", "Objets de ton mail"

Rajoutes une gestion d'erreur au cas ou tu répondes NON...

sinon, c'est beaucoup plus compliqué si tu veux l'automatiser à 100 %

tony020422 · Answer

Slt nico, merci d'avoir répondu!!

voici le code que j'ai sur mon bouton:

Sub Bouton29_QuandClic()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.SaveAs Filename:=[C7].Value & ".xls"
Application.Quit
End Sub

Il faudrait que je rajoute sur mon script :
ActiveWorkbook.SendMail "roger@entreprise.com", "Bilan de mod"    c'est ca ?! et ca suffit?

autre chose, saurais tu comment faire pour que je choisisse comme dossier d 'enregistrement par défaut 
\angfs1\users$\baron\Bureau\Com MOD SAV        ??!!   car je ne sais pas le sript VBA permettant de faire ca...

Merci par avance nico ;-)

NicoDisso · Answer

Oui, tu mets cela dans tos code et le mail partira tout seul, je te conseille juste pour le tester de mettre ton mail à toi afin qu'il te revienne...

sinon pour enregistrer dans le chemin annoncé

ChDir "\angfs1\users$\baron\Bureau\Com MOD SAV\"
ActiveWorkbook.SaveAs Filename:= "\angfs1\users$\baron\Bureau\Com MOD SAV\" & [C7].Value & ".xls"

ca doit fonctionner...

tony020422 · Answer

ouaou pr la sauvegarde ca marche nikel merci bcp!!!

pr le mail j'ai mis:

ActiveWorkbook.SendMail "roger@entreprise.com", "Bilan de mod" 

et voila ce qu'il m'apparait a l'ecran

http://www.cijoint.fr/cjlink.php?file=cj200905/cijCA4s1cA.jpg

je ne sais pas comment faire! l'expediteur sera tjs   serge@entreprise.com et le destinataire sera tjs roger@entreprise.com

sachant que les boite mail sont des boites intranet, et qu'il s'agit d'une messagerie intranet........peut etre est ce pr ca que ca ne fonctionne pas !!

NicoDisso · Answer

non en fait, c'est que n'a pas de client par défaut configuré pour envoyer des mails.
du coup il te lance l'assistant
Si tu as un compte mail de configurer et que ton logiciel de messagerie est associé, tu n'auras pas le souci.

Mail en intranet ou pas, c'est un client mail, c'est ensuite sur ton serveur de messagerie que les restrictions d'envoi sont effectives...

tony020422 · Answer

donc une fois configuré il ne devrait plus y avoir de souci...... le truc c'est qu'on me demande les serveurs entrants et sortants (POP et SMTP)  pr lesquels je ne sais pas quoi mettre!

pr info en allant dans les parametres de la messagerie j'ai trouvé ca comme info:

serveur hôte : ANGDS4/SRV/TAH
c'est lotus domino access la messagerie (en intranet)

j'ai pas trouvé d'autres infos.......

NicoDisso · Answer

if faut que dans test complements tu es lotus note de cocher ensuite exploites ca

Sub EnvoiMail()

    Dim Fso As FileSystemObject
    Dim Fichier_A_Envoyer As String
    Dim Envoi As Boolean
    
    Set Fso = New FileSystemObject
        
            Fichier_A_Envoyer = "..."
                    
            If Fso.FileExists(Fichier_A_Envoyer) = True Then
                Dim Email(1) As String
                Email(1) = "destinataire@entreprise.fr"
                
                Envoi = EnvoiNotesMail("Le fichier ", Fichier_A_Envoyer, Email(1), True)
                    If Envoi = True Then
                        MsgBox "Votre message a été envoyé à " & Email(1) & ".", vbInformation, "Information"
                    Else
                        MsgBox "Echec de l'envoi de votre message à " & Email(1) & ".", vbExclamation, "Avertissement"
                    End If
                Next i
            Else
                MsgBox "Le fichier a envoyer n'existe pas !", vbExclamation, "Message"
            End If

End Sub


Function EnvoiNotesMail(Subject As String, Attachment As String, Recipient As String, SaveIt As Boolean, RDC_A_Envoyer As String) As Boolean

'Set up the objects required for Automation into Lotus Notes
    Dim Maildb As NotesDatabase    'The mail database
    Dim UserName As String    'The current users notes name
    Dim MailDoc As Object    'The mail document itself
    Dim AttachME As Object    'The attachment richtextfile object
    Dim oSession As NotesSession
    Dim dbDirectory As NotesDbDirectory
    Dim EmbedObj As Object    'The embedded object (Attachment)

    Dim objNotesField As Object ' Déclaration de la variable concernant le corps du message

    On Error GoTo ErrHandle

    Set oSession = New NotesSession
    'Démarre une session de notes

    ' La ligne suivante ne marche qu'avec les versions 5.x et 6.x ,
    ' c'est l'injection du mot de passe

    oSession.Initialize ("mot de passe utilisateur")

    'Récupère le nom par défaut de la session
    UserName = oSession.UserName

    'Ouvre la base mail en utilisant le serveur par défaut

    Set dbDirectory = oSession.GetDbDirectory(Declarations_Des_Variables.Serveur_LotusNote)
    Set Maildb = dbDirectory.OpenMailDatabase

    'Création du formulaire d'envoi de mail
    Set MailDoc = Maildb.CreateDocument()

    MailDoc.AppendItemValue "Subject", Subject  ' remplissage du Sujet
    MailDoc.AppendItemValue "SendTo", Recipient ' adresse du destinataire Email(i)

    ' Construction du corps du message
    Set objNotesField = MailDoc.CreateRichTextItem("Body")

    With objNotesField
        .AppendText "Bonjour,"
        .AddNewLine 1
        .AppendText "Ci-joint le fichier "
        .AddNewLine 1
        .AppendText "Cordialement"
        .AddNewLine 1
        .AppendText "Expediteur"
        .AddNewLine 3
    End With

    'Permet d'attacher un document au mail
    If Attachment <> "" Then
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
    End If

    'Envoi du document

    If SaveIt = True Then
        MailDoc.SaveMessageOnSend = SaveIt    'si à True, Lotus sauvegarde le mail envoyé
    End If

    Call MailDoc.Send(False)

    prvSendNotesMail = True
    GoTo ExitHandle

ErrHandle:
    MsgBox Err.Description
    prvSendNotesMail = False

ExitHandle:
    If Err.Number = 0 Then
        EnvoiNotesMail = True
    Else
        EnvoiNotesMail = False
    End If
    'Vidage mémoire
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set oSession = Nothing
    Set dbDirectory = Nothing
    Set EmbedObj = Nothing
End Function

tony020422 · Answer

"If faut que dans test complements tu es lotus note de cocher".....je ne sais pas ou ca se fait ni comment !!

"ensuite exploites ca ".......
hheeuu...nouveau module? ou ds scriot de la feuille? ou ds thisworkbook?

"Fichier_A_Envoyer = "..."     
nom du fichier que je dois mettre en PJ ?

"Envoi = EnvoiNotesMail("Le fichier ", Fichier_A_Envoyer, Email(1), True)"
 c'est quoi la différence entre "le fichier" et "Fichier_A_envoyer"

"La ligne suivante ne marche qu'avec les versions 5.x et 6.x"   
ici c'est, Domino Web Access Version 6.5.4 Version 429 

Set dbDirectory = oSession.GetDbDirectory(Declarations_Des_Variables.Serveur_LotusNote)
je ne sais pas ce que cela signifie

Set AttachME = MailDoc.CreateRichTextItem("Attachment") 
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment") 
je met quoi a la place de "attachment"

Merci en tt cas nico de t'impliquer autant, et d'avoir autant de patience, ca m'aide vraiment !!

@ tt a l'heure !

NicoDisso · Answer

"If faut que dans test complements tu es lotus note de cocher" 
menu outils/reference dans VBA

"ensuite exploites ca "....... 
nouveau module

"Fichier_A_Envoyer = "..." 
Chemin acces au fichier

"Envoi = EnvoiNotesMail("Le fichier ", Fichier_A_Envoyer, Email(1), True)" 
"le fichier = objet du mail" et "Fichier_A_envoyer variable contenant le chemin d'acces" 

ici c'est, Domino Web Access Version 6.5.4 Version 429 
oui alors la je suis marron, j'étais parti avec Notes

Set dbDirectory = oSession.GetDbDirectory(Declarations_Des_Variables.Serveur_LotusNote) 
Tu n'avais pas à y toucher

Set AttachME = MailDoc.CreateRichTextItem("Attachment") 
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment") 
je met quoi a la place de "attachment" 
tu touchais à rien

je suis désolé, ce code pourra toujours servir à ceux qui ont Lotus Note, pour domino, il faudrait chercher ( peut etre sur vbfrance.com )

tony020422 · Answer

aa ok merde alors nico!! j'avais pas saisi que ca collait pas avec ce que j'ai comme version.........je ss deg pr toi en priorité (pr le boulet que t'as réalisé et qui me servira pas!) et pi tant pis pr moi.....

En tt cas mille merci pour l'aide que tu m'as apporté, et pr ta patience, vraiment ca fait plaisir........

Bonne journée ensoleillée a toi et bon appétit, a bientôt que le forum !!

NicoDisso · Answer

merci a toi aussi en esperant trouver une solution...
je vais quand meme chercher au cas ou

NicoDisso · Answer

regardes quand meme parce qu'il y a l'air d'avoir un ammalgamme entre lotus note et domino donc on ne sais jamais...
Sinon dans le prire des cas, il faudrait creer un mail sur un autre systeme de messagerie ( style gmail ou autre et ensuite configurer le client que tu avais au tout debut afinde l'utiliser )
Ca c'est tout a fait possible...

tony020422 · Answer

Slt nico ;-)

J'espère que t'as passé 1 bon week end ;-)

j'ai une chtite question en prgrammation qui je pense te fera sourire par sa simplicité mais je beug:

j'aimerais que lorsque je mette dans la colonne I intitulée "date de fin de travaux" un numéro de semaine (planification) comme par exemple "s25" un pop up apparaisse lorsque l'on sera effectgivement en semaine 25 pr me prévenir de penser a facturer.....

J'espère que tu comprends ce que j'aimerais faire ;-)

Merci par avance pr le coup de main !!

PS: je sais que ceci est le script pr convertir une date en numéro de semaine:

Public Function Semaine(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If a = 0 Then
a = Semaine(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
Semaine = a
End Function

tony020422 · Answer

Solution trouvée !!!

peu académique certes mais ca marche....... !!

NicoDisso · Answer

il me semblait que pour la semaine, c'était prévue :

Format("01/01/2009", "WW") 

remplace avantageusement 

Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1

;-)

tony020422 · Answer

Slt nico,

tjs en place ;-)

Pour ce chti pb ca y est j'ai réglé le pb.....à ma facon ;-)

Sinon je ss reparti sur mon excel et j'ai un truc à faire tendu que je ne sais pas programmer:

Je souhaiterais que ma macro excel recopie (copie/colle) la valeur d'une cellule de mon fichier excel dans 1 emplacement précis et prédéfini d'une feuille ISO (qui est un fichier .doc protégé en écriture sauf à 2 endroits modifiables ou c'est la qu'il faudrait réinjecter les valeurs excel)

Je ne sais pas quel code VBA permettrait ceci , sachant que ma macro ouvre dores et déjà le fichier.doc..

j'ai remarqué qu'en faisant (Ctrl+C) sur excel, puis directement (Ctrl+V) aprés avoir ouvert le .doc, la valeur désirée se colle à l'endroit voulue....
la 2eme valeur a copier/coller se fait également par Ctrl+C depuis Excel et Ctrl+V sur word aprés avoir fait "une tabulation" sur le .doc qui fait directement passer à l'autre zone modifiable du fichier...

j'ai tenté ca:

      With DocWord
    Set AppWord = CreateObject("Word.Application")
    Application.DisplayAlerts = True
    AppWord.ShowMe
    AppWord.Visible = True
    Set DocWord = AppWord.Documents.Open("C:\ mon fichier.doc", ReadOnly:=False)
        End With
    With AppWord
ThisWorkbook.Worksheets("Feuil1").Range("C9").Copy
With ActiveDocument.Tables(2).Cell(1, 2)
.Range.Paste
.Select
End With
  End With

mais j'ai une erreur 424 pr cette commande:  With ActiveDocument.Tables(2).Cell(1, 2)

Aurais tu une idée ?!

tony020422 · Answer

parce que la je ne sais pas trop quoi faire  ;-)

tony020422 · Answer

With ActiveDocument.Tables(2).Cell(1, 2) 
 faudrait que ca corresponde à mes emplacmeents dispos sur le .doc que je ne sais pas comment caractériser!

NicoDisso · Answer

Regardes là : https://support.microsoft.com/en-us/help/246956

sion, tu ne peux pas essayer d'éviter le copier/coller et le mettre en direct du style

valeurword = valeurexcel

?

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

tony020422 · Answer

oula l'aide ne me dit rien du tt!!

pr le faire en direct comme tu dis.....ben je saurais pas comment faire a vrai dire!!

le pb est que je ne sais pas trouver dans word comment me placer dans ces  emplacements à modifier pour faire le collage...

je te poste un apercu de mon fichier .doc

http://www.cijoint.fr/cjlink.php?fil...cij0G23I8E.jpg

voici la partie supérieure de la feuille, avec encerclées de rouge les zones à remplir avec les valeurs de cellules excel...
pour passer de la zone de gauche a celle de droite une tabulation suffit..

il faut donc copier la cellule C9 dans la zone de gayche et la cellule C11 dans celle de droite.....mais je ne sais pas comment préciser informatiquemetnt ces 2 zones du .doc !!

NicoDisso · Answer

est ce que tu as enregistré sous une macro ce que tu fais à l'écran dans word...
Comme ca tu verras ce qu'il faut faire...

tony020422 · Answer

non....car je fais rien dans Word an fait....tt se fait par le biais de ma macro excel...

NicoDisso · Answer

ca je suis d'accord ,mais tu vas bien devoir travailler dans Word depuis ta macro Excel.
Donc tu enregistres ce que tu fait manuellement dans word afin de voir ce que ca fait pour qu'ensuite tu le fasses faire par excel...

tony020422 · Answer

je vois ce que tu veux dire...

mais outils --> "macro" puis "nouvelle macro" ou "macro" n'est pas atteignable  (pas en gras)....
est ce que c'est parce que le doc est protégé ou bien alors car je n'aurai pas activé un "module" nécessaire?

NicoDisso · Answer

effectivement, le verrou du doc me semble logique...
peux tu copier le contebu dans un nouveau fichier ?

tony020422 · Answer

quasiment rien n'est possible.......

tu trouveras le doc en PJ:

http://www.cijoint.fr/cjlink.php?fil...cijm2CCfL5.doc

si ca t'aide........

NicoDisso · Answer

je n'arrive pas a utiliser ton lien ( ni le precedent avec la copie d'ecran d'ailleurs )

tony020422 · Answer

ooo c bizarre ca.......message d'erreur?!

http://www.cijoint.fr/cjlink.php?fil...cijm2CCfL5.doc

tony020422 · Answer

nico tjs la?! regardes tes MP en cas......

tony020422 · Answer

nico à l'aiiiidddeee!!!!

je craque !!

j'ai crée 1 dossier avec:

MkDir ("\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(9, 3).Value)

j'aimerais par la suite y enregistrer mon .doc (qui garderait le mm nom à savoir "Suivi de chantier mod") et fermer ce .doc mais je ne sais pas comment faire appel à ce nveu dossier je deviens fou !!!!

stp si t'as une solutioon!!...

NicoDisso · Answer

Me revoila, check message perso

tony020422 · Answer

Slt nico ca va?!

je viens de voir ton post..........j'ai bidouillé hier et ca y est ca tourne nikel !! mais c t pas sans lutter !!!

Je ss super content et soulagé de voir que mes efforts (et surtout les tiens) sont récompensés!!

Merci a toi en tt cas pr tt, je n'hésiterais pas a revenir vers toi dans la journée car j'ai d'autres choses à réaliser (si ca te dérange pas!!))

A tte à l'heure  ;-)

tony020422 · Answer

Alors nico j'ai encore une question!
j'aimerais appelé le dossier que je crée pas seulement avec le nom  égal au contenu de la cellule C11 (avec ce code la)

Dim MonRep As String
MonRep = "\angfs1\users$\baron\Bureau\Travail Antony\" & Cells(11, 3).Value
MkDir (MonRep)


mais avec le ( contenu de la case C11  [-TIRET-] contenu de la case C7)


je ne sais pas comment faire !!  faut il utiliser la fonction concaténer? ou qqch du genre ?!

Merci nico !!

tony020422 · Answer

a ben a priori j'ai trouvé alors que j'ai tenté sans trop y croire!!

ca marche avec ca par exemple:

Texte_A_Afficher_02_SCM = Worksheets("Feuil1").Cells(9, 3).Value & "-" & Worksheets("Feuil1").Cells(11, 3).Value

donc tout est bon ca tourne nikel !! je ss TROP content vraiment c'est super!!

Merci pr tout nico, ca fait plasir de voir des gens qui aide rien que pr le plaisir, ss arriere pensée..c'est rare et ca touche..

Je te souhaite de passer 1 bonne journée, et une bonne continuation...

A trés bientôt sur CCM  ;-)

NicoDisso · Answer

De rien,
Par contre dans le code donné hier, ca le faisiat déjà ;-)
Bon courage pour la suite...
@+

NicoDisso · Answer

est ce que tu es obligé de faire du copier / coller.
Moi je ne suis pas fan de ça.

Tu peux faire une boucle qui lit dans ton classeur et recopie dans l'autre, ou si tu veux absolument faire du copier /coller on peut aussi, mais je prefere la premiere solution...

tony020422 · Answer

Slt nico!! dsl de répondre que maintenant mais g t hier en entretien d'embauche tte la journée  ;-)

pr mon pb je l'ai résolu à l'aide de ca:


Dim dl As Integer, valeuracopier As String
valeuracopier = Workbooks("Création dossier chantiers.xls").Worksheets("Feuil1").Range("C9").Value

Workbooks.Open Filename:="Y:\TKAF\R04\A422\_Commun-Agence\Roger\Travail Antony\Tableau de Bord modifie.XLs"

With Workbooks("Tableau de Bord modifie.XLS").Worksheets("Feuil1")
dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & dl).Value = valeuracopier
End With


je sais pas si c'est la meilleure solution mais ca marche!! par contre pr le pb des choix de bac d'alimentation pr l'impression mes recherches internet m'avaient orientées vers ce que tu me proposes mais je ne sais pas comment le réaliser...RDV sur ce fil de discussion  ;-)

Pop up Excel quand cellule remplie - Page 3

Discussions similaires

Newsletters