FORUM MP | Bureautique : visual basic, noms de dossier et varable

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

visual basic, noms de dossier et varable
	Forum : BUREAUTIQUE Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE
	Page précedente	Page suivante

ocean
Nouveau membre

Inscrit : 21/05/2008
Messages : 20

#154519 Posté le 25/06/08 à 11:18

Bonjour,
je voudrais pouvoir copier une ligne dans différents fichiers et les coller les unes en dessous des autres dans un nouveau fichier. Pour cela j'ai voulu créer une varaible pour mes noms de fichiers . le problème c'est que open file ne reconnait pas la variable. Du coup je me demande si on peut utiliser les noms de dossier en temps que variable.

Dim i, j As Integer
Dim station, dossier, extension As String
Dim nom As Variant

Sub Macro3()
dossier = "M:\chimie\SEQ_def_"
extension = ".xls"
For i = 2 To 10
station = Worksheets("Feuil1").Cells(i, 1).Value
nom = dossier + station + extension
Worksheets("Feuil1").Cells(1, 1).Value = nom 'pour vérifier'
Workbooks.Open Filename = nom
Rows("14:14").Select
Selection.Copy
Windows("Classeur10.xls").Activate
Sheets("Feuil2").Select
Worksheets("Feuil2").Cells(i, 1).Select
ActiveSheet.Paste
Windows("SEQ_def_115200.xls").Close
Next i
End Sub

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

ocean
Nouveau membre

Inscrit : 21/05/2008
Messages : 20

#154527 Posté le 25/06/08 à 16:27

peut être que je me suis mal exprimée

voila j'ai différents fichiers excels présents dans un mêm dossier. je voudrais pouvoir sélectionner une ligne dans chaque fichier et la copier dans une nouveau fichier excel . Mais attention toutes les lignes copiers doivent finir dans le meêm fichier les unes en dessous des autres.
Avec mon programme je n'y arrive pas. Alors est ce possible ou quelqu"un peut il me donner de l'aide?

HAUT DE PAGE

ocean
Nouveau membre

Inscrit : 21/05/2008
Messages : 20

#154534 Posté le 25/06/08 à 21:31

c'est encore moi!!(hihi)
je sais je suis un peu chiante. Je viens de trouver ces
programmes sur le forum mais je ne les comprends pas biens.
A quoi correspond .path?
Depuis que je m'intéresse à visual basic (pas très longtemps je vous rassure) je n'ai toujours pas compris à quoi sert msgbox.
Je ne comprendspas cette déclaration:
Dim FileToOpen() As String, est une variable?De toute façon jecrois queje ne comprends rien au second programme.

Sub essai()
chemin = ActiveWorkbook.Path
MsgBox chemin
End Sub

Sub essai()
Dim temp
Dim FileToOpen() As String
temp = Application _
.GetOpenFilename("Fichiers Excel(*.xls),*.xls", , _
"Choisissez un ou plusieurs fichier (s)", , True)
If VarType(temp) = vbBoolean Then
MsgBox "Vous devez choisir au moins un fichier!", _
vbCritical + vbOKOnly
Exit Sub
Else
For i = LBound(temp) To UBound(temp)
ReDim Preserve FileToOpen(0 To i) As String
FileToOpen(i) = temp(i)
MsgBox "Ouvrir " & FileToOpen(i)
Next i
End If

End Sub

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1721

#154655 Posté le 01/07/08 à 14:14

Bonjour Ocean

Pas bcps de monde pour répondre à tes questions sur ce forum !!!!!

pour reprendre le dernier fil
donc le path indique le chemin ou se trouve un fichier
dans le bout de code

Sub essai()
chemin = ActiveWorkbook.Path
MsgBox chemin
End Sub

sub essai c'est une procédure nommée essai
chemin est une variable qui ici n'est pas déclarée
cette variable prendre comme valeur le chemin du classeur actif (ouvert)
ce chemin est affiché dans une boite de dialogue (MsgBox)

la procédure est fermée par End Sub

dans le second code

Sub essai()
Dim temp
Dim FileToOpen() As String
temp = Application _.GetOpenFilename("Fichiers Excel(*.xls),*.xls", , _
"Choisissez un ou plusieurs fichier (s)", , True)
If VarType(temp) = vbBoolean Then
MsgBox "Vous devez choisir au moins un fichier!", _vbCritical + vbOKOnly
Exit Sub
Else
For i = LBound(temp) To UBound(temp)
ReDim Preserve
FileToOpen(0 To i) As String
FileToOpen(i) = temp(i)
MsgBox "Ouvrir " & FileToOpen(i)
Next i
End If
End Sub

ce programme ouvre une boite de dialogue dans laquelle on a possibilité de choisir un fichier xls ou plusieurs
et ensuite ces fichiers sont ouverts

Voilà

Revenir si vous desirez de plus amples explications

CDLT

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.