Bonjour,
Le classeur joint comporte 2 feuilles.
La deuxième feuille correspond au contenu de fichier CSV que j'importe directement dans celle-ci (via autre macro...).
La première, correspond à une base de donnée dans lequel les fichiers CSV de la feuille 2 sont insérer les un à la suite des autres (à la première ligne disponible)
Ce que je souhaiterais faire c'est:
Du fait, du grand nombre de fichier que je copie sur la feuille 1 les un après les autres ,renommer dans une colonne (dans l'exemple joint, il s'agit de la colonne K) , le contenu des cellules (cellules correspondant au lignes importées) par le nom de fichier que j'importe (via inputbox) afin de pouvoir retrouver le groupe de donné que j'ai collé .
Ce fichier contient une macro incomplète et adapté, trouvé sur le forum . La partit ou la colonne K est remplit par le nom du groupe de données (via inputbox) n'est pas écrite.
Voici mon fichier:
[Résolu][Calc] Renommer cellules copiées
Modérateur : Vilains modOOs
Règles du forum
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
-
- Membre hOOnoraire
- Messages : 133
- Inscription : 09 mars 2012 10:14
[Résolu][Calc] Renommer cellules copiées
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par sabrina21000 le 04 oct. 2017 18:11, modifié 1 fois.
Version: libreoffice 7.2.7(x64)
,windows 10 X64
,windows 10 X64
-
- RespOOnsable forum
- Messages : 9251
- Inscription : 28 août 2010 08:45
Re: [Calc] Renommer cellules copiées
Bonjour,
Merci
Mettez un lien vers l'endroit où vous l'avez trouvée.[b][color=#404080]sabrina21000[/color][/b] a écrit :Ce fichier contient une macro incomplète et adapté, trouvé sur le forum
Merci
Touche Ctrl de Windows = touche cmd⌘ sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
-
- Membre hOOnoraire
- Messages : 133
- Inscription : 09 mars 2012 10:14
Re: [Calc] Renommer cellules copiées
Version: libreoffice 7.2.7(x64)
,windows 10 X64
,windows 10 X64
-
- Membre hOOnoraire
- Messages : 133
- Inscription : 09 mars 2012 10:14
Re: [Calc] Renommer cellules copiées
Bonjour à tous,
Une petite idée ?
Une petite idée ?
Version: libreoffice 7.2.7(x64)
,windows 10 X64
,windows 10 X64
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Calc] Renommer cellules copiées
Bonjour
A testerA+
A tester
Code : Tout sélectionner
Sub aquisition
Dim oDoc as Object, fSource as Object, fResultat as Object
Dim oCurseur as Object, nrep as string
Dim y as Integer, i as Integer, x as Integer, n as Integer, nbLig as Integer
Dim zSource as Object, cArrivee as Object
oDoc = thisComponent
fSource = oDoc.Sheets.getByName("FEUILLE2")
fResultat = oDoc.Sheets.getByName("FEUILLE1")
oCurseur = fResultat.createCursor
oCurseur.gotoEndOfUsedArea(False)
y = oCurseur.RangeAddress.EndRow 'Dernière ligne utilisée de la feuille Résultat
oCurseur = fSource.createCursor
oCurseur.gotoEndOfUsedArea(False)
i = oCurseur.RangeAddress.EndRow 'Dermière ligne de données
n = oCurseur.RangeAddress.EndColumn 'Dernière colonne de données
nrep = inputbox("Comment s'appelle le fichier ?","System")
If nrep = "" Then Exit Sub
For x = 0 To i
y = y + 1 'première ligne vide de la feuille Résultat
nbLig = nbLig + 1 'Compte le nombre de passage dans la boucle
zSource = fSource.getCellRangeByPosition(0,x,n,x) 'Adresse de la zone source correspondant au critère
cArrivee = fResultat.getCellByPosition(0,y) 'Adresse de la cellule d'arrivée
fSource.copyRange(cArrivee.CellAddress, zSource.RangeAddress) 'Copie de la zone source vers la feuille resultat
fResultat.getCellByPosition(n + 1,y).String = nrep
Next x
MsgBox(nbLig & " Tache(s) du ficher " & nrep & " ajoutée(s)","System")
End Sub
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre hOOnoraire
- Messages : 133
- Inscription : 09 mars 2012 10:14
Re: [Calc] Renommer cellules copiées
Merci beaucoup !
Cela fonctionne très bien !
Cela fonctionne très bien !
Version: libreoffice 7.2.7(x64)
,windows 10 X64
,windows 10 X64