× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 PDF vers Excel 2010Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jo.nat1
  Posté le 24/01/2013 @ 19:20 
Aller en bas de la page 
Petit astucien

Bonsoir a tous et mes meilleurs voeux pour cette année 2013.

voilà, je recherche un logiciel PDF capable de convertir mes fichier vers excel gratuit ou payant

cela m'importe peut, mais je voudrais qu'il me convertisse tous mes tableaux PDF dans une seule feuille excel,

j'ai nitro PDF Pro. mes quand je veux qu'il me les convertisse, il y a autant de feuilles de cacul que de tableaux dans le PDF.

Si il y a 50 pages de tableaux dans le PDF, converti, il ya 50 feuilles de calcul, alors pour remettre tout ça sur une feuille copier coller copier coller et vasi pendant 50 feuilles.

Si quelqu'un a une idées

merci.

Publicité
pc-facile13
 Posté le 24/01/2013 à 23:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Je ne pense pas que cela vaille la peine de chercher un logiciel (s'il existe), mais plutôt de partir sur du VBA.

Comme toujours (je préfère le préciser) ce n'est pas mon fort, de ce fait mes codes font certainement un peu "bidouille"...



Sub Copie_sur_Feuille1()

Dim nb_feuille
Dim cellule_vide As Long
Dim last_Ligne As Long
Dim last_Col As Integer

Application.DisplayAlerts = False 'Evite un message lors de la suppression des feuilles inutiles (à la fin du code)

nb_feuille = ActiveWorkbook.Sheets.Count 'On compte ne nb de feuilles dans le classeur

For i = 2 To nb_feuille 'Pour les feuilles 2 à la dernière

Sheets(i).Activate 'On active la feuille suivante (en commençant par la 2eme)

last_Ligne = Range("A" & Rows.Count).End(xlUp).Row 'On récupère le num de la dernière ligne vide

last_Col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column 'On récupère le num de la dernière colonne vide

Range(Cells(1, 1), Cells(last_Ligne, last_Col)).Copy 'On copie les cellules non vides

Worksheets(1).Activate 'on se positionne sur la première feuille

cellule_vide = Range("A" & Rows.Count).End(xlUp).Row 'On récupère le num de la dernière ligne (de la colonne A) contenant des données

If cellule_vide > 1 Then 'Si la dernière ligne vide n'est la première

cellule_vide = cellule_vide + 1 'On ajoute 1 (pour ne pas écraser les dernières données)

End If

Cells(cellule_vide, 1).Select 'On sélectionne la cellule vide

'On colle les données
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Next

For j = 2 To nb_feuille

Worksheets(2).Delete 'On supprime toujours la 2eme feuille car après suppression les feuilles se décalent en 2eme position (pour au final ne garder que la première feuille)

Next


End Sub




Modifié par pc-facile13 le 24/01/2013 23:18
jo.nat1
 Posté le 25/01/2013 à 12:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci beaucoup pc-facile13 ça marche super bien, fini les copier-coller {#}

A+

pc-facile13
 Posté le 25/01/2013 à 17:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Heureux que cela te convienne. {#}

{#}

jo.nat1
 Posté le 26/01/2013 à 11:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci{#}

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
118,34 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 118,34 € livré
Valable jusqu'au 10 Août

Amazon Allemagne fait une belle promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz CL16 qui passe à 113,69 € (avec la TVA ajustée). Comptez 4,65 € pour la livraison en France soit un total de 118,34 € livré. alors qu'on le trouve ailleurs à plus de 170 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
22,17 €Souris sans fil Logitech M280 à 22,17 €
Valable jusqu'au 15 Août

Amazon fait une petite promotion sur la souris sans fil Logitech M280 qui passe à 22,17 €. On la trouve ailleurs à partir de 30 €. Sa forme profilée est adaptée aux droitiers. Son autonomie est de 18 mois (pile AA que vous pourrez remplacer).


> Voir l'offre
31,38 €XIAOMI Mi TV Stick à 31,38 €
Valable jusqu'au 09 Août

Cdiscount propose en exclusivité la nouvelle version de la clé HDMI XIAOMI Mi TV Stick à 31,38 €. Cette clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Elle intègre un Chromecast, est compatible Dolby et DTS et est fournie avec une télécommande qui peut être pilotée à la voix. Elle tourne sous Android TV 9.0 et vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Spotify, Moltov, ... sur votre TV Full HD.


> Voir l'offre

Sujets relatifs
commande vba export access vers excel 2010
Listing Excel vers Outlook 2010
Excel 2010
Excel 2010
Changement dans Excel 2010 ?
case à cocher dans cellule Excel 2010
signature outlook 2010 " envoyer vers"
Mise en forme conditionnelle Excel 2010
Extraction Excel 2010
Excel 2010 :Accès à l'aide VBA
Plus de sujets relatifs à PDF vers Excel 2010
 > Tous les forums > Forum Bureautique