Discussion :

[Nako_lito]

salut a tous,
je suis en train de developper une application qui doit recuperer des contenu de la premiere ligne d'un fichier excel (avec une seule sheet) et les mettre dans un autre fichier .xls

exemple:
fichier1
nom prenom adresse CP ville

fichier2
requete1 nom 1
requete1 prenom 2
requete1 adresse 3
requete1 CP 4
requete1 ville 5

PS: requete1 correspond au contenu d'une textbox que je renseigne avant et les chiffre de 1 a 5 sont l'index (en auto incrémente).
PS2: le nombre de case de la ligne 1 est variable, parfois il n'y a que nom, prenom, adresse, CP, ville, mais des fois y'en a plus, et des fois moins. Donc je pense qu'il faut tester si la case contient qqc.

J'ai reussi a recuperer le path d'un fichier et a l'ouvrir, ce que je n'arrive pas c'est comprendre comment marche la recup sous VBA.

Je sais pas si j'ai ete bien clair, si c'est pas le cas, fait le moi savoir ^^ Merci par avance.

[marie33000]

Bonjour bonjour

tu devrais commencer par tester si tes cellules contiennent quelque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim i as integer
dim dernierecolonne as integer
 
dernierecolonne = Range("A1").End(xlToRight).Column
 
for i=1 to dernierecolonne
   if
      (ton programme)
   end if
next i

Je vais essayer de trouver quelque chose qui marche pour ton code

[Nako_lito]

Merci bcp, pour l'instant le bout de code fonctionne, je verifie qu'il prenne en compte toute les colonnes.

[DeaD78]

Bonjour,

Imaginons que tu aies les colonnes A, B, C et E remplies, je suppose que tu veux récupérer les contenus de toutes ces cellules, non ?

Or, avec une cellule vide au milieu, le code ne va pas pas aller jusqu'à la dernière colonne remplie et il va s'arrêter à C dans notre cas.

Si tu veux que cela aille jusqu'à la dernière colonne remplie de la ligne sans s'arrêter sur les "trous", il faut que tu écrives :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dernierecolonne = Range("IV1").End(xlToLeft).Column

Après, tu peux faire un test sur les cellules pour esquiver ces "trous" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsEmpty(Cells(1,i).Value) Then

Cela te donnera donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim i as integer
dim dernierecolonne as integer
 
dernierecolonne = Range("IV1").End(xlToLeft).Column
 
for i=1 to dernierecolonne
   If Not IsEmpty(Cells(1,i).Value) Then
      (ton programme)
   end if
next i

Bonne chance pour la suite.

[Nako_lito]

Merci a toi aussi, petite subtilité en plus, forte utile pour les fichier mal fait, merci.

Quelle fonction(s) existe(s) pour récupérer le contenu d'une cellule ? dans mon cas, je n'ai pas acces au fichier excel donc "activecell" on oublie ^^.

Merci.

[Krovax]

si le fichier est ouvert (je ne sais pas si c'est bien ce que tu demandais)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(i,j)

ou i est le numéro de ligne j de colonne
également

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1")

tu peut concaténer l'adresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A" & i)

tu peux rajouter .value, .value2,... après je te laisse consulter l'aide pour plus d'information

Si le fichier est fermé (et doit rester fermé) c'est une autre histoire