Erreur 400

Fermé
JIFIN Messages postés 2 Date d'inscription samedi 20 août 2011 Statut Membre Dernière intervention 22 août 2011 - 20 août 2011 à 20:58
DJ mapple Messages postés 73 Date d'inscription dimanche 14 août 2011 Statut Membre Dernière intervention 21 octobre 2011 - 22 août 2011 à 12:11
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 73 Date d'inscription dimanche 14 août 2011 Statut Membre Dernière intervention 21 octobre 2011 7
20 août 2011 à 21:15
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 Date d'inscription samedi 20 août 2011 Statut Membre Dernière intervention 22 août 2011
22 août 2011 à 03:59
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 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 304
22 août 2011 à 09:10
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 73 Date d'inscription dimanche 14 août 2011 Statut Membre Dernière intervention 21 octobre 2011 7
22 août 2011 à 12:11
Derien
0