dim CB as new AfCls_TextClipBoardForVBA CB.SetText "c:\essai\essai.xls" MsgBox CB.GetText set CB = nothing
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim PressePapier As New AfCls_TextClipBoardForVBA Dim CheminComplet As String CheminComplet = "c:\FAX ENVOYES" & Feuil1.TextBox1.Text & Feuil2.Cells(ljourmoisannee, "f") & Feuil2.Cells(ljourmoisannee, "g") & Feuil2.Cells(ljourmoisannee, "h") & ".xls" Feuil2.SaveAs CheminComplet PressePapier.SetText CheminComplet Set PressePapier = Nothing/list