Copier des marque-pages Fierfox dans un tableau Excel

[Chri8Ed]

Bonjour

Il est possible de copier un Marque-page Firefox dans un tableau Excel
en faisant du glisser-déposer

Le problème c'est que cela oblige de le faire un par un !

Je souhaiterais pouvoir le faire pour tout un groupe de marque-pages
ou tout simplement un dossier entier de marque-pages

Si quelqu'un a une idée ?

Merci

 

[Chri8Ed]

Re : Copier des marque-pages Fierfox dans un tableau Excel

Bonjour

Je ne vois pas de solution venir pour l'affichage du dossier d'origine sur chaque ligne
Sans doute n'est-ce pas possible d’emblée ?

Peut-être qu'une 2ème macro permettrait de le faire dans un second temps ?

Cordialement

 

[Staple1600]

Re : Copier des marque-pages Fierfox dans un tableau Excel

Bonjour à tous


Voici un exemple de 2ème macro 😉

Sub RemplirVide()
Dim p As Range
Set p = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
p.Offset(, -1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
p.Offset(, -1).Value = p.Offset(, -1).Value
End Sub

Dans cet exemple, on a une colonne A avec des vides et une colonne B
Les "trous" de la colonne A seront remplis avec la valeur de la cellule juste au dessus.

Je te laisse essayer et adapter avec tes bookmarks.

EDITION: Ci-dessous résultat obtenu

 

[Chri8Ed]

Re : Copier des marque-pages Fierfox dans un tableau Excel

Bonjour Staple

Merci pour cette macro
J'ai eu un peu de mal car dans mon tableau il y a avait des cellules vides au-dessus de la 1ère cellule pleine
(La 1ère cellule pleine était A15)
Pour que cela fonctionne, il est donc nécessaire de remplir la cellule A1
quitte à effacer après.

Il faut faire aussi attention de pas relancer la macro si il y plus de cellule vide
Car autrement cela plante.

Pour la 2ème colonne (Puisque qu'il y a des sous-dossiers)
Il est donc nécessaire que je face la même chose pour la colonne B
J'ai donc essayé de modifier la macro comme ceci

Sub RemplirVide2()
Dim p As Range
Set p = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
p.Offset(, -1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
p.Offset(, -1).Value = p.Offset(, -1).Value
End Sub

Mais j'ai un problème au niveau de cette ligne

p.Offset(, -1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

et je n'arrive pas à la corriger

A+

 

[Staple1600]

Re : Copier des marque-pages Fierfox dans un tableau Excel

Re


Cette syntaxe t'aide-elle plus ?
Set p = Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp))
Il faut que p soit la plage de cellules adjacentes à la la colonne contenant des cellules vides.
(Dans mon exemple colonne B pour colonne A)

 

[Chri8Ed]

Re : Copier des marque-pages Fierfox dans un tableau Excel

Re,

Merci grâce à ton explication et cette nouvelle syntaxe
J’ai maintenant compris le principe
J’aurais donc du mettre

Set p = Range(Cells(2, 3), Cells(Rows.Count, 2).End(xlUp))

Si ce n’est pas trop compliqué à écrire
Y a-t-il un moyen de tester s’il n’y a pas de cellule pleine au-dessus
Pour éviter l’erreur dont je parlais précédemment

J'ai eu un peu de mal car dans mon tableau il y a avait des cellules vides au-dessus de la 1ère cellule pleine
(La 1ère cellule pleine était A15)

A+