Copier coller special

cs_actif Messages postés 1 Date d'inscription mercredi 30 juin 2004 Statut Membre Dernière intervention 30 juin 2004 - 30 juin 2004 à 12:03
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 - 30 juin 2004 à 14:24
actif
salut
je voudrai coller une valeur dans une cellule avec une adresse dans deux case ex en a1=b et en a2=25
pour que la cellule copier aille en b25

1 réponse

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
30 juin 2004 à 14:24
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
MonXl.Workbooks.Open FileName:=CheminDuFichier
' Ouvre Le Fichier
MonXl.Range("A1").Value = "B" ' Attribue une valeur à une Case
MonXl.Range("A2").Value = "25"

NouvelleCase=MonXl.Range("A1").Value & MonXl.Range("A2").Value ' Tu Obtiens bien = B25
' Pour l'utiliser
MonXl.Range("NouvelleCase").Value ="IT@LI@"

It@li@
0