46MNO83
XLDnaute Junior
bonjour à Tous
grace à toutes les infos que j'ai pu lire dans ce forum, j'ai pu avec une macro sous Excel 2000 ouvrir un fichier en PDF
pour l'exploiter ce PDF, je fais CTRL+A puis CTRL+C je ferme le fichier PDF
je reste donc avec mon classeur Excel ouvert, je cherche ma page et je fais CTRL+V
je voudrai rendre ces opérations automatiques, votre aide serai précieuse, merci de vous pencher sur mon problème
voila ou j'en suis...
Sub importerFG()
Dim chemin As String
Dim fichier As String
chemin = "c:\documents and settings\*.pdf"
fichier = Dir(chemin, vbNormal)
While fichier <> ""
choix = MsgBox("Ouvrir " & fichier, 68, "POURSUIVRE la LISTE")
If choix = 6 Then
ActiveWorkbook.FollowHyperlink Address:=fichier, NewWindow:=True
Selection.Copy 'je pensai écrire CTRL A
Sheets.Add ' CTRL C
Windows(fichier).Close ' fermer le fichier PDF
Sheets("fg").Cells.ClearContents 'je suis sur mon classeur, et j'efface cette feuille
Range("A1").Select
ActiveSheet.Paste 'je pensai faire CTRL V
GoTo poursuivre
End If
fichier = Dir
Wend
poursuivre:
End Sub
grace à toutes les infos que j'ai pu lire dans ce forum, j'ai pu avec une macro sous Excel 2000 ouvrir un fichier en PDF
pour l'exploiter ce PDF, je fais CTRL+A puis CTRL+C je ferme le fichier PDF
je reste donc avec mon classeur Excel ouvert, je cherche ma page et je fais CTRL+V
je voudrai rendre ces opérations automatiques, votre aide serai précieuse, merci de vous pencher sur mon problème
voila ou j'en suis...
Sub importerFG()
Dim chemin As String
Dim fichier As String
chemin = "c:\documents and settings\*.pdf"
fichier = Dir(chemin, vbNormal)
While fichier <> ""
choix = MsgBox("Ouvrir " & fichier, 68, "POURSUIVRE la LISTE")
If choix = 6 Then
ActiveWorkbook.FollowHyperlink Address:=fichier, NewWindow:=True
Selection.Copy 'je pensai écrire CTRL A
Sheets.Add ' CTRL C
Windows(fichier).Close ' fermer le fichier PDF
Sheets("fg").Cells.ClearContents 'je suis sur mon classeur, et j'efface cette feuille
Range("A1").Select
ActiveSheet.Paste 'je pensai faire CTRL V
GoTo poursuivre
End If
fichier = Dir
Wend
poursuivre:
End Sub