1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Incompatibilité de type Excel via Access [Résolu]

Signaler
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
 -
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 -
Bonjour en vouant effacé une colonne j'ai une erreur d'incompatibilité de type
Si quelqu'un peut m'expliquer ce qui ne va pas merci d'avance


wbfile.Sheets("R_analyse_croisée").Columns("I:I").Delete Shift:=xlToLeft
Afficher la suite

8 réponses

Réponse 1 / 8
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 48
SAlut,
Sans grande conviction; essaie d'activer la feuille avant de suprimer la colonne.

@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 2 / 8
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
J'ai trouvé une solution




wbfile.Sheets("R_analyse_croisée").Select
wbfile.Sheets("R_analyse_croisée").Columns("I:I").Delete


Je dois faire un select , c'est vraiment du n'importe quoi!! vous etes pas d'accord????
Réponse 3 / 8
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 48
Salut,
Je viens de tester chez moi et cela marche parfaitement.
Encore faut il que :
- Tu aies une feuille appelée R_analyse_croisée
- Que WbFile représente une variablme de type WorkBook
@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 4 / 8
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
bah j'ai une feuille appélé R_analyse_croisée et Wbfile est un workBook

J'ai meme vérifié avec ca

    MsgBox wbfile.name
    MsgBox wbfile.Sheets("R_analyse_croisée").name

Et j'ai la meme erreur avec cela

MsgBox wbfile.Sheets("R_analyse_croisée").Columns("I:I").Address
Réponse 5 / 8
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
de plus j'ai ce code la qui précède

    wbfile.ActiveSheet.Range("I4:J4").NumberFormat = "General"
    wbfile.ActiveSheet.Range("I4").FormulaR1C1 = md & "/10/" & "20" & a
    wbfile.ActiveSheet.Columns("I:I").ColumnWidth = 11.71
   
        'Lors de l'absence des CA supression des 0
        If manquant Then
        With wbfile.Sheets("R_analyse_croisée")
        .Range("I8:I9").ClearContents
        .Range("I13:I14").ClearContents
        .Range("I16:I17").ClearContents
        .Range("I22:I23").ClearContents
        .Range("I27:I28").ClearContents
        .Range("I30:I31").ClearContents
        .Range("I33:I34").ClearContents
        .Range("I49:I50").ClearContents
        End With
        End If
   


   
    appli.Range("A1").Select


   
    Module2.macro1 wbfile, appli, c


    Module2.Macro2 wbfile, appli, c


    Module2.macro3 wbfile, appli, c


    Module2.macro4 wbfile, appli, c, manquant

et cela fonctionne
Réponse 6 / 8
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
précision le code qui précède fonctionne parfaitement
Réponse 7 / 8
Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
Bravo jrivet j'avais pas lu ton post et j'avais tester ca aussi sans grande conviction et ca marche
Réponse 8 / 8
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 48
Re,
Content que cela fonctionne. Mais il est vrai que c'est pas Logique logique.=> C'est M$ qu'est ce que tu veux on y peux rien

@+: Ju£i?n
Pensez: Réponse acceptée
Répondre Posez votre question