Erreur 400

JIFIN Messages postés 2 Statut Membre -  
DJ mapple Messages postés 81 Statut Membre -
Bonjour,

je m'initie à VBA. J'ai écrit le petit programme suivant mais il m'apparaît toujours une erreur 400 que je ne sais pas interpréter. Quelqu'un serait-il me dire ce qui ne fonctionne pas dans ma procédure? Un grand merci pour votre aide.

Sub Moitest()
Dim Cusipoption As Variant
Set Cusipoption = Worksheets("Julie").Range("D2")

If Sheets("Julie").Range("Cusipoption") = "OSPC9301" Then
Sheets("OSPC93012").Range("A11:L16").Copy
Sheets("Julie").Range("B7:L13").ActiveSheet.Paste
End If

End Sub

2 réponses

DJ mapple Messages postés 81 Statut Membre 7
 
La requête HTTP n'a pas pu être comprise par le serveur en raison d'une syntaxe erronée.
Le problème peut provenir d'un navigateur web trop récent ou d'un serveur HTTP trop ancien.

copier/coller sur https://www.codeshttp.com/
0
JIFIN Messages postés 2 Statut Membre
 
Merci DJ Mapple pour ton aide. Néanmoins, ne connaissant vraiment rien à l'informatique je ne suis pas trop sure de comprendre!!! quel est le lien entre le navigateur web et le serveur HTTP quand j'essaie de programmer sur VBA sans internet??
0
chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 312
 
Bonjour,

aucun lien entre le VBA et HTTP. Il s'agit d'une erreur de programmation.

Dans l'aide de Visual Basic, l'erreur 400 correspond à ceci :
Vous ne pouvez pas utiliser la méthode Show pour afficher une feuille en tant que feuille modale si elle est déjà visible. La cause de cette erreur et la solution pour la corriger sont les suivantes : 

Vous avez essayé d'appliquer à une feuille déjà visible la méthode Show avec l'argument style égal à 1 (vbModal). 
Utilisez l'instruction Unload ou la méthode Hide sur la feuille avant d'essayer de l'afficher en tant que feuille modale


En fait, vous définissez la variable Cusipoption comme la valeur de la cellule D2 de la feuille 'Julie'. du coup, pas besoin de rappeler la feuille 'Julie' dans votre If.

Essayez avec cette modification de votre macro:
Sub Moitest()
Dim Cusipoption As Variant
Set Cusipoption = Worksheets("Julie").Range("D2")

If Cusipoption = "OSPC9301" Then
Sheets("OSPC93012").Range("A11:L16").Copy
Sheets("Julie").Range("B7:L13").ActiveSheet.Paste
End If


End Sub 


Cordialement.
0
DJ mapple Messages postés 81 Statut Membre 7
 
Derien
0