Choix du fichier à insérer / Modification code

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

simrobert21

XLDnaute Nouveau
Bonjour le forum.

Je suis à tenter de créer une macro pour insèrer un fichier PDF dans mon fichier excel. J'ai utilisé l'enregistreur de macro et j'ai effectué les actions manuellement. J'ai joint le résultat ci-dessous. Par contre, j'aimerais le modifier pour que lorsque je l'exécute, j'ai le choix du fichier à insèrer. Pour le moment il insère toujours le fichier initial. Quelqu'un est capable de m'indiquer quoi faire ? Merci de votre aide

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\Administrateur\Mes documents\~5864904.pdf", Link:= _
False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1036-7B44-A94000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:= _
"C:\Documents and Settings\Administrateur\Mes documents\~5864904.pdf").Select

End Sub
 
Re : Choix du fichier à insérer / Modification code

Bonjour Robert

Regarde cette procédure issu de l'aide (F2 sur open puis F1):

Code:
Sub test()
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
End Sub

Il ne te reste plus qu'à mettre le nom du fichier en variable séparé par

Code:
" &  FileToOpen & "
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA - Erreur
Réponses
1
Affichages
692
Retour