Copier coller special

Signaler
Messages postés
1
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
30 juin 2004
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
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

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
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@