Vba code généré erreur 104 après addition colonne dans excel

Seifou43 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai ajouter une colonne qui contiennes des adresse IP sur une feuille excel .

dans l'éditeur vba j'ai ajouter une ligne ( Print #fileNumber, " address1 String """ & Range("DATA_IP_def1") ..................)

pour extraire les données de la cellules ajoutée , le code d'erreur suivant s’affiche :

Erreur d'exécution 1004 ( Erreur définie par l'application ou par l'objet ).

NB : la macro marche bien avant l'addition de la colonne dans excel .

est qu'il y a quelqu’un qui peux m'aider ?

voila ce que j'ai fait : 


 For i = 1 To 8
        If Len(Trim(Range("DATA_IP").Offset(i, 0))) > 0 Then
            If i Mod 2 = 1 Then
                Print #fileNumber, ""
            
                Print #fileNumber, "// IP " & Range("DATA_Position").Offset(i, 0)
                
                Print #fileNumber, ""
                
                st1 = Replace(Range("DATA_Position").Offset(i, 0), "A-", "")
            End If

        ''''DONEE1

            Print #fileNumber, "ECHO "" IP=" & Range("DATA_IP").Offset(i, 0) & """"
       
            Print #fileNumber, "   ""POS=" & st1 & ",VRRP=1 """  
      
          
            Print #fileNumber, "    address0 String """ & Range("DATA_IP_def0").Offset(i, 0) & """"
   //       Print #fileNumber, "    address1 String """ & Range("DATA_IP_def1").Offset(i, 0) & """"
        
         
            Print #fileNumber, ""
       End If
    
    Next i


Merci

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
tu n'as pas indiqué à quelle ligne se produit l'erreur.
en plus d'avoir ajouté la ligne de code, as-tu ajouté une zone de cellules nommée "DATA_IP_def1"?
0
Réponse 2 / 3
Seifou43 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
salut :

l'erreur se produit à la ligne ajouter . 

 //       Print #fileNumber, "    address1 String """ & Range("DATA_IP_def1").Offset(i, 0) & """"


2 / oui la zone de cellule a été ajouter .
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
remplaçons cette ligne par: 
dim rrr as string, sss as string
rrr= Range("DATA_IP_def1").Offset(i, 0)
sss= "    address1 String """ &rrr & """"
Print #fileNumber, sss

à quelle ligne obtiens-tu l'erreur?
0
Réponse 3 / 3
Seifou43 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
salut :

j’obtiens le message d'erreur a cette ligne : rrr= Range("DATA_IP_def1").Offset(i, 0)

j'ai eu le nouveau message d'erreur suivant :

la méthode range de l'objet _worksheet a échoué.

merci
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
ce qui confirme ma suspicion: es-tu certain d'avoir ajouté le nom?
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse
impossible lire vidéos france 2
pauline21 -
freezet -

5 réponses