Soyez le premier à donner votre avis sur cette source.
Snippet vu 24 953 fois - Téléchargée 59 fois
Private Sub OuvrirExcel(Programme, Fichier) Shell Programme & " " & Fichier, vbNormalFocus End Sub Private Sub Commande1_Click() On Error GoTo Err_Commande1_Click Dim Canal As Double Dim Monfichier As String Dim Champ1 As String 'Attribue un nom à votre champ, le champ est Text1 Champ1 = [Text1] 'Défini le nom de votre fichier Excel Monfichier = "nomdevotrefichier.xls" 'Ouvre Excel OuvrirExcel "c:\Program Files\Microsoft Office\Office\excel.exe", Monfichier 'Crée la liaison DDE Canal = DDEInitiate("Excel", "[nomdevotrefichier.xls]Feuil1") 'Copie le texte DDEPoke Canal, "NomCellule", Champ1 'Ferme la liaison DDE DDETerminate Canal Exit_Commande1_Click: Exit Sub Err_Commande1_Click: MsgBox Err.Description Resume Exit_Commande1_Click End Sub
J'ai l'erreur suivante lorsque j'exécute cette ligne
DDEPoke Canal, "NomCellule", Champ1
L'autre application ne peut exécuter la fonction DDE ou la récupération que vous avez tentée.
Quelqu'un a une idée?
'Ouvre Excel
OuvriExcel "c:Program FilesMicrosoft OfficeOfficeexcel.exe", Monfichier
Correction
'Ouvre Excel
OuvrirExcel "c:Program FilesMicrosoft OfficeOfficeexcel.exe", Monfichier
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.