Cela fait plusieurs jours que je cherche des info sur le forum... Je vous remercié déjà pour votre aide
Je souhaite copier les cellules (F7, F8 et F9)du classeur actif sur un autre classeur qui s'appelle classeur2 (en zone) A2,A3 et A4.
Le classeur actif s'appelle fiche inscription et a un bouton appelé base de donnée, le classeur2 est la base de donnée. Je ne sauvegarde pas les modifications faites sur le classeur fiche d'inscription
Ceci fonctionne grace au recherche sur le forum
Maintenant je souhaiterais que a chaque nouvelles inscriptions sur le classeur inscription les données des cellules F7 à F9, se copie sur les cellules A5 à A7, ensuite A8 à A9 ...
J'ai utilisée If..... Then
Mais ca ne fonctionne pas, je n'ai pas de message d'erreur
J'espère que vous savez m'aider, merci beaucoup
Code : Tout sélectionner
option Explicit
Sub ZoneNewClasseur()
Dim oDoc as Object, monDocument as Object, oRange as Object, aCopier as Object
Dim adresseDoc as String
Dim cURL as String
Dim CellCible as String
oDoc = thisComponent
adresseDoc = "private:factory/scalc"
oRange = oDoc.Sheets(0).getCellRangeByName("F7:F9")
oDoc.CurrentController.Select(oRange)
aCopier = oDoc.CurrentController.getTransferable()
cURL = ConvertToURL( "/Users/Helene/Desktop/Classeur2.ods" )
monDocument = StarDesktop.loadComponentFromURL(cURL, "_blank", 0, Array() )
oRange = monDocument.Sheets(0).getCellByPosition(0,1)
monDocument.CurrentController.Select(oRange)
monDocument.CurrentController.insertTransferable(aCopier)
CellCible= monDocument.CurrentController.Select(oRange)
If CellCible = "" Then
CellCible = (CellCible + 1)
end If
End Sub
