question c.n

[tactic6]

Salut tout le monde
pour appeler une feuille dans le classeur ou on travail c'est Sheets("Feuil1")
mais pour en appeller une dans un autre dossier comment fait-on ?

 

[fred65200]

Re : question c.n

ton code est parfait🙂
fred

 

[tactic6]

Re : question c.n

re
je crée mes classeurs excel avec l'extension.xls pour pouvoir les ouvrir avec n'importe quel excel
j'ai essayé de créer ce dossier en .xlsx mais excel ne veut pas une histoire de VBA ça devient vraiment chi.nt

 

[tactic6]

Re : question c.n

y aurait pas autre chose que ADO pour réaliser le reste du code ?

 

[fred65200]

Re : question c.n

re

1 - pour excel 2007
enregistre en .xlsm car tu as des macros

2 - tu peux toujours ouvrir le classeur, chercher la dernière ligne et coller la valeur comme sur Feuil1.

@+

 

[tactic6]

Re : question c.n

merci pour tes réponses et ta patience
tant pis pour le reste
😉

 

[tactic6]

Re : question c.n

Bonjour le forum
Bon dimanche à tous
je continue mes investigations sur l'erreur que j'ai avec ce code
apres avoir tout nettoyé tout reinstallé l'execution va un peu plus loin mais a l'avant derniere ligne j'ai l'erreur :

erreur d'exécution"3021" :
BOF ou EOF est égal à True ou l'enregistrement actuel à été supprimé. 
L'opération demandée nécessite un enregistrement actuel.

et ceci à la ligne Rst.MoveLast
j'ai bien cherché sur le forum de microsoft mais il n'y a rien

Quelqu'un pourrait traduire et m'expliquer ???

 

[tactic6]

Re : question c.n

Re à tout le monde

erreur '3021' résolue
en fait si j'ai bien compris le cheminement du code dans la sauvegarde il lit la derniere ligne puis ecrit à la suite comme ma page etait vierge j'ai supposé qu'il ne pouvait lire la derniere ligne donc j'en ai crée une manuellement.

mais bon maintenant je me retrouve avec une

Erreur d'exécution '3265': 
Impossible de trouver l'objet dans la collection correspondante

à la ligne
'Nume est la valeur inscrite ligne 1 de la colonne,
'[J6], la valeur de la cellule à exporter
.fields("Nume") = [j6]
😕😕😕

 

[tactic6]

Re : question c.n

Hello every body ...
je reviens sur ce code et l'erreur 3265

en faisant plusieurs tests je me suis rendu compte qu'en supprimant la ligne ou se trouve l'erreur ça fonctionne mais c'est pas ça

 Set Cn = New ADODB.Connection
 'ligne pour Excel 2007
   Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 12.0;HDR=Yes;"""
 'ligne pour les versions antérieures
   'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    
   Set Cd = New ADODB.Command
   Cd.ActiveConnection = Cn
   
      Cd.CommandText = "SELECT * FROM [" & NomFeuille & "$]"
      Set Rst = New ADODB.Recordset
      Rst.Open Cd, , adOpenKeyset, adLockOptimistic
      'envoi du curseur à la fin de la base
      Rst.MoveLast
      With Rst
         .AddNew
            'Nume est la valeur inscrite ligne  1 de la colonne,
            '[J6], la valeur de la cellule à exporter
         [COLOR="Red"].fields("Nume") = [j6][/COLOR] [COLOR="RoyalBlue"]ligne que je supprime[/COLOR]
         .Update
      End With
 'Fermeture
Rst.Close:   Cn.Close
   
Set Cn = Nothing:   Set Cd = Nothing:   Set Rst = Nothing
'End Sub

le résultat est le suivant
j'espérai enregistrer dans un classeur sur une feuille des instructions les unes en dessous des autres au fur et a mesure de mes sauvegardes
en supprimant cette ligne j'enregistre des feuilles les unes après les autres mais ces feuilles contiennent les données des feuilles précédentes + la dernière sauvegarde

on est pas loin de la solution finale .....non ?

Fred auras tu l'idée de génie pour dénouer ce sac de nœuds stp