besoin d'aide VBA..

[choupi_nette]

Bonjour,

J'ai un fichier avec(ou sans) un onglet qui s'appelle "P7". Desfois P7 est dans le fichier et desfois il n'est pas présent

Est il possible d'avoir un code a deux conditions:
Si P7 existe alors l'exporter en csv
Si il n existe pas CREER un onglet appelé P7 et inscrire la valeur "Bonjour" en A4

Merci

 

[job75]

Re : besoin d'aide VBA..

Bonjour choupi-nette,

Après 201 posts et près de 3 ans sur le forum, vous devriez savoir que beaucoup ne répondent plus aux fils dont le titre est débile.

C'est mon cas.

De faire partie du sexe dit faible n'excuse rien.

A+

 

[choupi_nette]

Re : besoin d'aide VBA..

Merci pour l'insulte
A part etre desagreable tu sais que faire un caca nerveux sur un detail ? apres 8780 messages et 4 ans de forum...

 

[choupi_nette]

Re : besoin d'aide VBA..

Au fait ce matin j'ai posté un message avec COMME TITRE :
Export d'un onglet sous condition...modification de code

Nombre de reponse =0
Au lieu de critiquer et de faire le "débile" avec le sexe faible montre tes competances

 

[ROGER2327]

Re : besoin d'aide VBA..

Bonjour choupi_nette, job75

Une ébauche de solution :

Sub export()
Dim i%, ref$
    With ThisWorkbook.Sheets
        For i = 1 To .Count
            If .Item(i).Name = "P7" Then ref = .Item(i).Name: Exit For
        Next
    End With
    If ref = "" Then Exit Sub
    'Ici : le code nécessaire aux opérations à faire.
End Sub

ROGER2327
#5431

Samedi 7 Gueules 139 (Saint Gueule, abbé - fête Suprême Quarte)
12 Pluviôse An CCXX, 6,0683h - brocoli
2012-W05-3T14:33:50Z

 

[ROGER2327]

Re : besoin d'aide VBA..

...suite


Une autre possibilité :

Sub export()
Dim ref$
    With ThisWorkbook.Sheets
        On Error Resume Next
        ref = .Item("P7").Name
        On Error GoTo 0
        If ref = "" Then Exit Sub
        'Ici : le code nécessaire aux opérations à faire.
    End With
End Sub

ROGER2327
#5432

Samedi 7 Gueules 139 (Saint Gueule, abbé - fête Suprême Quarte)
12 Pluviôse An CCXX, 6,2009h - brocoli
2012-W05-3T14:52:56Z

 

[PrinceCorwin]

Re : besoin d'aide VBA..

Bonjour,

Une petite fonction pour savoir si une feuille existe :

Function existeFeuille(f As String) As Boolean

' Contrôle l'existence de la feuille fOnglet dans le classeur actuel
'
Dim temp As Variant

Application.Volatile
On Error Resume Next
temp = Sheets(UCase(f)).[A1]
existeFeuille = (Err = 0)

End Function

 

[ROGER2327]

Re : besoin d'aide VBA..

...et suite encore

Sub export()
Dim ref$
    ref = "P7"
    On Error GoTo E
    ref = ThisWorkbook.Sheets.Item(ref).Activate
    On Error GoTo 0
    'Ici : le code nécessaire aux opérations à faire.
    'Par exemple (et en adaptant les chemins !) :
    ChDir "C:\Users\Maurice\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Maurice\Desktop\Classeur1.csv", _
        FileFormat:=xlCSVMSDOS, CreateBackup:=False
Exit Sub
'   ----------------------------------------------------------
E: MsgBox "Il n'y a pas de feuille " & ref & " dans ce classeur."
End Sub

ROGER2327
#5433

Samedi 7 Gueules 139 (Saint Gueule, abbé - fête Suprême Quarte)
12 Pluviôse An CCXX, 6,3127h - brocoli
2012-W05-3T15:09:02Z

 

[choupi_nette]

Re : besoin d'aide VBA..

Re,
Merci pour vos reponses...
Mais je n'y arrive pas ca me fait des erreurs
Si vous le voulez bien je reprends...

Ne pouvant joindre mon fichier de base (trop lourd) j'explique ce que je veux faire:

Si l'onglet P7 existe l'exporter en csv
Si il (onglet P7) n existe pas le creer et activer le code suivant puis exporter en csv
With Sheets("P7")
.Cells.ClearContents
.Range("A1").Value = "Source_pos_cDNA"
.Range("B1").Value = "CDNA_name"
.Range("C1").Value = "Source_cDNA_Well"
.Range("D1").Value = "vol_cDNA"
.Range("E1").Value = "Dest_pos_cDNA"
.Range("F1").Value = "Dest_well_cDNA"
.Range("G1").Value = "Source_BC_primer"
.Range("H1").Value = "primer_name"
.Range("I1").Value = "Source_BC_pos_primer"
.Range("J1").Value = "Vol_primer_mix"
.Range("K1").Value = "Dest_well_Primers"
.Range("A2").Value = "0"
.Range("B2").Value = "0"
.Range("C2").Value = "0"
.Range("D2").Value = "0"
.Range("E2").Value = "0"
.Range("F2").Value = "0"
.Range("G2").Value = "0"
.Range("H2").Value = "0"
.Range("I2").Value = "0"
.Range("J2").Value = "0"
.Range("K2").Value = "0"
End With

Voici mon code que j'ai essayé d'adapter à ce que Roger2327 m'a donné

Sub export2()
Dim i%, ref$
ref = "P7"
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Rep & "P7", FileFormat:=xlCSVMSDOS
.Close True
End With
On Error GoTo E
ref = ThisWorkbook.Sheets.Item(ref).Activate
On Error GoTo 0



E: Sheets.Add
ActiveSheet.Name = "P7"
With Sheets("P7")
.Cells.ClearContents
.Range("A1").Value = "Source_pos_cDNA"
.Range("B1").Value = "CDNA_name"
.Range("C1").Value = "Source_cDNA_Well"
.Range("D1").Value = "vol_cDNA"
.Range("E1").Value = "Dest_pos_cDNA"
.Range("F1").Value = "Dest_well_cDNA"
.Range("G1").Value = "Source_BC_primer"
.Range("H1").Value = "primer_name"
.Range("I1").Value = "Source_BC_pos_primer"
.Range("J1").Value = "Vol_primer_mix"
.Range("K1").Value = "Dest_well_Primers"
.Range("A2").Value = "0"
.Range("B2").Value = "0"
.Range("C2").Value = "0"
.Range("D2").Value = "0"
.Range("E2").Value = "0"
.Range("F2").Value = "0"
.Range("G2").Value = "0"
.Range("H2").Value = "0"
.Range("I2").Value = "0"
.Range("J2").Value = "0"
.Range("K2").Value = "0"
End With
Sheets("P7").Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Rep & "P7", FileFormat:=xlCSVMSDOS
.Close True

End With

End Sub

Merci pour votre aide
Sincerement,
Choupi_nette

 

[ROGER2327]

Re : besoin d'aide VBA..

Re...

Peut-être quelque chose comme cela :

Sub export()
Dim ref$
    ref = "P7"
    On Error Resume Next
    ThisWorkbook.Sheets.Item(ref).Activate
    If Err <> 0 Then
        Sheets.Add
        With ActiveSheet
            .Name = ref
            .Range("A1").Value = "Source_pos_cDNA"
            .Range("B1").Value = "CDNA_name"
            .Range("C1").Value = "Source_cDNA_Well"
            .Range("D1").Value = "vol_cDNA"
            .Range("E1").Value = "Dest_pos_cDNA"
            .Range("F1").Value = "Dest_well_cDNA"
            .Range("G1").Value = "Source_BC_primer"
            .Range("H1").Value = "primer_name"
            .Range("I1").Value = "Source_BC_pos_primer"
            .Range("J1").Value = "Vol_primer_mix"
            .Range("K1").Value = "Dest_well_Primers"
            .Range("A2:K2").Value = "0"
        End With
    End If
    On Error GoTo 0
    Application.DisplayAlerts = False
    'Chemin à adapter :
    ActiveWorkbook.SaveAs Filename:="C:\Users\Maurice\Desktop\" & ref, _
        FileFormat:=xlCSVMSDOS, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

ROGER2327
#5434

Samedi 7 Gueules 139 (Saint Gueule, abbé - fête Suprême Quarte)
12 Pluviôse An CCXX, 6,6479h - brocoli
2012-W05-3T15:57:18Z

 

[choupi_nette]

Re : besoin d'aide VBA..

Merci Roger,
Un tres grand merci a tout ceux qui se sont donnés du mal
J'ai pu adapter sans souci
Bonne soirée