Bonjour à tous !
Je suis actuellement en train de galérer sur quelque chose de surement bête ...
Quand j'éxecute mon programme j'ai un message d'erreur sur ma dernière ligne de code, mais je ne vois pas pourquoi. J'ai cherché pas mal de temps avant d'écrire ici mais j'ai pas trouvé.
Pour faire simple, je cherche un fichier PDF où je viens mémoriser son adresse pour le coller dans la dernière ligne de la colonne F ...
Help me !
Merci à vous
Dim fd As Office.FileDialog, strFichier As String, derligne As Integer
derlign = Sheets("BDD").Range("F" & Rows.Count).End(xlUp).Row + 1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Fichier PDF", "*.pdf", 1
.Title = "Choisissez votre PDF"
.AllowMultiSelect = False
.InitialFileName = "Z:\-dossier1 "
End With
fd.Show
strFichier = fd.SelectedItems(1)
MsgBox strFichier 'Msgbox juste pour test
Range("F" & derligne) = strFichier
PS : le message d'erreur "La méthode range de l'objet global a échoué"