Discussion :

[Lucl1324]

Bonjour,

Je vous contacte car je suis en train de développer un fichier Excel pour remplir automatiquement un template PDF.
J'ai un problème avec une macro et le message d'erreur "Variable objet ou variable de bloc With non définie" qui s'affiche.

Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub PDFTemplate()
Dim PDFIdr As FileDialog
Set PDFIdr = Application.FileDialog(msoFileDialogFilePicker)
With PDFIdr
    .Title = "Sélectionner le fichier PDF à importer"
    .Filters.Add "PDF Type Files", "*.pdf", 1
    If .Show <> -1 Then GoTo NoSelection
    Feuil1.Range("C2").Value = .SelectedItems(1)
End With
NoSelection:
End Sub

J'ai beau chercher partout, je ne vois pas d'où provient l'erreur (étant débutant dans le domaine, je suis un peu perdu !).

Pouvez-vous m'aider s'il-vous-plait ?

[Patrice740]

Bonjour,

Ton code fonctionne !
Est-ce la seule macro du fichier ?
Pourrait t'il y avoir une interaction avec une autre macro ??? ....

Bien qu'existant encore, les GoTo sont d'une autre époque, à éviter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub PDFTemplate2()
Dim PDFIdr As FileDialog
  Set PDFIdr = Application.FileDialog(msoFileDialogFilePicker)
  With PDFIdr
    .Title = "Sélectionner le fichier PDF à importer"
    .Filters.Add "PDF Type Files", "*.pdf", 1
    If .Show = -1 Then
      Worksheets("Feuil1").Range("C2").Value = .SelectedItems(1)
    End If
  End With
End Sub

[Pierre Fauconnier]

Salut.

Je plussoie Patrice pour le Goto

Es-tu sûr d'avoir une feuille dont le nom vba est Feuil1? Je ne vois guère que cela comme problème potentiel.

PS: Dire quand ton erreur survient (compilation ou exécution) et sur quelle ligne nous aidera à t'aider...

[Lucl1324]

Bonjour Patrice, Pierre,

Merci pour vos réponses !
Voici une capture d'écran avec les deux macros :



Patrice : même avec ton code, il m'indique quand même la même erreur "Variable objet ou variable de bloc With non définie".

Comment fait-on pour savoir sur quelle ligne l'erreur survient ?

[Pierre Fauconnier]

Les deux codes (celui de Patrice et le tien) fonctionnent. Je n'ai pas testé ceux que tu as illustré car je ne vais pas les retaper, mais je n'y ai pas vu d'erreur.

Pour voir où se situe l'erreur:

• Soit tu compiles ton projet (Débogage > Compiler VBAProject) et l'éditeur surlignera la première erreur rencontrée (A réaliser normalement avant tout changement de code);
• Soit tu exécutes et si bug, l'éditeur surligne en jaune la ligne qui pose problème. Attention! Si tu as une gestion d'erreurs, tu dois la désactiver via Outils > Options > Général puis cocher "Arrêt sur toutes les erreurs", sinon, l'erreur est "bypassée"

[Lucl1324]

Pierre,

J'ai suivi tes instructions (merci !!) et visiblement c'est le .Title qui pose problème dans le With.

[Pierre Fauconnier]

Tant mieux pour toi. Perso, je ne comprends pourquoi .Title n'est pas reconnu sur ton poste alors qu'il passe chez moi et chez Patrice... Les mystères de l'informatique!

Bon weekend

[Patrice740]

Quelle version d'Excel utilises-tu ?

Mes VBE (2003, 2007, 2013, 2016) sont différents par rapport à ta capture d'écran, à ce niveau :

[Pierre Fauconnier]

Bien vu Patrice

Je n'ai jamais connu que (Name), perso. Étonnante, cette capture d'écran, en effet