Transfert de données dans notepad
Bonjour à tous,
j'ai tenté de créer un code me permettant de copier les données d'une ligne dans notepad. Notepad ouvre mais mes données ne se tranfère pas. Voici mon code. J'ai l'impression que j'oublie quelques choses d'important.
Besoin d'aide!!!
Merci!
Private Sub CommandButton21_Click()
Dim ntp As String
ntp = Shell("Notepad.exe", vbNormalFocus)
Selection.Copy
'ActiveCell = Numero dossier
'NomExp = Nom de l'expert indépendant
'tel = # de téléphone indépendant
'Cabinet = Cabinet indépendant
'Dossier = # de dossier de indépendant
'AddCou = Courriel de l'expert indépendant
NomExp = ActiveCell.Offset(0, 7).Value
tel = ActiveCell.Offset(0, 9).Value
Cabinet = ActiveCell.Offset(0, 5).Value
Dossier = ActiveCell.Offset(0, 8).Value
AddCou = ActiveCell.Offset(0, 11).Value
ntp = "Expert:" & NomExp & " # de téléphone: " & tel & "%0D%0A %0D%0A"
ntp = "Cabinet d'expertise: " & Cabinet & "%0D%0A %0D%0A"
ntp = "Courriel:" & AddCou & "%0D%0A %0D%0A"
ntp = "Dossier:" & Dossier & "%0D%0A %0D%0A"
End Sub
Bonjour,
Tu peux tester le code suivant
Private Sub CommandButton1_Click()
With Application
Selection.Copy
Shell "Notepad.exe", 3
SendKeys "^v"
VBA.AppActivate .Caption
.CutCopyMode = False
End With
End SubBonjour James007,
merci d'être au rdv! Le code fonctionne bien effectivement pour "copier/coller" la cellule active. Parcontre je souhaiterais que plusieurs cellules de la même ligne s'incrivent automatiquement dans note pad. Si tu me permets je te fournie un exemple:
En appuyant sur la macro avec la cellule active F1 , automatiquement les données de la même ligne soit J1, K1, L1, M1 et N1, irait s'inscire dans note pad comme suite
EXPERT: (J1) # Téléphone (M1)
Cabinet d'expertise: (K1)
Dossier: (L1)
courriel: (N1)
Est-ce possible?
Merci
Bonjour,
Effectivement... ce que tu demandes est possible ...
Tu seras d'accord avec moi qu'il ne s'agit plus du sujet initial ... mais d'une question de mise en forme des données ... avant que la Sélection ne soit copiée ...
Re-bonjour,
suite à ton dernier courriel, j'ai effectué quelques recherches! Je ne suis pas une pro c'est le moins de le dire. J'ai été en mesure de créer ce que je souhaitais via courriel mais je ne sais plus où chercher pour tenter la meme chose avec notepad. Si je peux me permettre je te fais parvenir le code pour l'envoi de courriel automatique. En espérant que tu pourras me donner un indice supplémentaire pour arriver à mes fins!!!
Private Sub CommandButton1_Click()
Dim notepadAd As String
Dim text As String
Dim NomExp As String
Dim AddCou As String
'ActiveCell = Numero dossier
'NomExp = Nom de l'expert indépendant
'AddCou = Courriel de l'expert indépendant
NomExp = ActiveCell.Offset(0, 7).Value
AddCou = ActiveCell.Offset(0, 11).Value
MailAd = AddCou
C_Cachee = "montreal.a@craw.ca,"
Selection.Copy
Subj = "Nouvelle assignation/mandat restreint"
Msg = Msg & "Bonjour " & ",%0D%0A %0D%0A"
Msg = Msg & "Voici une nouvelle réclamation : " & "%0D%0A %0D%0A"
Msg = Msg & "Tarification du mandat: 115$/heure maximum 800$ : " & "%0D%0A %0D%0A"
Msg = Msg & "%0D%0A" & "Quart arrière: Julie" & "%0D%0A" & "Expert : " & NomExp & "%0D%0A" & "Dossier: " & ActiveCell.Value & "%0D%0A"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" & "&Bcc=" & C_Cachee
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Merci encore pour ton feedback! Bon week end
Sonya
Bonjour Sonya,
Ci-joint ton fichier test ...
Est-ce-que cela correspond bien à ton attente ...???
Bonjour,
Je suis surpris que tu ne fasses aucun commentaire sur la dernière proposition ...
Est-ce-que cela correspond bien à ton attente ...??? ... ou pas ...
Bonjour James007,
désolé pour le délais dans ma réponse.
Je dois te dire que je suis agréablement satisfaite de ton code. C'est exactement ce que je recherchais. Avec ce code tu me permets de sauver un temps fou à l'exécution de mes tâches au boulot!
Tu es toujours au RDV et je t'en remercie! C'est très apprécié! Tu fais de moi une "exceleuse" des plus satisfaite! Je me rends compte que j'ai encore beaucoup de travail à faire avant d'être à ton niveau!
Bonne soirée!
Merci
Sonya
Bonjour Sonya,
Ravi que la solution te rende service ...
Merci pour tes remerciements ...